モジュールから関数を呼び出す

Question

私は何かを本当に簡単にしようとしていますが、モジュールで定義されている関数を呼び出すだけですが、機能していません。

これは私は、これはここに

testMod.f90:3.4: 

use doubleMod 
    1 
testMod.f90:8.15: 

call double(n) 
       2 
Error: 'double' at (1) has a type, which is not consistent with the CALL at (2) 

コード モジュールでエラーであるLinuxの

gfortran -o testingMOD testMod.f90 doubleMod.f90 

を使用して、それをコンパイルするために行うものです。

module doubleMod 
implicit none 

contains 
function double (n) 
    implicit none 
    integer :: n, double 

    double = 2*n 
    write(*,*) double 
end function double 

end module doubleMod 

ファイルの呼び出しそれ：

program testMod 

use doubleMod 

implicit none 
integer :: n = 3 

call double(n) 

end program testMod 

Answer 1

Fortranには、関数とサブルーチンの2種類の主要なプロシージャがあります。関数は値を返すので、式の中で呼び出されます。例：値を返さない

a = myfunc(b) 
print*, myfunc(a) 

サブルーチンは、彼らが呼び出される必要があります。

call mysub(a, b) 

が callに関数をしようとか、式の中でサブルーチンを使用する構文エラーです。あなたのケースでは

、あなたはどちらかはサブルーチンにdoubleを変換することができます：

subroutine double(n) 
    implicit none 
    integer, intent(inout) :: n 
    n = 2 * n 
end subroutine double 

その後doubleへのごcallが倍増するnの値になります。

ORあなたがdoubleを呼び出す方法を変更することができます。

program testMod 
    use doubleMod 
    implicit none 
    integer :: n 
    n = 3 
    n = double(n) 
    print*, n  ! prints 6 
end program testMod