	PROGRAM		FIXIDS
 	
	IMPLICIT  	NONE
	INTEGER   	N, NN

	OPEN (UNIT=20,FILE='FIXIDS.EDG',CARRIAGECONTROL='LIST',STATUS='NEW')

	WRITE (20,100) 
 100    FORMAT (' SET SEA/LEVEL=11-12/TYPE=4')

	NN = 3049
	DO N = 1,NN

	WRITE (20,110) 
 110    FORMAT ('  ')


	WRITE (20,130)  N
 130    FORMAT (' MOD ELEM(14)=', I5 )

	ENDDO

 	WRITE (20,230) 
 230    FORMAT (' EX')

	END
	
