Page 1 of 1

Bug report for 6.3

Posted: Fri Jun 07, 2024 11:56 pm
by Soon Ho Kwon
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

Re: Bug report for 6.3

Posted: Wed Jun 12, 2024 6:08 pm
by graeme
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