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