LOVRWRT=1, FLAG, URDFIL

[eng23bio]

Hi Everybody!

I am having some trouble with ABAQUS. I want to write the output (displacements) of the last increment for all my steps. I am using the URDFIL subroutine. I understand that I should use the flag 'LOVRWRT=1' to do what I want. I have written it in lots of places but it simply does not work. What am i doing wrong? Any ideas?

Here you find my subroutine. Thank you!!



*****************************************************************

SUBROUTINE URDFIL(LSTOP,LOVRWRT,KSTEP,KINC,DTIME,TIME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION ARRAY(513),JRRAY(NPRECD,513),TIME(2)

EQUIVALENCE (ARRAY(1),JRRAY(1,1))

C
OPEN(UNIT = 17,
1FILE = 'C:\Temp\P2_2\Funi.txt')

C FIND CURRENT INCREMENT.
C


CALL POSFIL(KSTEP,KINC,ARRAY,JRCD)

DO K1=1,999999

CALL DBFILE(0,ARRAY,JRCD)

KEY=JRRAY(1,2)

IF (KEY.EQ.101) THEN
LOVRWRT=1
write(17,*)KSTEP,ARRAY(3),ARRAY(4),ARRAY(5)

ENDIF
ENDDO

RETURN
CLOSE(17)
END

********************************************************************