quantum-espresso/Modules/has_xml.f90

37 lines
877 B
Fortran

!
! Copyright (C) 2010 Quantum ESPRESSO group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
LOGICAL FUNCTION has_xml(inp_string)
!
! This function returns true if the last four characters of inp_string are
! .xml or .XML. On output the string .xml or .XML is removed from inp_string
!
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(INOUT) :: inp_string
INTEGER :: leng, start
CHARACTER(LEN=4) :: aux
LOGICAL, EXTERNAL :: matches
has_xml=.FALSE.
leng=LEN_TRIM(inp_string)
!cannot match xml if it is only 1 or 2 chars long
IF(leng<3) RETURN
start=MAX(leng-3,1)
aux=inp_string(start:leng)
IF (matches(aux,'.xml').OR.matches(aux,'.XML')) THEN
has_xml=.TRUE.
inp_string(leng-3:leng)=' '
ENDIF
RETURN
END FUNCTION has_xml