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

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

	WRITE(6,*)' ENTER TRANSLATION IN X, Y, Z (ANGSTROMS):'
	READ(5,*) (XOFF(I),I=1,3)

49	format (a80)
50 	format (4f10.3,3I5,f8.2,A15)
	read(2,49) astring
	write(3,*) astring
	write(6,*) astring
	read(2,49) astring
	write(6,*)'title from input file:',astring
	write(3,*) astring
	read(2,49) astring
	write(3,*) 'TRANSLATED IN X,Y,Z BY',(XOFF(I),I=1,3)


55	read(2,50,END=501) (v(i),i=1,3),a,I1,I2,I3,B,RESI
 	do 90 i=1,3
90	V(i)=V(i)+XOFF(I)      
C	write(3,50) i1,i2,(w(i),i=1,3),a,b
	WRITE(3,50) (V(i),i=1,3),a,I1,I2,I3,B,RESI
	GOTO 55 

501	CONTINUE
	CLOSE(UNIT=2)
	CLOSE(UNIT=3)
	END