C                     
C	
C   MARXER.FOR	
C*  **********************************************
C
	COMMON //NX,NY,NZ,IXMIN,IYMIN,IZMIN,IXMAX,IYMAX,IZMAX
	DIMENSION NXYZ(3),MXYZ(3),NXYZST(3)
	CHARACTER*80 TITLE
	integer*4 nint(100)
	real*4 freal(100)
	DIMENSION IXYZMIN(3),IXYZMAX(3),OUT(9998)
	DIMENSION LABELS(20,10),CELL(6)
	COMPLEX CLINE(4999),COUT(4999)
	CHARACTER*50 INFILE,OUTFILE,FILENAME
        CHARACTER*40 FNAME,ASTRING
	LOGICAL EFLG
	WRITE(6,1000)
1000	FORMAT(//' read map file from gensfc    ')
5	WRITE(6,1100)
1100	FORMAT(/'$Input filename (CR to quit):  ')
	READ(5,1200) INFILE
1200	FORMAT(A)
	IF (INFILE(:5).EQ.'     ') STOP
	  INQUIRE(FILE=INFILE, NAME=FILENAME,EXIST=EFLG)
	  IF (.NOT.EFLG) GOTO 5
        OPEN (UNIT=2,FILE=INFILE,STATUS='OLD',form='unformatted')

C	read HEADER into bline, encode into titles:
	READ(2) (nint(II),II=1,10),(freal(ii),ii=1,6),
     .	 (nint(ii),ii=11,13),(freal(ii),ii=7,9),(nint(ii),ii=14,16)
	write(6,*) (nint(II),II=1,10),(freal(ii),ii=1,6),
     .	 (nint(ii),ii=11,13),(freal(ii),ii=7,9),(nint(ii),ii=14,16)

	close (unit=2)
	end