C---------------------------------------------------------------------------
	SUBROUTINE WRITJNS(filename,STATUS)
C---------------------------------------------------------------------------
C	Write out a file in JONES Format
C
C---------------------------------------------------------------------------
	INTEGER STATUS
	CHARACTER*(*) filename

	include 'shared$common'

	OPEN(UNIT=OUT,NAME=filename,TYPE='NEW',FORM='FORMATTED',
	1	CARRIAGECONTROL='LIST',err=99,defaultfile='.JONES')

	DO I=1,NPOINT(nfil)
	  WRITE(OUT,'(2F10.3)',err=3) BX(I,nfil),B(I,nfil)
	ENDDO
	CLOSE(UNIT=OUT)
	STATUS = 0
	RETURN

99	STATUS = 1
	RETURN

3	STATUS = 2
	CLOSE(UNIT=OUT)
	RETURN
	END
