c#subroutine ftchuz     srs     v1.0     jan, 1981
	subroutine ftchuz(ifmt)
c
c	this routine asks the user for a coordinate
c	file format designator. The following alt-
c	ernatives are available:
c
c	Protein Data Bank (PDB) ..... ifmt=1
c	Kraut ....................... ifmt=2
c	Diamond (as used by FRODO) .. ifmt=3
c	Hendrickson ................. ifmt=4
c	Shapley Moldels (write only). ifmt=5
c	From Hendrickson (read only)  ifmt=6
c
c	If it becomes desirable to extend this list
c	of formats, the programs HEADR, RDREC, WTREC,
c	TAILR must also be modified to accomidate
c	the new format. This should be trivial in 
c	most cases.
c
c******************************************************
c&
10	print *,' '
    	print *, ' Input/output format types'
        print *, ' available formats are:'
        print *, ' BROOKHAVEN.............. 1'
        print *, ' KRAUT .................. 2'
        print *, ' DIAMOND ................ 3'
        print *, ' HENDRICKSON ............ 4'
	print *, ' SHAPLEY    (write only)  5'
	print *, ' FROM HENDRICKSON (read only) 6'
	print *, ' '
        print *, ' Please choose a number to decribe input or output'
	read (5,5000) ifmt
5000	format(i5)
	if( ifmt .le. 0) stop
	if( ifmt .gt. 6) then
		print *,' never heard of it'
		go to 10
	else
	return
	endif
	end
