您所在位置：主题：子例行程序调用问题
hebut1
[专家分：80] 发布于 2011-04-12 12:04:00
我自己编了一个简单的调用子例行函数的程序，是调用一个复数的，可是除了问题，算出来的数值也不对。请各路神仙帮帮忙好吗
E:\practice2\Hermite\wave3\fushu.for(4) : Warning: Variable F is used before its value has been defined
write(*,*)F
程序如下：
program main
COMPLEX F
CALL SL
write(*,*)F
END
SUBROUTINE SL
COMPLEX F
PARAMETER PI=3.14159
X=2.
A1=X+2.
B1=X+6
F=CMPLX(A1,B1)
END
E:\practice2\Hermite\wave3\fushu.for(4) : Warning: Variable F is used before its value has been defined
write(*,*)F
程序如下：
program main
COMPLEX F
CALL SL
write(*,*)F
END
SUBROUTINE SL
COMPLEX F
PARAMETER PI=3.14159
X=2.
A1=X+2.
B1=X+6
F=CMPLX(A1,B1)
END