定义子例程序时变量选用了派生数据类型，变量类型不匹配

dugujiansheng · 发表于 2021-8-17 21:13:05

代码时下面就这个简单的代码

[Fortran] 纯文本查看 复制代码

program test
    implicit none
    real(kind=8) :: a
    type :: mytype
    real :: kk
    end type mytype


    type(mytype) :: tt(2)

    a=1
    write(*,*) tt(1)
    write(*,*) tt(2)
    call funcs_syn(a,tt)

end program test

subroutine funcs_syn(wavei,AtmospherePara)

real(kind=8) wavei
    type :: mytype
    real :: kk
    end type mytype
  type(mytype) :: AtmospherePara(2)  
  return
end

结果报错时出现这个1>c:\users\admin\documents\visual studio 2010\Projects\Console7\Console7\Console7.f90(28): error #6633: The type of the actual argument differs from the type of the dummy argument. [TT]
1>compilation aborted for c:\users\admin\documents\visual studio 2010\Projects\Console7\Console7\Console7.f90 (code 1)

我用的visual fortran 求大神帮忙解答

Transpose · 发表于 2021-8-17 22:00:48

本帖最后由 Transpose 于 2021-8-17 22:01 编辑

type的定义无法传递给子程序，即使是相同的定义方式，也无法认为是同一个类型。子程序使用type必须要借助module,

[Fortran] 纯文本查看 复制代码

module mytype
    implicit none
    type m
        real::a
    end type m
end module mytype

program main
    use mytype
    implicit none
    type(m)::b
    b%a=2.0
    call test(b) 
end program main

subroutine test(b)
    use mytype
    implicit none
    type(m)::b
    write(*,*)b%a
end subroutine test

[派生类型] 定义子例程序时变量选用了派生数据类型，变量类型不匹配

评分

规矩勋章