【Fortran学习笔记4】--子程序和函数_fortran子程序中定义函数-CSDN博客

本文链接：https://blog.csdn.net/weixin_62037267/article/details/136583072

本文介绍了Fortran编程中的子程序、自定义函数、全局变量的使用，包括函数参数传递、接口声明、模块结构、递归、内部函数、模块命令以及函数重载的概念。同时提到了函数入口点的使用注意事项。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、子程序

写程序时候，可以把一段经常使用的、具有特定功能的程序代码独立处理爱，封装成子程序，以后只需要使用call调用就可以执行这一程序

Program example
== ==
    call message
    call add(a,b)
end

subroutine message()
    write(*,*)"Hello"
return
end

subroutine add(first,second)
    implicit none
    integer::first,second
    write(*,*)first+second
return
end

二、自定义函数

自定义程序的也需要调用才能执行，也可以独立声明，但是和子程序有两点不同。

①调用自定义函数前需要声明

②自定义函数会返回一个数值

Program example
implicit none
integer::a=2,b=3
integer,external::add
!调用函数add，不需要使用call命令
end

function add(first,second)
    implicit none
    integer::first,second
    integer::add
    add=first+second
return
end

调用函数add，不需要使用call命令

也可以简单定义函数，此时无需调用。

Program example
implicit none
    real::a=1
    real::b
    real::add
    add(a,b)=a+b
    write(*,*)add(a,3.0)
end

三、全局变量

1、全局变量定义

Program example
    integer::a,b,c,d,f
common a,b,c,d,f
a=1
b=2
call show()
write(*,*)a,b
end

subroutine show()
    implicit none
    integer::num1,num2,num3,num4,num5,num6
    common num1,num2,num3,num4,num5,num6
    num1=5
return 
end

2、设置变量组

Program example
    integer::a,b,c,d，e,f
    common /group1/a,b,c
    common /group2/d,e,f
    data a,b,c/1,2,3/
    data d,e,f/4,5,6/

    call show()
    write(*,*)a,b
end

subroutine show()
    implicit none
    integer::num1,num2,num3,num4,num5,num6
    common /group1/num1,num2,num3
    common /group2/num4,num5,num6
    num1=34
    num2=25
return 
end

3、变量的生命周期

通常子程序/函数使用结束后，其变量也会随着程序而消除。使用save命令可以使局部变量的生命周期延长直到整个程序结束。

子程序中：

integer::i

save i

四、函数参数的传递

1、参数传递

func(num,f)

!参数可以是任何数据类型，也可以是函数

real，intrinsic：：sin ！声明sin是库函数

2、参数的只读 intent

在Fortran中，子程序内部变量可以影响局部变量的，可以用intent声明参数只是可读的