fortran中module的使用问题

schLltt

module ma
    implicit none
    integer a,b
contains
   subroutine getx(a,b)
     implicit none
     write(*,*) a+b
   end subroutine
end module

program main
    use ma
    implicit none
    call getx(1,2)
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
module ma
    implicit none
    integer a,b
contains
   subroutine getx()
     implicit none
     write(*,*) a+b
   end subroutine
end module

program main
    use ma
    implicit none
    a=1
    b=2
    call getx()
end

！！！！！！！！！！！！！！！！！！
请问谁能解答一下，为什么按照第一种写法会出错，而第二种写法就不会报错呢

ningking1986

你的第一个程序中
subroutine getx(a,b)
     implicit none
     write(*,*) a+b
   end subroutine
a和b出现在dummy argument列表中。但是你在subroutine中并没有对其进行声明，
所以出错。
而且要注意，在其他用到已经定义的module的program unit（main program，subroutine, function, module 等） 中声明的变量尽量不要与module中已经声明的变量重名。

schLltt

ningking1986 发表于 2015-1-7 18:31
你的第一个程序中
subroutine getx(a,b)
     implicit none

您好，请问subroutine getx(a,b)括号里出现的a,b不就是module中声明的a,b吗？dummy agrument指的是subroutine getx(a,b)里用于接收参数的a,b，还是subroutine里声明的所有参数啊？

ningking1986

schLltt 发表于 2015-1-7 19:50
您好，请问subroutine getx(a,b)括号里出现的a,b不就是module中声明的a,b吗？dummy agrument指的是subrou ...

subroutine getx(a,b) 中的a,b 与你module中声明的a,b没有任何关系，他们只是虚参数（dummy argument）用来接收传给子程序的实参的指针。
module ma
    implicit none
    integer a,b
contains

subroutine getx(a,b)
     implicit none
     integer,intent(in):: a
     integer,intent(in):: b
     write(*,*) a+b
   end subroutine
end module

program main
    use ma
    implicit none
   
    call getx(1,2)
end

这样应该能行。不过你在module中声明的a,b还没有进行初始化。

schLltt

ningking1986 发表于 2015-1-7 20:26
subroutine getx(a,b) 中的a,b 与你module中声明的a,b没有任何关系，他们只是虚参数（dummy argument）用 ...

非常感谢！说的很清楚呢！