LOOKUP.f

  module  lookup_mod
!
  implicit none
!
  integer,parameter :: itb=076,jtb=134,itbq=152,jtbq=440 
  real :: pl,thl,rdq,rdth,rdp,rdthe,plq,rdpq,rdtheq

  real,dimension(JTB)  :: qs0,sqs
  real,dimension(ITB)  :: the0,sthe
  real,dimension(ITBQ) :: the0q,stheq
  real,dimension(ITB,JTB) :: ptbl
  real,dimension(JTB,ITB) :: ttbl
  real,dimension(JTBQ,ITBQ) :: ttblq
!
  end module lookup_mod