Commit 3be79e9d authored by giannozz's avatar giannozz

Removal of obsolete and unimplemented card "climbing images"


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent 9099ffd0
......@@ -29,7 +29,7 @@ MODULE read_xml_module
USE read_xml_fields_module, ONLY : read_xml_fields
USE read_xml_cards_module, ONLY : card_xml_atomic_species, card_xml_atomic_list, &
card_xml_chain, card_xml_cell, card_xml_kpoints, card_xml_occupations, &
card_xml_constraints, card_xml_climbing_images, card_xml_plot_wannier, card_default, card_bcast
card_xml_constraints, card_xml_plot_wannier, card_default, card_bcast
!
!
IMPLICIT NONE
......@@ -404,40 +404,6 @@ CONTAINS
CALL mp_bcast ( found, ionode_id, intra_image_comm )
!
IF ( found ) CALL card_bcast( 'OCCUPATIONS' )
!
!
! ... reading CLIMBING_IMAGES card
!
card = 'climbing_images'
CALL card_default( 'CLIMBING_IMAGES' )
!
IF ( ionode ) THEN
!
CALL iotk_scan_begin( xmlinputunit, trim( card ), found = found, ierr = ierr )
IF ( ierr /= 0 ) GO TO 9
!
IF ( found ) THEN
!
CALL card_xml_climbing_images()
!
CALL iotk_scan_end( xmlinputunit, trim( card ), ierr = ierr )
IF ( ierr /= 0 ) GOTO 10
!
ELSE
!
! ... due to a iotk problem with gfortran compiler
CALL iotk_rewind( xmlinputunit )
!
END IF
!
END IF
!
CALL mp_bcast ( found, ionode_id, intra_image_comm )
!
IF ( found ) CALL card_bcast( 'CLIMBING_IMAGES' )
!
!
!
!
RETURN
!
......@@ -586,40 +552,6 @@ CONTAINS
!
IF ( found ) CALL card_bcast( 'OCCUPATIONS' )
!
!
! ... reading CLIMBING_IMAGES card
!
card = 'climbing_images'
CALL card_default( 'CLIMBING_IMAGES' )
!
IF ( ionode ) THEN
!
CALL iotk_scan_begin( xmlinputunit, trim( card ), found = found, ierr = ierr )
IF ( ierr /= 0 ) GO TO 9
!
IF ( found ) THEN
!
CALL card_xml_climbing_images()
!
CALL iotk_scan_end( xmlinputunit, trim( card ), ierr = ierr )
IF ( ierr /= 0 ) GOTO 10
!
ELSE
!
! ... due to a iotk problem with gfortran compiler
CALL iotk_rewind( xmlinputunit )
!
END IF
!
END IF
!
CALL mp_bcast ( found, ionode_id, intra_image_comm )
!
IF ( found ) CALL card_bcast( 'CLIMBING_IMAGES' )
!
!
! ... reading CLIMBING_IMAGES card
!
card = 'plot_wannier'
CALL card_default( 'PLOT_WANNIER' )
!
......
......@@ -37,7 +37,7 @@ MODULE read_xml_cards_module
PRIVATE
!
PUBLIC :: card_xml_atomic_species, card_xml_atomic_list, card_xml_chain, card_xml_cell, &
card_xml_kpoints, card_xml_occupations, card_xml_constraints, card_xml_climbing_images, &
card_xml_kpoints, card_xml_occupations, card_xml_constraints, &
card_xml_plot_wannier, card_default, card_bcast
!
!
......@@ -1596,41 +1596,6 @@ CONTAINS
END SUBROUTINE card_xml_constraints
!
!
!
!_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_!
! !
! CLIMBING_IMAGES (optional) OBSOLETE, NOT IMPLEMENTED !
! !
! Needed to explicitly specify which images have to climb !
! !
! Syntax: !
! !
! <climbing_images> !
! <images> !
! <integer rank=1 n1="N"> !
! index1 !
! index2 !
! ... !
! indexN !
! </integer>
! </images> !
! </climbing_images> !
! !
! !
! Where: !
! !
! index1, ..., indexN are indices of the images that have to climb !
! !
! !
!_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_!
!
SUBROUTINE card_xml_climbing_images( )
!
RETURN
!
END SUBROUTINE card_xml_climbing_images
!
!
!_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_!
! !
! PLOT_WANNIER (optional) !
......
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