MODULE Qstate_Module
   IMPLICIT NONE
   SAVE
   INTEGER jval, nu, Elec
END MODULE Qstate_Module