Commit 64c0b943 authored by marsamos's avatar marsamos

small modif to read_xml.f90 Simone Ziraldo.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent 4e99df4e
......@@ -61,8 +61,11 @@ CONTAINS
CASE ('PW')
!
CALL read_xml_common( attr, 'PW' )
!
!
CALL read_xml_pw()
!
!
! CASE ('NEB')
! !
! CALL read_xml_common( attr, 'PW' )
......@@ -243,6 +246,8 @@ CONTAINS
ENDIF
ENDIF
!
CALL mp_bcast( found_al, ionode_id)
!
IF (found_al) THEN
CALL card_bcast( 'ATOMIC_LIST' )
ELSE
......@@ -250,6 +255,7 @@ CONTAINS
ENDIF
!
!
!
! ... reading all the FIELDS
!
!
......@@ -447,7 +453,7 @@ CONTAINS
10 CALL errore('read_xml_pw', 'error reading end tag of '//card//' card', ABS( ierr ) )
!
!
END SUBROUTINE READ_XML_PW
END SUBROUTINE read_xml_pw
!
!
!
......@@ -478,11 +484,11 @@ CONTAINS
!
IF ( ionode ) THEN
!
! IF ( ( trim( calculation ) == 'neb' ) .or. ( trim( calculation ) == 'smd' ) ) THEN
! CALL card_xml_chain ( )
! ELSE
CALL card_xml_atomic_list ( )
! END IF
IF ( ( trim( calculation ) == 'neb' ) .or. ( trim( calculation ) == 'smd' ) ) THEN
CALL card_xml_chain ( )
ELSE
CALL card_xml_atomic_list ( )
END IF
!
END IF
!
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment