08/01/03 13:25:10
>>62
module inteの部分を
module inte
use check
implicit none
interface check_vector
module procedure check_vector_int, check_vector_double
end interface check_vector
end module inte
として module check よりも後ろに持って行く。
（checkモジュールができるよりも後にコンパイルされるようにする）
または、module checkの先頭部分を以下の様にする。
module check
implicit none
private
public :: check_vector
interface check_vector
module procedure check_vector_int, check_vector_double
end interface check_vector
contains
・・・