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
! 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, uhead  =638

end module units