指定したファイルを読み込み専用でiRIClibから利用するため、内部変数を初期化する。
call cg_iric_initread_f(fid, ier)
ier = cg_iRIC_InitRead(fid);
cg_iRIC_InitRead(fid)