19 December 2024 3 9K Report

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!

More Gao Bo's questions See All
Similar questions and discussions