character*132 line character*40 flname,outname,imagefile,rflfile character*2 number character*10 base real*4 crysx,crysy,crysz,cella,cellb,cellc,beamx,beamy,oscstrt WRITE(6,*)'PROGRAM TO EXTRACT R-value from protein fc OUTPUT' WRITE(6,*) write(6,*)' Enter name of fc log file:' read(5,11) flname 11 format(a40) open(unit=2,file=flname,status='old',recl=132) open(unit=9,file='fc.rsl',status='new',recl=180, $ carriagecontrol='list') 30 read(2,31,end=200) line 31 format(a132) if (line(:9).ne.' R-VALUE') goto 30 DO 40 I=1,3 40 read(2,31) line WRITE(6,*) 'R-factor: ',LINE(:50) WRITE(9,*) 'R-factor: ',LINE(:50) C*** goto 30 200 close (unit=2) close (unit=9) end