svptbl.f

   module svptbl_mod
!---------------------------------------------------------------------

    implicit none
!
    integer,PARAMETER :: nx=7501
    real c1xpvs0,c2xpvs0
    real c1xpvs,c2xpvs
    real tbpvs(nx),tbpvs0(nx)
!
   end module svptbl_mod