C ---------------------------------------------------------
      COMMON/COM_REF_F/ NCYCLE,ICYCLE,NFUNCT,NGRAD,NSTEP,NBACK
     * ,NSHAKE,IDEBUG
     * ,WEIGHT,SHIFT_LIM,SHIFT_MIN,SHIFT_SHK
     * ,STEP_NEW,STEP_PREV,STEP_PP,DSTEP
     * ,GGRAD,GGRAD_OLD,SS_OLD,GGRAD_2,GGRAD_2D,GGRAD_2E
     * ,ALPHAG,BETAG,GAMMAG,RLAP_T,RLAP_D,RLAP_E
     * ,TFUNCT,TFUNCT_OLD,TFUNCT_S,TFUNCT_PREV,TFUNCT_NEW
     * ,TFUNCT_D,TFUNCT_E,G2_PREV,G2_PP,RESOL
     * ,REF,MOD_D,MOD_E,MOD_R,MOD_MAP,MOD_GRAD
      INTEGER   NCYCLE,ICYCLE,NFUNCT,NGRAD,NSTEP,NBACK,NSHAKE
      REAL      TFUNCT,TFUNCT_OLD,TFUNCT_S,TFUNCT_PREV,TFUNCT_NEW
     *         ,TFUNCT_D,TFUNCT_E,G2_PREV,G2_PP,RESOL
      REAL      WEIGHT,SHIFT_LIM,SHIFT_MIN,SHIFT_SHK
     *         ,STEP_NEW,STEP_PREV,STEP_PP,DSTEP
      REAL      GGRAD,GGRAD_OLD,SS_OLD,GGRAD_2,GGRAD_2D,GGRAD_2E
     *         ,ALPHAG,BETAG,GAMMAG,RLAP_T,RLAP_D,RLAP_E
      CHARACTER REF*1,MOD_D*1,MOD_E*1,MOD_R*1,MOD_MAP*1,MOD_GRAD*1
C ---------------------------------------------------------
      COMMON/COM_REF_F2/ TFUNCT_PP,SHIFT_LIM_B,SHIFT_LIM_S
C ---------------------------------------------------------
      COMMON /ATOM_SHFT/  SHIFT_AVER,SHIFT_RMS,SHIFT_MAX
     *                   ,SHIFT_ATOM,SHIFT2_ATOM,IPOINTER_VAR
      REAL    SHIFT_ATOM   (3,MAXATOM)  
      REAL    SHIFT2_ATOM  (3,MAXATOM)  
      REAL    SHIFT_AVER,SHIFT_RMS,SHIFT_MAX
      INTEGER IPOINTER_VAR(MAXATOM)
C ----------------------------------------------------------