Fortran多态
左志华 zuo.zhihua@qq.com
Envir: ThinkPad S2(2018); Windows 10; GNU fortran 10; Git Bash Shell; Notepad++.
关键词：Fortran，数值计算，面向对象，语法
1. 背景
在学习Fortran的过程中，对面向对象编程产生了兴趣，想构建健壮性的程序代码。
Fortran主要应用于科学计算，在核心计算中往往用不到面向对象。在应对算法选择、IO文件操作等工作的时候，尤其是构建相当大的「大型」程序的时候，是有需求的。
Fortran作为科学计算的基础工具之一，对其熟悉和精通有必要提高代码编写的成熟性，健壮性。
o_OOBase.gif
2. 代码
Fortran多态的例子：
! 设置phoneCall模块
module phone_mod
! 代码维护者：左志华 zuo.zhihua@qq.com
private
! <type> <variableName> ! 描述|用途
type, public :: Nokia ! Nokia结构体
! NONE
end type Nokia
type, public :: Iphone ! Iphone结构体
! NONE
end type Iphone
interface phoneCall ! phoneCall接口
module procedure :: nokiaPhoneCall
module procedure :: iphoneCall
end interface phoneCall
private :: nokiaPhoneCall, iphoneCall ! 隐藏多态实现细节
public :: phoneCall ! 向外展示多态接口
contains
subroutine nokiaPhoneCall(n)
type(Nokia) :: n
print *, "I am Nokia."
end subroutine nokiaPhoneCall
subroutine iphoneCall(i)
type(Iphone) :: i
print *, "I am Iphone."
end subroutine iphoneCall
end module phone_mod
! 主程序
program main_prog
! 代码维护者：左志华 zuo.zhihua@qq.com
use phone_mod, only: &
nokia, &
iphone,&
phoneCall
! <type> <variableName> ! 描述|用途
type(Iphone) :: i ! Iphone实例
type(Nokia) :: n ! Nokia实例
call phoneCall(i)
call phoneCall(n)
end program main_prog
Fortran多态
3. 分析
使用Fortran多态，可以将用户编写的if ... end if结构变成可复用性更高的Fortran代码，并将if判断逻辑与操作工作在编译后交给计算机。
参考文献
[1] Modern Fortran explained.
[2] 忆霜晨. Fortran实现多态.
[3] 少秋. 面向对象的三个基本特征
