第六讲Fortran中的子资料.pptVIP

*;（1）语句函数名：其取名及数据类型与变量相同。;（3）语句函数表达式 给出函数与参数之间的对应关系，可由虚参（必须包含所有的虚参）、常量、变量、数组、Fortran的内部函数及在其前面说明了的语句函数。;*;*;*;*;*;*;*;*;*;*;*;§4 Fortran子程序设计上机（实验）;program newton f(x)=7*x**4+6*x**3-5*x**2+4*x+3 df(x)=28*x**3+18*x**2-10*x+4 read*,x0,e !x0=-1.0,e=0.0001 x1=x0 x2=x1-f(x1)/df(x1) do while(abs(x1-x2)e) x1=x2 x2=x1-f(x1)/df(x1) end do print*,x1,f(x1) end;！函数子程序 logical function su(n) su=.false. i=2 m=sqrt(n*1.0) do while(mod(n,i)/=0.and.i=m) i=i+1 end do if(im.and.n1) su=.true. end;subroutine fsum(l,m) m=1 do n=2,l/2 if(mod(l,n).eq.0) then m=m+n end if end do end