C                                           *--> FROM COMMON.SUMI26
      COMMON/SUMI26/BGNSTL,EMXELV,FLOOD,SPCQOM,STORMX
      LOGICAL FLOOD
C