Added # to mark comments in NEB input

This commit is contained in:
afonari 2020-12-11 14:13:42 +00:00
parent a70f3226c2
commit bd31b063b2
1 changed files with 3 additions and 3 deletions

View File

@ -9,7 +9,7 @@
!
FUNCTION skip_line(dummy)
!
! True if line is empty or starts with an !
! True if line is empty or starts with # or !
!
IMPLICIT NONE
!
@ -24,8 +24,8 @@ FUNCTION skip_line(dummy)
END IF
!
tmp = trim(ADJUSTL(dummy))
! Comment line (starts with !)
skip_line = tmp(:1) .EQ. "!"
! Comment line (starts with ! or #)
skip_line = tmp(:1) .EQ. "!" .OR. tmp(:1) .EQ. "#"
!
END FUNCTION
!