module bycmn

  integer, parameter :: MXMN = 20
  integer, parameter :: MXLV = 150

  real*8 :: r8in( MXMN, MXLV ), r8wk( MXMN, MXLV )

end module bycmn