函数与子程序课件.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(输出结果)函数主体ENDFUNCTION函数名

外部函数?格式FUNCTIONconvert_angle(met_angle)RESULT(mat_angle)！implicitnone!注意：1）intent(in)real,intent(in)::met_anglereal::mat_angle!intent(inout)real::integer::i,j,k!……!!2)intent(in)::met_angle不能met_angle=met_angle+180.不允许对intent(in)变量进行改变！ENDFUNCTIONconvert_angle

一个例子PROGRAMtest!implicitnone!注意：real::s,sin_cos!s=99.write(*,*)sin_cos(s)!函数名要作为一个变量在主程序中声明！ENDPROGRAMtest如左边的sin_cosFUNCTIONsin_cos(x)RESULT(y)!implicitnone!real,intent(in)::xreal!::yy=sin(x)*cos(x)!ENDFUNCTIONsin_cos

一个例子PROGRAMtest!名词(1)implicitnone!real::s,sin_cos!s=99.write(*,*)s哑元，实元哑实结合数据传递的一种方式write(*,*)sin_cos(s)write(*,*)s!(2)局部变量ENDPROGRAMtestFUNCTIONsin_cos(x)RESULT(y)!implicitnone不良习惯！改变输入变量，!real,intent(inout)::x如左边的x。real::y!在函数里，不要用inout,应全部用in!防止改变输入变量y=sin(x)*cos(x)x=x+1.0!ENDFUNCTIONsin_cos

函数返回单值！(1)FUNCTIONsin_cos(x,y)RESULT(y1,y2)!implicitnone!real,intent(in)::x,yreal!::y1,y2y1=sin(x)*cos(y)y2=sin(y)*cos(x)!Wrong!ENDFUNCTIONsin_cos

函数返回单值！(2)FUNCTIONsin_cos(x,y)RESULT(xy)!implicitnone!real::x,yreal,dimension(2)::xy!xy(1)=sin(y)*cos(x)xy(2)=sin(y)*cos(x)!Wrong!ENDFUNCTIONsin_cos

可选变元?功能：调用时可改变函数内部的执行FUNCTIONadd(x1,x2,x3,if_add)RESULT(sum)!是否可以有多个可选变量？取决于编译器！implicitnone!integer,optional,intent(in)::if_add目前，ifort可以！real,intent(in)::x1,x2,x3real::sumpgf90不行！!PROGRAMtest……if(present(if_add))thensum=(x1+x2)*if_addelsey1=add(4.1,2.3,9.3,2)y2=add(4.1,2.3,9.3)write(*,*)y1,y2……sum=x1+x2+x3endif!!ENDFUNCTIONaddENDPROGRAMtest

?既能求出圆柱底面积，也能求出体积

现场小练习?问题：编写程