*CDK PHOTO2F                                                                       PHOTO2F.1        
      COMMON/PHOTO2/XNOF(IMXP,7)                                                   PHOTO2F.2