C                                           *--> FROM COMMON.OLDC
      COMMON /OLDC/ MOLDC,OLDC(3000)
C