*******************************************
*       COMMON BLOCK FOR QERPA
*
*
*******************************************

      REAL RPALE_E(210)
      REAL RPARE_E(210)
      REAL RPALM_E(210)
      REAL RPARM_E(210)
    
      COMMON /QEERPA/RPALE_E,RPARE_E,RPALM_E,RPARM_E