C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        SUBROUTINE      SAT007(IDATE, ITIME, ISATLAN, ISATFIL,
     * IRAD, ISIDA, ILSTLAN)
C
C       STRUKTURERAD AT.!
C
C       HISTORIK:
C       DATUM           NAMN                    ORSAK
C       01-JAN-83       LARS-G\RAN OLSSON       URUPPF\RANDE
C
C       FUNKTION:
C       SKRIVER UT SIDBYTE
C
C       INDATA:
C       IDATA   -       AKTUELLT SATUM
C       ITIME   -       AKTUELL TID
C       ISATLAN -       ANTAL TECKEN I ISATFIL
C       ISATFIL -       FILNAMN P] SATFIL
C       ILSTLAN -       ANTAL TECKEN I ILSTFIL (>0 FIL FINNS)
C
C       IN/UTDATA:
C       IRAD    -       ANTAL UTSKRIVNA RADER P] AKTUELL SIDA
C       ISIDA   -       AKTUELL SIDA
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
        LOGICAL*1       ISATFIL(30)     
        INTEGER         ISATLAN         
        INTEGER         ILSTLAN         
        INTEGER         IRAD            
        INTEGER         ISIDA           
        LOGICAL*1       IFF(1)          
        DATA            IFF/12/         
        LOGICAL*1       ILF(1)          
        DATA            ILF/10/         
        LOGICAL*1       IDATE(9)        
        LOGICAL*1       ITIME(8)        
        LOGICAL*1       IRLSTUT(255)    
        INTEGER         I               
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
3       FORMAT(1X,255A1,A1,A1)
307     FORMAT(1X,A1,'STRUCTURED AT.',18X,9A1,7X,8A1,8X,'PAGE',4X,I3)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IF(.NOT.    (ILSTLAN .GT. 0))GOTO 30016
        ISIDA = ISIDA + 1
        WRITE(3,307)IFF,IDATE,ITIME,ISIDA
        IRAD = 1
        WRITE(3,3)(ISATFIL(I),I=1,ISATLAN),ILF,ILF
        IRAD = IRAD + 3
30016  CONTINUE
30079  CONTINUE
        RETURN
        END