     	SUBROUTINE WRWX3
C
C  PROGRAMMER:  R. L SNYDER
C		ALFRED UNIVERSITY   MAR-1988
C
C	THIS ROUTINE WRITES OUT A NSLS-X3 (SUNY) RAW DATA FILE
C	FROM THE COMMON BLOCKS
C
     	INCLUDE 'FILECONV.CBS'

     	CALL CURSOR( 23, 1 )
     	CALL COLORS(-1)
     	CALL COLORS(80)
     	WRITE(6,111)
111	FORMAT(' _Sorry. This particular conversion routine has not',
     	1' been written yet.')
     	CALL PAUSES( 3 )
     	IERR= 3

C     	CLOSE( UNIT=IOUT )
C     	OPEN( UNIT=IOUT, FILE=FILOUT, STATUS='NEW', FORM='FORMATTED',
C     	1 CARRIAGECONTROL='LIST', ERR=888 )
C
C     	GOTO 999
C888	IERR = 1
999	RETURN
     	END
