请教FORTRAN中COMMON/w2/ x,y,是定义全局变量吗?前后文如下:PROGRAM MAIN integer Nparameter(N=4)REAL*8x0,y0,z0,x,y,z,ax,ay,az,vx0,vy0,vz0,epsilonREAL*8 ax0,ay0,az0REAL*8 funx,funy,funz,funpEXTERNALfunx,funy,funz,funpCOMMON/w2/ x,y,zREAL

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 15:41:54
请教FORTRAN中COMMON/w2/ x,y,是定义全局变量吗?前后文如下:PROGRAM MAIN integer Nparameter(N=4)REAL*8x0,y0,z0,x,y,z,ax,ay,az,vx0,vy0,vz0,epsilonREAL*8 ax0,ay0,az0REAL*8 funx,funy,funz,funpEXTERNALfunx,funy,funz,funpCOMMON/w2/ x,y,zREAL

请教FORTRAN中COMMON/w2/ x,y,是定义全局变量吗?前后文如下:PROGRAM MAIN integer Nparameter(N=4)REAL*8x0,y0,z0,x,y,z,ax,ay,az,vx0,vy0,vz0,epsilonREAL*8 ax0,ay0,az0REAL*8 funx,funy,funz,funpEXTERNALfunx,funy,funz,funpCOMMON/w2/ x,y,zREAL
请教FORTRAN中COMMON/w2/ x,y,是定义全局变量吗?
前后文如下:
PROGRAM MAIN
integer N
parameter(N=4)
REAL*8x0,y0,z0,x,y,z,ax,ay,az,vx0,vy0,vz0,epsilon
REAL*8 ax0,ay0,az0
REAL*8 funx,funy,funz,funp
EXTERNALfunx,funy,funz,funp
COMMON/w2/ x,y,z
REAL*8 a,b,c
REAL*8 gamma
COMMON /gamma/ gamma
REAL*8 a1,b1,e0,e,phi0,phi,s1,s2,s3
EXTERNAL midpnt

请教FORTRAN中COMMON/w2/ x,y,是定义全局变量吗?前后文如下:PROGRAM MAIN integer Nparameter(N=4)REAL*8x0,y0,z0,x,y,z,ax,ay,az,vx0,vy0,vz0,epsilonREAL*8 ax0,ay0,az0REAL*8 funx,funy,funz,funpEXTERNALfunx,funy,funz,funpCOMMON/w2/ x,y,zREAL
COMMON /w2/ x,y,z
表示定义一个公共块w2, 包含变量x,y和z. 
简单说来, 就是开辟一块公共的内存空间存放变量和值, 其他子程序也可以使用这个公共空间的变量和值.


从Fortran90开始, 不再推荐common了, 改用module更好.