[サブルーチンとプロトタイプ]
SUBROUTINE ATIMA( nnuca, igasa, fntpa, GIValue, rhoa, zpa, mpa,
& za, ma, IValue, stnr, FG )
ATIMA

int nnuca ... ターゲットを構成する元素の数
int igasa ... ターゲットが気体であるか否か
double fntpa ... ??
double GIValue ... 全体としてのイオン化エネルギー
double rhoa ... 密度
int zpa ... プロジェクタイル原子番号
double mpa ... プロジェクタイル質量数
int za[] ... ターゲット構成元素の原子番号
double ma[] ... ターゲット構成元素の質量数
double IValue[] ... ターゲット構成元素のイオン化エネルギー
int stnr[] ... ??
int FG[] ... テーブルの要素数