MODULE Pass_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(Kind=WP_Kind) gtot   !
END MODULE Pass_Module