      CHARACTER*16 METHOD ! 'GAUSS_JORDAN' or 'DIAGONALISE'
      CHARACTER*16 PROFILE_METHOD ! 'RAW' or 'CORRECTED'
      CHARACTER*32 PLOT_TYPE
      INTEGER PLOT_IORB
*
      COMMON /MODES/ METHOD, PROFILE_METHOD, PLOT_TYPE
      COMMON /IMODES/ PLOT_IORB
