uexternaldb.for

Go to the documentation of this file.

      SUBROUTINE uexternaldb(LOP,LRESTART,TIME,DTIME,KSTEP,KINC)
C>    READ MESH DATA
      include 'ABA_PARAM.INC'
      include 'PARAM_UMAT.INC'
C
C     UEXTERNAL just called once; work in parallel computing
C     ADD COMMON BLOCKS HERE IF NEEDED (and in UMAT)
C      COMMON /KBLOCK/KBLOCK
      COMMON /kfib/fibori
C           
      REAL*8 DTIME
      dimension time(2)
      CHARACTER(256) FILENAME
      CHARACTER(256) JOBDIR
      INTEGER  LENJOBDIR
      
      REAL*8 FIBORI(nelem,4)
      
C     LOP=0 --> START OF THE ANALYSIS
      IF(lop.EQ.0.OR.lop.EQ.4) THEN
C
       CALL getoutdir(jobdir,lenjobdir)
C        DIR1 DEFNIED IN PARAM_UMAT.INC
         filename=jobdir(:lenjobdir)//'/'//dir1
C
         OPEN(15,file=filename)
         DO i=1,nelem
            READ(15,*) (fibori(i,j),j=1,4)
         END DO
          CLOSE(15)
!C         
      END IF    
C
      RETURN
C
      END SUBROUTINE uexternaldb