Help！ FORTRAN整数を渡すと、不正確な浮動小数点数に変換されますか？

Question

スカラーINTEGERを作成してサブルーチンに渡すと、その値が浮動小数点に変換されていて、ひどく不正確です。たとえば、s = 2に設定し、print_my_intを呼び出してコンソールに出力する場所（、）は、2.80259693E-45という値が表示されます。他のスカラー整数もs = 0の場合を除いて同様に振る舞います。この場合、出力は0.0000000です。しかし、これはまだ間違っています。なぜなら、整数は明らかに小数と仮数を表示してはならないからです。これは出力形式の問題ではありません。ローカルに表示されたときに他の整数が正しく表示されるようになるためです。

ここで何が起こっているかについての手掛かりはありますか？引数のデータ型をサブルーチン定義に強制する必要がありますか？これもできますか？

コード例：

PROGRAM print_int 
    INTEGER s 
    s = 2 
    CALL print_my_int(s) 
END PROGRAM print_int 

SUBROUTINE print_my_int(x) 
    WRITE(*,*) x 
END SUBROUTINE print_my_int 

結果の出力：

2.80259693E-45 

Answer 1

さて、時期尚早のポストが、私は同じに動作します誰のためにそれを残しておきます。私はFORTRANでパラメータ型を強制する構文に慣れていません。サブルーチンの定義では、パラメータのデータ型は名前とパラメータのリストの下にあります。含まれていない場合、GNUコンパイラは警告もスコープもしません。私はそれがデフォルトで他のタイプにキャストしていると思います。だから、私の上記の例は...このよう

PROGRAM print_int 
    INTEGER s 
    s = 2 
    CALL print_my_int(s) 
END PROGRAM print_int 

SUBROUTINE print_my_int(x) 
    INTEGER x 
    WRITE(*,*) x 
END SUBROUTINE print_my_int 

Answer 2

ない新しい何かを読む必要があり、ちょうどコメントに適合していないいくつかのコードを提供することにより、インタフェースの使用を指摘したかった：

PROGRAM print_int 
INTERFACE 
    SUBROUTINE print_my_int(x) 
    END SUBROUTINE 
END INTERFACE 
INTEGER s 
s = 2 
CALL print_my_int(s) 
END PROGRAM print_int 

SUBROUTINE print_my_int(x) 
WRITE(*,*) x 
END SUBROUTINE print_my_int 

Answer 3

別の拡張コメント：あなたは宣言セクションの先頭にどこでもimplicit noneを置くことができ、あるいはあなたはサブルーチンを使用して、あなたのプログラムのインターフェイスを置くことができます述べたように、コンパイラは型の不一致エラーがスローされます@steabertよりも単純なプログラム内にサブルーチンを含めることで、コンパイラが明示的なインタフェースを作るように強制し、3行のコードを保存します。暗黙的にサブルーチン内のxの宣言を残すことによって、コンパイラはエラーを検出します。