MODULE Extra_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   INTEGER :: nxtra = 0 ! Number of extra vectors to use in subspace iteration.
END MODULE Extra_Module