REAL*4 V(3),W(3),RM(3,3),A,B,ANGLE,COSA,SINA
	INTEGER I,J,K,I1,I2,I3
	CHARACTER*15 RESI
	CHARACTER*40 FNAME,matname
	CHARACTER*1 AXIS
	character*80 astring

 30    TYPE *,'ENTER FILE NAME OF RDI FILE TO CONVERT:'
 35    read(5,40)FNAME
	IF (FNAME.EQ.'Q') GOTO 501
 40    FORMAT (A40)
       OPEN(UNIT=2,FILE=FNAME,STATUS='OLD')


       TYPE *,'ENTER FILE NAME FOR OUTPUT:'
       read(5,40)FNAME
       OPEN(UNIT=3,FILE=FNAME,STATUS='NEW')

49	format (a80)
	DO 47 I=1,3
	read(2,49) astring
47	write(6,*) astring
50 	format (4f10.3,3I5,f8.2,A15)
55	read(2,50,END=501) (v(i),i=1,3),a,I1,I2,I3,B,RESI
c12345678901234567890123456789012345678901234567890123456789012345678901234567890
cATOM    478  N   ALA C   6      -9.539   4.454  64.244  1.00 26.78      1ZAA 538
c51 	format ('HETATM',I5,'  N   ALA A   1    ',3f8.3,2f6.2)
c	write(3,51) i3,(v(i),i=1,3),b,a
51 	format ('HETATM',I5,'  N   ALA A',i5,'   ',3f8.3,2f6.2)
	write(3,51) i3,i3,(v(i),i=1,3),b,a
	goto 55
501	CONTINUE
	CLOSE (UNIT=2)
	CLOSE (UNIT=3)
	END