找回密码
 注册
Simdroid-非首页
查看: 366|回复: 3

[子程序] STATEV状态变量传递给子程序的问题

[复制链接]
发表于 2012-9-4 23:38:45 | 显示全部楼层 |阅读模式 来自 台湾台北
各位大侠想请教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

发表于 2012-9-19 09:36:54 | 显示全部楼层 来自 湖南长沙
Simdroid开发平台
这类问题也困扰我很久了,希望高手详细讲解一下。
回复 不支持

使用道具 举报

发表于 2013-4-22 20:08:34 | 显示全部楼层 来自 北京
楼主问题解决了么?求指教
回复 不支持

使用道具 举报

发表于 2020-1-4 12:24:25 | 显示全部楼层 来自 湖南长沙
同样困惑  statev 是怎么传递变量值的呢
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-29 14:16 , Processed in 0.031617 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表