PROGRAM reindexmu

c	Reindex a mulist for monoclinc space group by applying crystallographic
c	two-fold along b*

	CHARACTER*65	line
	INTEGER		h, k, l

c	First open input and output files

	WRITE (6, 1000) 'Enter filename for input mulist:'
1000	FORMAT (3a)
	READ (5, 1000) line

	OPEN (unit=1, form='FORMATTED', status='OLD', file=line,
	1	readonly)

	WRITE (6, 1000) 'Enter filename for output mulist:'
	READ (5, 1000) line

	OPEN (unit=2, form='FORMATTED', status='NEW', file=line,
	1	carriagecontrol='LIST')

c	Loop through file

	DO WHILE (.TRUE.)
	  READ (1, 1002, end=9) h, k, l, line
1002	  FORMAT (3i4, a)

	  IF (h .LT. 0) THEN
	    h = -h
	    l = -l
	  endIF

	  WRITE (2, 1002) h, k, l, line
	endDO

9	CLOSE (unit=1)
	CLOSE (unit=2)

	end