




















































































































 


































































































































































 























































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                




































module NullDecomp_Vars
  INTEGER*4 :: MyProc = -1
  INTEGER*4 :: NumProcs = -1
  INTEGER*4 :: lmax = 9
  INTEGER*4 :: lq, uq, lp, up
  INTEGER*4 :: sum_handle
  INTEGER*4 :: min_handle
  INTEGER*4 :: max_handle

  REAL*8, DIMENSION(:,:,:), pointer :: kern_p
  REAL*8, DIMENSION(:,:), pointer :: area_p
end module NullDecomp_Vars
