C                                           *--> FROM COMMON.FRCPTR
      COMMON /FRCPTR/NRC,MRC,MRCF,RCZZ(3,2000)
C