open(10,file="grad",status="old")
do iatm=1,natm
read(10,*) rnouse,fx
read(10,*) rnouse,fy
read(10,*) rnouse,fz
write(11,"(3D20.12)") fx,fy,fz
end do
close(10)
更改为
open(10,file="gradient",status="old")
do iline=1,(natm+2)
read(10,*)
end do
do iatm=1,natm
read(10,*) fx,fy,fz
write(11,"(3D20.12)") fx,fy,fz
end do
close(10)