ipn4b - Like m but y CTRL
c
c     INSTITUTO POLITECNICO NACIONAL
c     Elaboro: ADL
c     Email: arturo.delfin@inin.gob.mx
c
c     -- Fecha de elaboracion del archivo de entrada: --
c        19 de Septiembre de 2016
c
c     Tarjeta de Celdas
c    ==> Anaranjado claro, Universo 7 <==
1    110  -18.724760  -10      u=7   imp:n 1 $ Combustible
2    120  -0.9982070  +10      u=7   imp:n 1 $ Agua infinita
c
c    ==> Mundo real <==
5      0    -20    fill=7  lat=1  u=9   imp:n 1  $ Malla infinita de elementos
6      0    -30    fill=9               imp:n 1  $ Caja de arreglo 9x9 elementos
7      0    +30                         imp:n 0  $ Universo vacio exterior
c

c    Tarjeta de Superficies
c
10    rcc  0.  0.  0.    0.  0. +360.  0.49  $ Cilindro para Combustible
20    rpp  -.7  +.7    -.7  +.7    0.  +360. $ Caja para elemento combustible
30    rpp -6.3 +6.3   -6.3 +6.3    0.  +360. $ Caja arreglo de 9x9 elementos
c

c Tarjeta de Datos
c
kcode 1000 1.0 25 100
ksrc  0.  0.  180.
c
m110    $ Combustible HEU
       92234   0.009800
       92235   0.931550
       92236   0.004500
       92238   0.054150
c
m120    $ Agua Moderador
        1001   0.111894  $ H
        8016   0.888106  $ O
c