下载文档原格式
fortran函数定义与子例子程序Fortran 语法备忘录 (中级1)——转载2010-03-10 19:12转载于目录：【主程序】【语句函数】【内在过程】【内部过程】【外部过程】◆外部函数◆外部子程序◆EXTERNAL属性和哑过程◆INTENT属性◆OPTIONAL属性◆哑元改名◆关键字变元INTRINSIC属性◆类属过程◆过程接口INTERFACE◆超载操作符◆自定义操作符◆超载赋值号【模块】【块数据】【指针】【主程序】!-----------------------------------------------------------------------[PROGRAM [程序名]][说明部分][可执行部分][CONTAINS内部过程]END [PROGRAM [程序名]]!-----------------------------------------------------------------------【语句函数】 f(x)=x**2+1【内在过程】 max，abs，sin，char。
【内部过程】 Contains与宿主程序共享变量名, 外部过程FUNCTION, SUBROUTINE都可以有自己的内部过程。
通常没有说明语句。
没有哑元，无哑实结合。
使用内部过程的规则：在宿主中不要定义子程序名和函数名的类型，也不能指定它们是有EXTERNAL属性。
宿主中的变量名和数组名等在内部过程中有效，有相同的数值。
但同一名若在内部过程中又进行了类型声明，则此名被视为其过程中的独立变量，无相同的数值。
内部过程中也可引用另一内部过程。
例：!-----------------------------------------------------------------------program internalreal a,b,ccall findprint *,ccontainssubroutine findread *, a,bc=sqrt(a**2+b**2)end subroutine findend!-----------------------------------------------------------------------【外部过程】过程=函数&子程序哑元调用方式：传址调用call by adress，即传递4字节的变量的内存地址。
fortran 子程序参数摘要：I.引言A.Fortran 子程序的概念B.Fortran 子程序的作用II.Fortran 子程序参数的定义与使用A.参数的定义1.内部参数2.外部参数B.参数的传递1.值传递2.引用传递C.参数的返回值1.返回值的概念2.返回值的类型III.Fortran 子程序的调用A.调用子程序的方式1.外部调用2.内部调用B.调用子程序的参数1.参数的传递方式2.参数的默认值IV.Fortran 子程序参数的实例分析A.实例介绍B.实例代码解析1.定义子程序2.调用子程序C.实例总结V.结论A.Fortran 子程序参数的重要性B.Fortran 子程序参数的应用场景C.展望Fortran 子程序参数的未来发展正文：I.引言Fortran（Formula Translation）是一种高级编程语言，广泛应用于数值计算、科学计算等领域。
在Fortran 程序设计中，子程序（Subprogram）是一种重要的程序组织方式，可以将程序划分为更小的、可重用的功能模块。
子程序参数是子程序与主程序之间进行数据交换的关键，正确理解和使用子程序参数对于编写高效的Fortran 程序具有重要意义。
II.Fortran 子程序参数的定义与使用A.参数的定义Fortran 子程序参数分为内部参数和外部参数。
1.内部参数：在子程序内部定义的参数，仅在子程序内部使用，与外部程序无关。
内部参数的定义格式如下：```fortraninteger :: a, b, sum```2.外部参数：在子程序外部定义的参数，可以在子程序内部和外部程序中使用。
外部参数的定义格式如下：```fortraninteger, external :: a, b, sum```B.参数的传递Fortran 子程序参数的传递方式有值传递和引用传递两种。
1.值传递：将参数的值传递给子程序，子程序中对参数的修改不会影响主程序中的参数值。
fortran 子程序参数（最新版）目录1.Fortran 子程序参数概述2.Fortran 子程序参数的定义与声明3.Fortran 子程序参数的传递与使用4.Fortran 子程序参数的优点与局限性正文1.Fortran 子程序参数概述在 Fortran 编程语言中，子程序是一种可以实现代码重用的模块化程序结构。
通过将一些功能相似的代码组织成一个子程序，可以提高代码的可读性、可维护性和可重用性。
为了实现子程序之间的数据交互，Fortran 提供了一种名为“子程序参数”的机制，用于在子程序之间传递数据。
2.Fortran 子程序参数的定义与声明Fortran 子程序参数的定义与声明主要包括以下几个步骤：（1）在主程序中定义子程序。
使用“subroutine”关键字定义一个子程序，并给子程序起一个名字。
例如：```fortransubroutine my_subroutine```（2）在子程序中声明参数。
在子程序内部，使用“implicit none”语句关闭隐式参数，然后通过“parameter”语句声明子程序参数。
例如：```fortranimplicit noneparameter :: x = 0, y = 0```（3）在主程序中声明子程序参数。
在主程序中，使用“interface”语句声明子程序参数，并指定参数的类型和名称。
例如：```fortraninterface my_subroutinesubroutine my_subroutine(real :: x, real :: y)end interface```3.Fortran 子程序参数的传递与使用Fortran 子程序参数的传递与使用主要包括以下几个步骤：（1）在主程序中调用子程序。
在主程序中，使用子程序名和括号内的参数列表调用子程序。
例如：```fortrancall my_subroutine(3.14, 2.71)```（2）在子程序中使用参数。
fortran subroutine的用法Fortran子程序（Subroutine）是指Fortran编程语言中一个常用的独立执行程序。
Fortran子程序是一种对主程序可以被多次引用的可重用的模块，可被通过特定的函数声明来完成较复杂的任务。
与函数不同，它不会返回任何值也不会接收任何参数，因此运行的结果只能写入和/或输出给主程序。
包括Fortran的多种编程语言，如C，C++等，都有子程序的用法。
1. Fortran子程序的定义：Fortran子程序是指一个独立的程序，可以被引用多次，可以用来完成更为复杂的任务，它不会返回任何值。
2. Fortran子程序的声明：子程序的声明由特定的子程序声明构成，语法如下：[SUBCOMMON subroutineDDORTY] [CHARACTER*(*) name] [EXTERNAL name] [PARAMETER (param,…)] name(list of arguments) [INTEGER*4 │ INTEGER │LOGICAL │ REAL │ DOUBLE │ CHARACTER │ COMPLEX function]其中，参数SUBCOMMON子程序提供了一种定义并发要求子程序的方式；PARAMETER子程序声明提供了一种定义常量的方式；EXTERNAL子程序姆挨本声明是一种定义要调用程序库函数的方式；CHARACTER子程序姆挨本声明提供了一种定义字符串变量的方式；而FUNCTION子程序姆挨本声明提供了定义函数的方法，在本子程序中定义的函数的参数和返回值必须是自定义的。
3. Fortran子程序的编写：子程序的编写和普通Fortran程序一样，采用fortran写程序语言，运行环境推荐使用fortran编译器（compiler）。
在子程序中，程序可以使用多个定义在主程序中的变量（全局变量），也可以使用局部变量，局部变量的定义使用clause选项，放在子程序声明里。
fortran子程序参数一、引言Fortran是一种广泛应用于科学计算和工程领域的编程语言。
在Fortran程序中，子程序是一种常用的模块化程序设计方法，允许将重复的任务或功能封装在单独的程序段中，以提高代码的可读性和可维护性。
在Fortran子程序中，参数传递是一种常见的操作，用于将数据从一个程序段传递到另一个程序段。
本文档将介绍Fortran子程序参数的基本概念、传递方式以及注意事项。
二、参数传递的基本概念在Fortran中，子程序参数可以通过传值、传引用和传指针等方式进行传递。
传值是将参数作为副本传递给子程序，子程序对参数的修改不会影响原始变量的值。
传引用是将参数的地址传递给子程序，子程序对参数的修改会影响原始变量的值。
传指针是将变量的地址以指针的形式传递给子程序，子程序可以通过指针访问和修改该变量的值。
三、参数传递的方式1.传值参数：传值参数是通过将数据拷贝到子程序中传递的。
在函数调用时，会将原始变量的值复制一份给函数参数，函数对参数的修改不会影响原始变量。
例如：```scsssubroutinemy_subroutine(value_param)implicitnoneinteger,intent(in)::value_param...endsubroutinemy_subroutine```在上面的代码中，`value_param`是一个传值参数，子程序对它的修改不会影响原始变量。
2.传引用参数：传引用参数是将原始变量的地址传递给子程序。
子程序可以通过该地址访问和修改原始变量的值。
例如：```scsssubroutinemy_subroutine(ref_param)implicitnoneinteger,pointer::ref_param...endsubroutinemy_subroutine```在上面的代码中，`ref_param`是一个指向整数的指针，子程序可以通过该指针访问和修改原始变量。
多重积分Fortran子程序-------VEGAS.F流程图说明：这里只是对子程序的算法和如何分层做详细介绍，对打印输出和其他一些东西都做略过。
还有这个子程序中涉及的变量很多，而且变量的意义也变化，所以下面涉及到的变量我都会在画流程图前加以适当的说明。
1．子程序所涉及的变量及其的意义：有用输入参数：FXN：被积函数。
ACC：所要求的精度。
NDIM：被积函数的变量的个数。
NCALL：投点的总数。
ITMX：要求的叠代的次数。
NPRN：打印的要求（具体要求略过）。
子程序内部的参数及其意义：TI（A VGI）：数值积分的结果。
IT：叠代的次数。
X（I，J）：各随机变量的分布，J表示各个变量。
ERR（SD）：数值积分的误差。
ALPH0：变化区间的参数。
RAND（20）：[0，1]的随机数列。
X（J）：用于积分的坐标等。
2．主要的程序模块和各模块的功能总的流程图：3．各模块的流程图1）初始化设定各个参数该部分的主要工作就是给各参数输入初始值，下面简述各个初始化的参数以及各参数的意义或在以下何模块里要用到。
ALPH=1.5; 这是在7中用到，作为变换分布的参数。
CALLS=NCALL；投点的总数。
XND=ND=50；区间分为50份。
NDM=ND-1=49；为以下处理方便。
IT=0；叠代初始为零。
SI=0；SI2=0；SWGT=0；SCHI=0；SCALLS=0；以上五个变量均是叠代参数，在5中用。
2）初始化内部分布：变量的意义：RC：分层的间隔。
NDIM：变量的个数。
XI（I，J）：变量的区间的分布。
XND：区间分层数。
XNDM=XND-1。
DR：求和号。
初始化的分布是一个均匀分布，实现的流程图如下：3) 初始叠代参数：这不仅仅是初始化的过程了，而是大的循环的一部分，每改变一次变量的分布，就需要初始化叠代参数一次。
下面简述各个初始化的参数以及各参数的意义或在以下何模块里要用到。
IT=IT+1；叠代的次数。
TI=0；积分值清零。
对于FORTRA的初学者。
这些例子可作为小练习1.例题：计算工资问题。
每小时工资为RATE如果工作超过40小时，加班呢部分工资是正常时间工资的1.5倍。
C Payroll with overtimeprogram payrollreal rate, hours, payread (*,*) rate, hoursif (hours>40) thenpay=40*rate+(hours-40)*1.5*rateelsepay=hours*rateEND IFprint *, "rate=" , rateprint *, "hours=" , hoursprint *, "pay=" ,payend2•学生成绩问题。
大于80为A级。
大于60小于80为B级。
小于60为C级。
IF的嵌套。
注意空格可以看清楚else if ,e nd if,pri nt 的内容•PROGRAGRADESTUDENTREA0GRADEIF (GRADE .GE. 80) THENPRINT*,GRADE, "GRADE=>A"ELSEIF (GRADELT.60) THENPRINT*,GRADE"GRADE=>C"ELSEPRINT*,GRADE"GRADE=>B"END IFEND IFEND3. 三个数按从小到大排序。
PROGRA M AXMINREALA,B,C,TREA0A,B,CIF (A.GT.B) THENT=AA=BB=TELSEEND IFIF (B.GT.C) THENT=BB=CC=TELSEEND IFIF (A.GT.B) THENT=AA=BB=TEND IFPRINT*,A,B,CEND4. 运用EISE IF语句。
重做例子2PROGRAM2READ*,*) GRADEIF (GRADE .GE. 80.0) THENPRINT*, GRADE, "=>A"ELSE IF(GRADE .GE. 70.0) THENPRINT*, GRADE, "=>B"ELSE IF(GARDE .GE. 60.0) THENPRINT*, GRADE, "=>C"ELSEPRINT*, GARDE, "=>D"END IFEND3x 6,x 05. 计算y 2x 2x 8,x 0PROGRAEQUATIONREAD*,*) XIF (X .GE. 0.0) Y=3*X+6IF (X .LT. 0.0) Y=-X**2+2*X-8PRINT*, "X=" ,X, "Y=" ,YEND6. CONTINUED句。
