C                                           *--> FROM COMMON.FRCPT2
      COMMON /FRCPT2/NRC2,MRC2,MRCF2,RCZZ2(3,2000)
C