別のコールを使用してコールシステムエラー

Question

私は最近、use IFPORTを使用してrandom_seedとrandom_number(variable)を呼び出す簡単な確率モデルを書き始めました。私のコードの最後に、私は1つcall system('gnuplot -p plot.gnu')追加 - これを次のエラーが発生します。

program abc 
use IFPORT 

!declaration and initialization of variables  
call random_seed 

do while (condition) 
    call random_number(ranval) 
    !computation 
    !write on a file 
end do 

call system('gnuplot -p plot.gnu') 
end program abc 

を次のようにコードがある

>ifort example.f90 
error #6552: The CALL statement is invoking a function subprogram as a subroutine. [SYSTEM] 
call system('gnuplot -p plot.gnu') 
-----^ 

このコードはifortを使用してコンパイルすることはできません。私がuse IFPORTとコメントすると、コードがコンパイルされ、call systemはエラーを起こさない。だから、use IFPORTがrandom_seedとrandom_number()を使用する必要があるかどうかはわかりません。

Answer 1

いいえ、IFPORTを使用する必要はありません。

random_number()とrandom_seed()は固有のFortran 90の手順以降であり、全くモジュールは、それらを呼び出すために使用されなければなりません。

system()は標準ではありませんが、それまでのすべてのコンパイラで組み込みのプロシージャです。ここでも、呼び出すためにモジュールを使用する必要はありません。

system()は、コンパイラによっては、関数としてもサブルーチンとしても使用できます。関数バージョンは

err = system(command) 

と呼ばれ、errは整数変数です。

インテルFortranは、両方のバージョンをサポートしています。ただし、同時に使用できるのは1台だけです！ use IFPORTには、明示的な宣言であるsystem()が含まれているようです。

---

ソリューション：

1. ないuse IFPORTを行います。 またはuse IFPORT, only:を使用して実際に必要なIFPORTのシンボルのみをインポートしてください。

2. 使用する必要がある場合は、機能としてsystem()を使用してください。