您所在位置：主题：[讨论]问各位大侠一个问题，非常感谢！
yanjiansjtu
[专家分：0] 发布于 2010-05-21 12:08:00
SUBROUTINE TYPE245(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)
INCLUDE '../include/param.inc'
DIMENSION XIN(7),OUT(19),PAR(5),INFO(15)
DOUBLE PRECISION XIN,OUT
DIMENSION Fcnd(4),ONcnd(4),ONct(2),FctONE(2)
COMMON /SIM/ TIME0,TFINAL,DELT
COMMON /STORE/ NSTORE,IAV,S(NUMSTR)
COMMON /LUNITS/LUR,LUW,IFORM
FUNpow1(X) = (-0.001565*X*X+0.6323*X+10.214)/1.5
PFUNpum1(X) = -0.0043*X*X+0.0912*X+314.95
我在看别人的程序，里面有子程序，可是 FUNpow1(X) 没有声明是什么变量，可是为什么可以给它赋值啊？实在看不明白，谢谢大家指点。
INCLUDE '../include/param.inc'
DIMENSION XIN(7),OUT(19),PAR(5),INFO(15)
DOUBLE PRECISION XIN,OUT
DIMENSION Fcnd(4),ONcnd(4),ONct(2),FctONE(2)
COMMON /SIM/ TIME0,TFINAL,DELT
COMMON /STORE/ NSTORE,IAV,S(NUMSTR)
COMMON /LUNITS/LUR,LUW,IFORM
FUNpow1(X) = (-0.001565*X*X+0.6323*X+10.214)/1.5
PFUNpum1(X) = -0.0043*X*X+0.0912*X+314.95
我在看别人的程序，里面有子程序，可是 FUNpow1(X) 没有声明是什么变量，可是为什么可以给它赋值啊？实在看不明白，谢谢大家指点。
