各位大侠想请教SDVINI中定义单元数值传递STATEV状态变量给子程序HETVAL的问题,以下是小弟编写的子程序,STATEV状态变量都没有传递到子程序HETVAL,不知道哪里出问题,各位大侠请指教。还是SDVINI子程序在CAE档中需要设定什么参数?
SUBROUTINE SDVINI(STATEV,COORDS,NSTATV,NCRDS,NOEL,NPT, 1 LAYER,KSPT) C INCLUDE 'ABA_PARAM.INC' C DIMENSION STATEV(NSTATV),COORDS(NCRDS) IF(NOEL<11)THEN STATEV(1)=100.D0 ENDIF RETURN END SUBROUTINE HETVAL(CMNAME,TEMP,TIME,DTIME,STATEV,FLUX,PREDEF, 1 DPRED) C INCLUDE 'ABA_PARAM.INC' C CHARACTER*80 CMNAME DIMENSION TEMP(2),STATEV(2),PREDEF(1),TIME(2),FLUX(2),DPRED(1) STATEV(1)=STATEV(1)*10 FLUX(1)=STATEV(1) RETURN END
|