UT theoretical chemistry code forum

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

I don't understand this; my 6.3 code looks like:

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
CALL unlink("NEWCAR")
ENDIF

which has an endif. It would not compile without one