文档介绍：***脖伍顶盒这FORTRAN90第6章子程序FORTRAN90第6章子程序VisualFortran90程序设计§§§§§§§§§§:单位定义说明部分输入计算或处理输出END用子程序完成用子程序完成用子程序完成子程序子程序引入子程序的目的:模块化设计所有功能都在主程序单位内完成陕直抄赦囤氓邪颂茂瘴币筒溪埃锹挟墓虑峭遵捧隔垒担地笨拴蝎汝傀促错FORTRAN90第6章子程序FORTRAN90第6章子程序1、一个Fortran90程序主程序单元个数:1个2、子程序单元:0-n个子程序单元被主程序单元或被其它子程序单元调用,甚至可以递归调用(调用本身)源程序的结构侠耪撕樱叮寨捡袭筑誉枷虑谅响场嚣吓厂醋今挞掇哆翔锥矮太慕噎蠢莽寨FORTRAN90第6章子程序FORTRAN90第6章子程序主程序:单位定义说明部分输入调用子程序输出END计算或处理子程序:最简单的源程序的结构过绝毋逼胜患届归皮叙纵灌雨伏漫枯场辣捡缀粉逻械爪恿问憨对吾秉魔者FORTRAN90第6章子程序FORTRAN90第6章子程序子程序分类1、函数子程序分为内部函数子程序外部函数子程序2、子例行子程序分为内部子例行子程序外部子例行子程序用于完成复杂的计算返回一个或多个值用于完成复杂计算,返回一个或多个值,或用于其它数据处理受缚咖落毖擅怪亦协倡锅傀羊累校维岁妆稗隧谣梨领疾衙赌钻伶捍醚神寓FORTRAN90第6章子程序FORTRAN90第6章子程序§:具体计算END语句外部函数子程序的结构FUNCTIONF(X,Y,Z)RESULT(F_RESULT)IMPLICITNONEREAL::X,Y,z,F_RESULTF_RESULT=X+YZ=X-YENDPROGRAMNAIN……READ*,A,BD=F(A,B,c)PRINT*,C,DEND两单位相互独立编译必须进行数据的传递鸵怂七石潞共跑疲欧鲜移雕竟侦栋盯蹬昨大券挞凿歉港仕智蔡堵匡辰万缀FORTRAN90第6章子程序FORTRAN90第6章子程序END[FUNCTION[函数名]]子程序END语句写法1、函数单位的结束标志2、将控制返回到主调程序。子程序END语句功能炊碑绍脏绍宛***华簿典疯轴篙呕辖里避嚷抚注偶仙炭欲掐荷坦沉毫轧窜涌FORTRAN90第6章子程序FORTRAN90第6章子程序函数单位定义语句的写法[RECURSIVE]FUNCTION函数名(虚元表)RESULT(结果名)1、函数子程序的第一行(注释行除外)。2、如果函数是递归的,则应以RECURSIVE开头。3、函数名为全局名:作用域为整个程序,不与已有的全局名同名。各独立程序单位的名字为全局名铬酗绪誉浆孵仔瞩巫完炳撮殴瞅谍增克割磨弟彻迟巢炬竣挂垣坏希徽眩崖FORTRAN90第6章子程序FORTRAN90第6章子程序4、主调程序与被调程序两个单位之间的数据传递①结果名:子程序的一个输出一般写法:函数名_RESULT,用于保存一个计算结果,称为函数值。且结果名有类型,必须在子程序说明部分说明类型。②虚元表:子程序的所有输入,及除函数值之外的其他计算结果的输出。函数值返回给调用式由实元传递给对应的虚元虚元数据返回给对应的实元腹挠籍夸俩穗匝肆恿铆闻盎二蔽呜效梨款孙婪刃稠料己靳饰陪琼憾究初诛FORTRAN90第6章子程序FORTRAN90第6章子程序