Fortran的两种显式接口：模块化和interface

最新推荐文章于 2025-02-05 08:48:12 发布

wjfqvi

最新推荐文章于 2025-02-05 08:48:12 发布

阅读量7.9k

点赞数 11

CC 4.0 BY-SA版权

分类专栏： Fortran

本文链接：https://blog.youkuaiyun.com/weixin_43880667/article/details/84836145

写一个subroutine，如果形参给定数组元素个数，可以正常编译运行

subroutine abc(a)
    implicit none 
    integer :: a(3)
    a(1)=1
    a(2)=2 
end subroutine


program main
    implicit none 

    integer :: a(3)=(/5,5,5/)

    call abc(a)

    write(*,*) a 
end

如果在subroutine里面写数组元素个数，会产生错误

subroutine abc(a)
    implicit none 
    integer :: a(:)
    a(1)=1
    a(2)=2 
end subroutine


program main
    implicit none 

    integer :: a(3)=(/5,5,5/)

    call abc(a)

    write(*,*) a 
end

错误信息：

$ gfortran 2.f90
2.f90:14:12:

     call abc(a)
            1
Error: Explicit interface required for ‘abc’ at (1): assumed-shape argument

解决方法1：
将过程放在模块中创建显示接口：

module mm

contains 

subroutine abc(a)
    implicit none 
    integer :: a(:)
    a(1)=1
    a(2)=2 
end subroutine
end module

program main
    use mm
    implicit none 

    integer :: a(3)=(/5,5,5/)

    call abc(a)

    write(*,*) a 
e