MODULE Fast_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   INTEGER(KIND=IW_Kind) iover   !
   INTEGER(KIND=IW_Kind) irpc    !
   INTEGER(KIND=IW_Kind) nstv    !
   INTEGER(KIND=IW_Kind) iinter  !
   INTEGER(KIND=IW_Kind) jrold   !
   INTEGER(KIND=IW_Kind) nsch1   !
   INTEGER(KIND=IW_Kind) njunk   !
   INTEGER(KIND=IW_Kind) isvtyp  !
   INTEGER(KIND=IW_Kind) iaccn   !
   REAL(Kind=WP_Kind) shift1  !
   REAL(Kind=WP_Kind) shift2  !
END MODULE Fast_Module