Fortran笔记，重载&自定义操作符&继承Module

alphabet_long

于 2022-02-20 00:17:12 发布

阅读量1.3k

点赞数 1

分类专栏： Fortran 文章标签： fortran

本文链接：https://blog.csdn.net/qq_21091051/article/details/123025539

版权

参考：彭国伦：《Fortran 95程序设计》，2002年，第11章

1. 重载（overload）

2. 自定义操作符

3. 继承Module

1. 重载（overload）

概念：函数名称相同，但参数类型、数目不同的函数。程序会自动根据输入的参数，来决定要调用哪一个函数。

实现：使用interface来定义一个虚拟函数（即所谓相同的函数名），并给出虚拟函数的实现方式（即参数类型、数目不同的函数具体实现）。

示例：

module mod_show
    implicit none
    
    ! 函数的重载
    interface show
        module procedure show_int
        module procedure show_character
    end interface
    
contains

subroutine show_int(n)
    implicit none
    integer :: n
    write(*,*) n
end subroutine show_int
    
subroutine show_character(string)
implicit none
    character(len=*) :: string
    write(*,*) TRIM(string)
end subroutine show_character
    
end module

program case_overload
use mod_show
implicit none
    call show(333)
    call show("666")
stop
end program

结合示例分析，虚拟函数即show。其有两个版本，一个是输入参数类型为integer，另一个为characater(len=*)。其实现时所使用的函数名并无要求，只要能对应interface中的即可。

注意，Fortran并没有将重载函数的具体实现封装起来。也就是说不允许通过private来限制具体实现的函数。在use这个module的地方，也可直接调用具体实现的函数（此处即为show_int(), show_character()）。