您所在位置：主题：我想请高手帮我看下这段subroutine写得正确吗?
flyienshadow
[专家分：0] 发布于 2010-12-04 01:56:00
问题题目，谢谢帮助
SUBROUTINE TIMEDIFF(KDEL,MELSUB)
C EXTERNAL f77lid
DIMENSION TIMEARRAY(2)
T1 = DTIME(TIMEARRAY)
PRINT 49,T1
49 FORMAT('TIME TAKEN ',1X,E10.4)
WRITE(88,*)'TIME TAKEN =',T1
RETURN
END
SUBROUTINE TIMEDIFF(KDEL,MELSUB)
C EXTERNAL f77lid
DIMENSION TIMEARRAY(2)
T1 = DTIME(TIMEARRAY)
PRINT 49,T1
49 FORMAT('TIME TAKEN ',1X,E10.4)
WRITE(88,*)'TIME TAKEN =',T1
RETURN
END