?? add_sol.f
字號:
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?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -