mirror of https://gitlab.com/QEF/q-e.git
37 lines
877 B
Fortran
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
|