CIPRIME CNSPRE                                                          CNSPRE      1
      COMPLEX RELEM,CELEM                                               CNSPRE      2
      COMMON /SCRAT1/ RELEM(NPL3/2),CELEM(NPL3/2),INDEX(NB),LNFAC       CNSPRE      3
