其中的子程序是这样的,不知道什么地方错了.
SUBROUTINE UFIELD(FIELD,KFIELD,NSECPT,KSTEP,KINC,TIME,NODE,
1 COORDS,TEMP,DTEMP,NFIELD)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION FIELD(NSECPT,NFIELD), TIME(2), COORDS(2),
1 TEMP(NSECPT), DTEMP(NSECPT)
C KFIELD=1
FIELD(1,1)=COORDS(2)
RETURN
END