C                                           *--> FROM COMMON.MODSCB
C  FORECAST COMPONENT MOD CARD COMMON BLOCK
      COMMON /MODSCB/ MAXCRD,NCARDS,MODCRD(20,200)
C