FEA_JOBNAME は、ジョブ名を取得するために呼び出すことができます。
これは、解析中に追加のファイルを書き込んだり、入力ファイル名を使用する必要がある場合に便利です。
SUBROUTINE FEA_JOBNAME(JNAME) CHARACTER(LEN=240), INTENT(OUT) :: JNAME ENDSUBROUTINE FEA_JOBNAME