program prephyd2 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='gohydcct') 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,*)'mv FILE.FC SMALL.FC' write(9,*)'mv FILE.TEN SMALL.TEN' write(9,*)'cp VAC.X SMALL.X' write(9,*)'mv CCT.INP ttt.inp' write(9,*)'cp BOK.CCT CCT.INP' write(9,*)'cct' write(9,*)'mv ttt.inp CCT.INP' write(9,*)'new4' write(9,*)'new5' write(9,*)'cp DOG.TAB '//ts(1:ie)//'.tab' goto 11 999 close(8) close(9) write(6,*)'gohydcct script made' stop end