C                                           *--> FROM SCOMMON.SUDDSX
C  DATA FILES ALLOCATED, OPENED AND WRITTEN TO COMMON BLOCK
      COMMON /SUDDSX/ IDBFIL,IDBALC(10),IDBOPN(10),IDBWRT(10),
     *   IDBSAV(10)
C