$ASSIGN ATLAS12:AT8750G40I.DAT FOR003
$ASSIGN ATLAS12:AT8750G38I.NEW FOR007
$ASSIGN POOLG:AT8750G38I.13 FOR013
$ASSIGN 4LINES:LINESAT8650G40A.DAT FOR012
$ASSIGN ATLAS12:BNLTELINES.DAT FOR019
$!RUN ATLAS12:ATLAS12.EXE
$RUN 4ATLAS12:ATLAS12.EXE
READ PUNCH
GRAVITY 3.8
ABUNDANCE TABLE
    1H   0.911000       2He  0.089000
    3Li-10.880-2.000    4Be-10.890-2.000     B  -9.440-2.000    6C  -3.480-0.370    7N  -3.990
    8O  -3.110          9F  -7.480-2.000     Ne -3.950-2.000   11Na -5.710-2.000   12Mg -4.460-2.000
   13Al -5.570-2.000   14Si -4.490-2.000     P  -6.590-2.000   16S  -4.830-2.000   17Cl -6.540-2.000
   18Ar -5.480-2.000   19K  -6.820-2.000     Ca -5.680-2.000   21Sc -8.940-2.000   22Ti -7.050-2.000
   23V  -8.040-2.000   24Cr -6.370-2.000     Mn -6.650-2.000   26Fe -4.540-2.000   27Co -7.120-2.000
   28Ni -5.790-2.000   29Cu -7.830-2.000     Zn -7.440-2.000   31Ga -9.160-2.000   32Ge -8.630-2.000
   33As -9.670-2.000   34Se -8.690-2.000     Br -9.410-2.000   36Kr -8.810-2.000   37Rb -9.440-2.000
   38Sr -9.140-2.000   39Y  -9.800-2.000     Zr -9.540-2.000   41Nb-10.620-2.000   42Mo-10.120-2.000
   43Tc-20.000-2.000   44Ru-10.200-2.000     Rh-10.920-2.000   46Pd-10.350-2.000   47Ag-11.100-2.000
   48Cd-10.180-2.000   49In-10.580-2.000     Sn-10.040-2.000   51Sb-11.040-2.000   52Te -9.800-2.000
   53I -10.530-2.000   54Xe -9.810-2.000     Cs-10.920-2.000   56Ba -9.910-2.000   57La-10.820-2.000
   58Ce-10.490-2.000   59Pr-11.330-2.000     Nd-10.540-2.000   61Pm-20.000-2.000   62Sm-11.040-2.000
   63Eu-11.530-2.000   64Gd-10.920-2.000     Tb-11.940-2.000   66Dy-10.940-2.000   67Ho-11.780-2.000
   68Er-11.110-2.000   69Tm-12.040-2.000     Yb-10.960-2.000   71Lu-11.280-2.000   72Hf-11.160-2.000
   73Ta-11.910-2.000   74W -10.930-2.000     Re-11.770-2.000   76Os-10.590-2.000   77Ir-10.690-2.000
   78Pt-10.240-2.000   79Au-11.030-2.000     Hg-10.950-2.000   81Tl-11.140-2.000   82Pb-10.190-2.000
   83Bi-11.330-2.000   84Po-20.000-2.000     At-20.000-2.000   86Rn-20.000-2.000   87Fr-20.000-2.000
   88Ra-20.000-2.000   89Ac-20.000-2.000     Th-11.920-2.000   91Pa-20.000-2.000   92U -12.510-2.000
   93NP-20.000-2.000   94Pu-20.000-2.000     Am-20.000-2.000   96Cm-20.000-2.000   97Bk-20.000-2.000
   98Cf-20.000-2.000   99Es-20.000-2.000
CONVECTION OFF
ITERATIONS 15 PRINT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
PUNCH 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1
TITLE ATLAS12 RADIATIVE
BEGIN
END