mirror of https://gitlab.com/QEF/q-e.git
98 lines
2.4 KiB
Fortran
98 lines
2.4 KiB
Fortran
!
|
|
! Copyright (C) 2001-2008 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 .
|
|
!
|
|
!-----------------------------------------------------------------------
|
|
FUNCTION capital( in_char )
|
|
!-----------------------------------------------------------------------
|
|
!
|
|
! ... converts character to capital if lowercase
|
|
! ... copy character to output in all other cases
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
CHARACTER(LEN=1), INTENT(IN) :: in_char
|
|
CHARACTER(LEN=1) :: capital
|
|
CHARACTER(LEN=26), PARAMETER :: lower = 'abcdefghijklmnopqrstuvwxyz', &
|
|
upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
|
INTEGER :: i
|
|
!
|
|
!
|
|
DO i=1, 26
|
|
!
|
|
IF ( in_char == lower(i:i) ) THEN
|
|
!
|
|
capital = upper(i:i)
|
|
!
|
|
RETURN
|
|
!
|
|
END IF
|
|
!
|
|
END DO
|
|
!
|
|
capital = in_char
|
|
!
|
|
RETURN
|
|
!
|
|
END FUNCTION capital
|
|
!
|
|
!-----------------------------------------------------------------------
|
|
FUNCTION lowercase( in_char )
|
|
!-----------------------------------------------------------------------
|
|
!
|
|
! ... converts character to lowercase if capital
|
|
! ... copy character to output in all other cases
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
CHARACTER(LEN=1), INTENT(IN) :: in_char
|
|
CHARACTER(LEN=1) :: lowercase
|
|
CHARACTER(LEN=26), PARAMETER :: lower = 'abcdefghijklmnopqrstuvwxyz', &
|
|
upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
|
INTEGER :: i
|
|
!
|
|
!
|
|
DO i=1, 26
|
|
!
|
|
IF ( in_char == upper(i:i) ) THEN
|
|
!
|
|
lowercase = lower(i:i)
|
|
!
|
|
RETURN
|
|
!
|
|
END IF
|
|
!
|
|
END DO
|
|
!
|
|
lowercase = in_char
|
|
!
|
|
RETURN
|
|
!
|
|
END FUNCTION lowercase
|
|
!
|
|
!-----------------------------------------------------------------------
|
|
LOGICAL FUNCTION isnumeric ( in_char )
|
|
!-----------------------------------------------------------------------
|
|
!
|
|
! ... check if a character is a number
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
CHARACTER(LEN=1), INTENT(IN) :: in_char
|
|
CHARACTER(LEN=10), PARAMETER :: numbers = '0123456789'
|
|
INTEGER :: i
|
|
!
|
|
!
|
|
DO i=1, 10
|
|
!
|
|
isnumeric = ( in_char == numbers(i:i) )
|
|
IF ( isnumeric ) RETURN
|
|
!
|
|
END DO
|
|
RETURN
|
|
!
|
|
END FUNCTION isnumeric
|