






















































































































 


































































































































































 
































































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































module NullGrid_Vars

  implicit none

  REAL*8,    dimension(:,:), pointer, save :: qs, ps, pp
  COMPLEX*16, dimension(:,:), pointer, save :: zz
  REAL*8,    dimension(:),   pointer, save :: xb, xbh, rb,rbh
  INTEGER*4,     dimension(:,:), pointer, save :: guard, EG

  INTEGER*4,               save :: nx
  INTEGER*4, dimension(2), save :: gsh, lsh, lbnd, ubnd
  REAL*8, save :: delta(2)
  REAL*8, save :: rwt, dx, xbin

   
   
   
 
   INTEGER*4, parameter :: ip_n = 1, ip_s = 2

end module NullGrid_Vars

