UHARD子程序

Tao_Tony

小弟正在使用UHARD子程序进行编程，需要编写等效塑性应变增量。但是小弟写了一段程序不知是否可行，还请各位大神给点建议！！！！

      IF (TIME(1).EQ.0.0) THEN
          W=0
          EQPLAS0=0
      ELSE
          DEQPLAS=EQPLAS-EQPLAS0
          DW=DEQPLAS/STRAINF
          W=W+DW
      ENDIF
      
      EQPLAS0=EQPLAS