My Community

I added such codes"
write(tiu6,*) "richard"
j=1
do NT=1,t_info%ntyp
do j=j,t_info%nityp(NT)+j-1
vtmp(1)=dyn%posion(1,j)
vtmp(2)=dyn%posion(2,j)
vtmp(3)=dyn%posion(3,j)
write(tiu6,7016) (vtmp(I),I=1,3)
end do
end do

just above"
! now read in wavefunctions.

no complie error appears, but in calculations, some errors look like the following:

forrtl: severe (60): infinite format loop, unit 8, file /home1/yushan/test_A-1/OUTCAR
Image PC Routine Line Source
vasp 000000000075AF3A Unknown Unknown Unknown
vasp 000000000075929E Unknown Unknown Unknown
vasp 000000000073C298 Unknown Unknown Unknown
vasp 0000000000706AD9 Unknown Unknown Unknown
vasp 000000000070705F Unknown Unknown Unknown
vasp 000000000072F1E5 Unknown Unknown Unknown
vasp 000000000041E94F Unknown Unknown Unknown
vasp 000000000040606A Unknown Unknown Unknown
Unknown 000000345D41C4BB Unknown Unknown Unknown
vasp 0000000000405FAA Unknown Unknown Unknown


Yushan

there must be an error in one of your format statements.