函数与子程序.pptVIP

既能求出圆柱底面积，也能求出体积 函数、子程序 一个完整的较复杂一点的程序应该有…… 主程序 函数 子程序 }过程（固有，外部） 内容 固有函数，函数 子过程 递归(recursive) 固有函数 sin, cos, index, trim, …… 用法 1) write(*,*) sin(x), cos(2.0), trim(‘hhhh_ _’), trim(name) 2) open(1, file = trim(file_name), status=‘old’,action=‘read’) 3) y = cos(x)*sin(1.5) 4) if( sin(x) == 0.0 ) then … endif 函数是 一一 映射 或 多对一 映射 返回的是单值！ 外部 函数 格式 FUNCTION 函数名( 输入变量) RESULT(输出结果) 函数主体 END FUNCTION 函数名 外部 函数 格式 FUNCTION convert_angle( met_angle) RESULT(mat_angle) ！ implicit none ! real, intent(in) :: met_angle real :: mat_angle ! real :: integer :: i, j, k ! …… ! ! END FUNCTION convert_angle 注意： 1）intent(in) intent(inout) intent(in) :: met_angle 不能 met_angle = met_angle + 180. 不允许对 intent(in)变量进行改变！ 一个例子 PROGRAM test ! implicit none ! real :: s, sin_cos ! s = 99. write(*,*) sin_cos(s) ! END PROGRAM test FUNCTION sin_cos(x) RESULT (y) ! implicit none ! real, intent(in) :: x real :: y ! y = sin(x)*cos(x) ! END FUNCTION sin_cos 注意： 函数名要作为 一个变量在 主程序中声明！ 如 左边的 sin_cos 一个例子 PROGRAM test ! implicit none ! real :: s, sin_cos ! s = 99. write(*,*) s write(*,*) sin_cos(s) write(*,*) s ! END PROGRAM test FUNCTION sin_cos(x) RESULT(y) ! implicit none ! real, intent(inout) :: x real :: y ! y = sin(x)*cos(x) x = x + 1.0 ! END FUNCTION sin_cos 名词 (1) 哑元， 实元 哑实结合 数据传递的一种方式 (2)局部变量 不良习惯！改变输入变量， 如左边的x 。 在函数里，不要用inout, 应 全部用in ! 防止改变输入 变量 函数返回单值！(1) FUNCTION sin_cos(x, y) RESULT(y1, y2 ) ! implicit none ! real,intent(in) :: x, y real :: y1, y2 ! y1 = sin(x)*cos(y)