子程序 FORTRAN语言程序设计 知识介绍.pptVIP

第 九 章 数组;Fortran程序往往由一个主程序和若干个子程序组成。;说明： 1. 函数名的取名方法与变量 名同，遵循I—N隐含约定， 否则需采用类型说明语句。;7. 函数子程序的调用形式与语句函数完全相同。 必须在调用程序中使外部函数名与函数子程序定义中函数名的类型完全一致。必须保证函数名的类型、虚参的类 型与调用处的函数名以及实参类型一一对应。; function myexp(x) real myexp n=0 t=1 s=1 do 10 while(abs(t).gt.1e-5) n=n+1 t=t*x/n s=s+t 10 continue myexp=s end; subroutine astar write(*,100) 100 format(1x,20(*)) end call astar call astar end; subroutine opp(a,s1,s2) real a(5,5) s1=0 do 10 i=1,5 s1=s1+a(i,i) 10 continue s2=0 do 20 i=1,5 j=5-i+1 s2=s2+a(i,j) 20 continue end;主要区别：;三、 虚参实参数据传递;（4）如果实参是变量或数组元素，在调用子程序时