    module variables
!
! Dimension 1D variable
!
      integer, parameter         :: kmax=20
      real,dimension(kmax)       :: pr       !

      DATA pr/50.,100.,150.,200.,250.,300.,350.,400.,450.,500.,           &
     &        550.,600.,650.,700.,750.,800.,850.,900.,925.,1000./
    
     end module variables
