perfect absorber simulation
c 345678901234567890123456789012345678901234567890123456789012345678901234567890
c        1         2         3         4         5         6         7         8
c ==============================================================================
c                                  cell cards
c ==============================================================================
1001     1   1.0  101 -102
1002     1   1.0  102 -103
1003     1   1.0  103 -104
1004     1   1.0  104 -105
c 
9999     0         -101:105

c ==============================================================================
c                                surface cards
c ==============================================================================
101   py   0.0
102   py   1.25
103   py   2.5
104   py   3.75
105   py   5.0

c ==============================================================================
c                                  data cards
c ==============================================================================
mode n
cut:n  2j  0  0
imp:n 1 1 1 1 0
sdef  pos = 0.0 0.000000001 0.0
      erg = 75.0
c 
f1:n  105
e1  50  100
c sd2  1
c
wwp:n  5  3  5  0  0  0
wwe:n  50  100
c non-optimized
c wwn1:n   2.29280E-02 2.29267E-02 2.29255E-02 2.29243E-02 -1
c wwn2:n   5.00000E-01 3.70177E-01 2.19849E-01 5.83791E-02 -1
c optimized
wwn1:n      5.79055E-02    5.79024E-02    5.78993E-02    5.78962E-02  -1
wwn2:n      1.00438E-01    7.43594E-02    4.41621E-02    1.17269E-02  -1
c 
mgopt f 2 2
xs1 92250.90m 1.0 iw2gxs 0 1 1 22
m1  92250.90m  1.0
c 
print
rand gen=2 stride=80000
nps 1000000
