add_sol.f

c++编写的并行拉马克遗传算法的程序。实现分析对接程序

	character*80 line
	character*66 stuff
	character*7 atom_res(1000)
	real*4 vol(1000),sol_par(1000)

	open(1,file="sol_par.dat",form="formatted")
 	i=1
 5	read(1,10,end=9) atom_res(i),vol(i),sol_par(i)
	i=i+1
	goto 5
 10	format(a7,2f7.2)
 9	idat=i-1

 100	read(5,101,end=999) line

	if (line(1:4).ne."ATOM") then
	  write(6,101) line
	  goto 5
	endif

	read(line,102) stuff,rc
	do i=1,4
	 if (atom_res(i)(1:3).eq.stuff(14:16)) then
	  write(6,102) stuff,rc,vol(i),sol_par(i)
	  goto 100
	 endif
	enddo
	do i=5,idat
	 if (atom_res(i).eq.stuff(14:20)) then
	  write(6,102) stuff,rc,vol(i),sol_par(i)
	  goto 100
	 endif
	enddo
	write(6,102) stuff,rc,0.,0.
	goto 100

 101	format(a80)
 102	format(a66,3f10.3)

 999	end