数值方法及其在物理学中应用 一、FORTRAN语言的三点说明 1. 常数与变量的说明 2. 语句书写的格式 FORTRAN77扩展名为: *.f或*.for FORTRAN90无严格限制(以.f90为后缀) 二、FORTRAN基本语句 1、可执行语句 (2)流程控制语句 ⑥call s(d1,d2,…,dn) ②算数条件语句: if(e) k1, k2, k3 (e<0) (e=0) (e>0) 算数条件语句的计算编程 cha1-1.f: read(*,40) X 40 format(F8.2) if(x)10,20,30 10 Y=-1.57079 goto 100 20 Y=0 goto 100 30 Y=1.57079 goto 100 100 write(*,50)x,Y 50 format(1X,2HX=,F10.6,4H, Y=F10.6) end ③逻辑条件语句 cha1-3.f: read(*,20)x,y,z 20 format(3F10.4) big=x if(y.gt.big)big=y if(z.gt.big)big=z write(*,*)’big=’,big end 例4:编程求解0.0, 0.1, 0.2, 0.3的平方根 do 10 i=0, 0.3, 0.1 2. 非执行语句 (3)data语句(数据初值语句) data v1/d1/,v2/d2/,…vn/dn/ 或 data v1,v2,…,vn/d1,d2,…,dn/ 函数子程序 function举例: integer fac,p,r write(*,*)'n=,r=?' read(*,*)n,r p=fac(n)/fac(n-r) write(*,*)n,r,p end ? integer function fac(n) fac=1 if(n.le.1) goto 77 do 10 k=2,n 10 fac=fac*k 77??? return end integer p,r write(*,*)'n=,r=?' read(*,*)n,r call fac(n,m) m1=m call fac(n-r,m) m2=m p=m1/m2 write(*,*)n,r,p end ? subroutine fac(i,m) m=1 if(i.le.1) goto 77 do 10 k=2,i 10 m=m*k 77 return end open(1,file=’N!.dat’) write(*,*)’input N=?’ read(*,*)N M=1 I=2 5??? M=M*I I=I+1
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。