計算データファイルを開く処理、閉じる処理の記述

計算データファイルを開く処理、閉じる処理を記述します。

ソルバーは、処理開始時に計算データファイルを開き、終了時に計算データファイルを 閉じる必要があります。

iRIC は引数として計算データファイルのファイル名を渡すため、 そのファイルを開きます。

引数の数と引数を取得するための方法は、コンパイラによって異なります。 Intel Fortran Compiler, gfortran での引数の取得方法を Fortran プログラムでの引数の読み込み処理 で説明していますので、参考にしてください。 ここでは、Intel Fortran Compiler でコンパイルする場合の方法で記述します。

計算データファイルを開く処理と閉じる処理を追記したソースコードを リスト 7 に示します。強調して示したのが追記した部分です。

リスト 7 計算データファイルを開く処理、閉じる処理を追記したソースコード
 1program SampleProgram
 2  implicit none
 3  include 'cgnslib_f.h'
 4  include 'iriclib_f.h'
 5  integer:: fin, ier
 6  integer:: icount, istatus
 7  character(200)::condFile
 8
 9  write(*,*) "Sample Program"
10
11  icount = nargs()
12  if ( icount.eq.2 ) then
13    call getarg(1, condFile, istatus)
14  else
15    write(*,*) "Input File not specified."
16    stop
17  endif
18
19  ! 計算データファイルを開く
20  call cg_open_f(condFile, CG_MODE_MODIFY, fin, ier)
21  if (ier /=0) stop "*** Open error of CGNS file ***"
22
23  ! 内部変数の初期化
24  call cg_iric_init_f(fin, ier)
25  if (ier /=0) STOP "*** Initialize error of CGNS file ***"
26  ! オプションの設定
27  call iric_initoption_f(IRIC_OPTION_CANCEL, ier)
28  if (ier /=0) STOP "*** Initialize option error***"
29
30  ! 計算データファイルを閉じる
31  call cg_close_f(fin, ier)
32  stop
33end program SampleProgram

骨組みの作成 と同様に、ファイルのコンパイルと、 実行プログラムの配置を行います。

骨組みの作成 と同様の手順で、iRIC からソルバーが正しく起動できるか 確認します。エラーメッセージが表示されずに終了すれば成功です。

この節で追加した関数の詳細については、 CGNS ファイルを開く, 内部変数の初期化, CGNSファイルを閉じる を参照してください。