program prephyd1 character*80 ts open(8,file='HYD1.INP',status='old') open(9,file='AUTO') write(9,*)'hy chy ky ry dy ty ny' close(9) open(9,file='gohyd') 11 read(8,80,end=999,err=999)ts 80 format(A80) write(6,80)ts do 1 i=1,LEN(ts) 1 if(ts(i:i).eq.'.')goto 2 2 il=i-1 do 3 i=1,LEN(ts) 3 if(ts(i:i).eq.' ')goto 4 4 ie=i-1 write(9,*)'cp '//ts(1:ie)//' SOL.XYZ' write(9,*)'hydr' write(9,*)'new4' write(9,*)'new5' write(9,*)'cp DOG.TAB '//ts(1:ie)//'.tab' write(9,*)'cp FILE.FC '//ts(1:ie)//'vac.fc' goto 11 999 close(8) close(9) write(6,*)'gohyd script made' stop end