15 lines
712 B
Fortran
15 lines
712 B
Fortran
module units
|
|
! STANDARD
|
|
integer, parameter :: uprm = 2, ubeam = 97, uprf = 98, ueq = 99
|
|
integer, parameter :: uprfin = 55, uflx = 56, ubres = 70, ucnt = 71
|
|
integer, parameter :: uprj0 = 8, uwbm = 12, ucenr = 4, uoutr = 33
|
|
integer, parameter :: udisp = 17, upec = 48, usumm = 7, umaps = 72
|
|
integer, parameter :: uhead = 78
|
|
! JINTRAC
|
|
! integer, parameter :: uprm =602, ubeam =603, uprf =644, ueq =644
|
|
! integer, parameter :: uprfin =645, uflx =646, ubres =630, ucnt =631
|
|
! integer, parameter :: uprj0 =608, uwbm =612, ucenr =604, uoutr =633
|
|
! integer, parameter :: udisp =617, upec =648, usumm =607, umaps =632
|
|
! integer, parameter :: uhead =638
|
|
|
|
end module units |