【发布时间】:2019-11-12 15:00:13
【问题描述】:
谁能帮我解码下面的代码,比如time()的功能是什么?
IF (TIME(1).EQ.0.0) THEN
open (unit = 20, file = "C:\Temp\RANDOM.TXT")
【问题讨论】:
-
欢迎您,请拨打tour 并阅读How to Ask。在询问gcc.gnu.org/onlinedocs/gfortran/TIME.html 之前,您确实应该尝试搜索编译器手册并检查您的程序(我们无法找到)是否不包含其他定义。它很可能是在您的代码中的某个地方定义的。
-
或者它可以是一个名为
time的数组的元素。我们需要查看更多上下文(代码、编译器输出)才能回答。 -
@Jean-ClaudeArbaut 这是 Abaqus 的 UMAT 子程序的一部分,其中代码的起始行如下所示: *USER SUBROUTINES SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD, 1 RPL, DDSDDT,DRPLDE,DRPLDT, 2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME, 3 NDI,NSHR,NTEN,NSTATEV,道具,NPROPS,COORDS,DROT,PNEWDT, 4 CELENT,DFGRD0,DFGRD1 ,NOEL,NPT,LAYER,KSPT,KSTEP,KINC) C 包括 'ABA_PARAM.INC' C
-
@vipeshsingh 我们应该猜到了吗?
标签: fortran subroutine abaqus