program xinp character*80 t80,s80 logical lex write(6,*)' FILE.X -> FILE.INP (G.TXT,CM.TXT as par)' io=0 open(7,file='FILE.X') open(8,file='FILE.INP') 1 read(7,80,end=999,err=999)s80 80 format(a80) io=io+1 if(io.gt.1)write(8,802) 802 format('--link1--') read(7,*)nat open(71,file='G.TXT') 2 read(71,80,end=888,err=888)t80 write(8,80)t80 goto 2 888 close(71) write(8,*) write(8,80)s80 write(8,*) inquire(file='CM.TXT',exist=lex) if(lex)then open(71,file='CM.TXT') read(71,80)t80 close(71) write(8,80)t80 else write(8,*)'0 1' endif do 3 i=1,nat read(7,*)ig,x,y,z 3 write(8,801)ig,x,y,z 801 format(i3,3f12.6) write(8,*) inquire(file='AFTER.TXT',exist=lex) if(lex)then open(71,file='AFTER.TXT') 891 read(71,80,end=89,err=89)t80 write(8,80)t80 goto 891 89 close(71) write(8,*) endif goto 1 999 close(7) close(8) write(6,*)io,' structures' stop end