C                                           *--> FROM COMMON.XMDAY
      COMMON/XMDAY/MMO,MDAY,MYEAR,MHR
C