C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
	SUBROUTINE	SAT007(IDATE, ITIME, ISATLAN, ISATFIL,
	1 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
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	LOGICAL*1	ISATFIL(30)	< FILNAMN SAT FIL
	INTEGER		ISATLAN		< ANTAL TECKEN I ISATFIL
	INTEGER		ILSTLAN		< ANTAL TECKEN I ILSTFIL
	INTEGER		IRAD		< ANTAL UTSKRIVNA RADER P] AKT. SIDA
	INTEGER		ISIDA		< AKTUELL SIDA
	LOGICAL*1	IFF(1)		< ASCII FORMFEED
	DATA		IFF/12/		< SE OVAN	
	LOGICAL*1	ILF(1)		< ASCII LINEFEED
	DATA		ILF/10/		< SE OVAN
	LOGICAL*1	IDATE(9)	< DATUM
	LOGICAL*1	ITIME(8)	< TID
	LOGICAL*1	IRLSTUT(255)	< RESERV UTRAD TILL LST-FIL
	INTEGER		I		< R[KNARE
C
	'PAGE'
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
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	'IF'	(ILSTLAN .GT. 0)
	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
	'ENDIF'
	RETURN
	END