I have a series jobs to analysis a fatgue damage question, and there is some elements deleted between jobs. Now I want to import some STATEV as initial condition for next job by SDVINI subroutine, which is read from field output in last job. But I find some dislocation in STATEV data.
For example, if I delete element label 1514, the STATEV of 1514 will be import to element label 1515 instead of being skipped.
here is my SDVINI subroutine:
SUBROUTINE SDVINI(STATEV,COORDS,NSTATV,NCRDS,NOEL,NPT,
1 LAYER,KSPT)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION STATEV(NSTATV),COORDS(NCRDS)
INTEGER, PARAMETER :: START_LINE = 20, END_LINE = 18335
CHARACTER(LEN=100) :: FILENAME
INTEGER :: CURRENT_LINE, UNIT, IOSTAT
INTEGER :: FIRST, SECOND
DOUBLE PRECISION :: THIRD, FOURTH
FILENAME = 'G:\test_dic\NPTdatafile6.txt'
UNIT = 10
OPEN(UNIT=UNIT, FILE=FILENAME, STATUS='OLD', IOSTAT=IOSTAT)
! Process lines from START_LINE to END_LINE
DO CURRENT_LINE = 1, START_LINE-1
READ(UNIT, *, IOSTAT=IOSTAT)
END DO
DO CURRENT_LINE = START_LINE, END_LINE
READ(UNIT, *) FIRST, SECOND, THIRD, FOURTH
IF (FIRST == NOEL) THEN
STATEV(1) = THIRD
STATEV(2) = FOURTH
END IF
END DO
CLOSE(UNIT)
RETURN
END
and my STATEV date in last job "NPTdatafile6.txt", my import result "result.txt".
THANKS IN ADVANCE!