Bug report for 6.3
Posted: Fri Jun 07, 2024 11:56 pm
IF block is not terminated properly in chain.F of vtstcode6.3
IF (newcar_exists) THEN
CALL RD_POSCAR_HEAD(LATT_CUR, T_I, NIOND, NIONPD, NTYPD, NTYPPD, IO%IU0, IO%IU6)
CALL RD_POSCAR(LATT_CUR, T_I, DYN, NIOND, NIONPD, NTYPD, NTYPPD, IO%IU0, IO%IU6)
posion = DYN%POSION
ENDIF
I think ENDIF should be added, but please confirm it!
Soonho
IF (newcar_exists) THEN
CALL RD_POSCAR_HEAD(LATT_CUR, T_I, NIOND, NIONPD, NTYPD, NTYPPD, IO%IU0, IO%IU6)
CALL RD_POSCAR(LATT_CUR, T_I, DYN, NIOND, NIONPD, NTYPD, NTYPPD, IO%IU0, IO%IU6)
posion = DYN%POSION
ENDIF
I think ENDIF should be added, but please confirm it!
Soonho