dbcsr_logical_to_string Function

private function dbcsr_logical_to_string(val) result(res)

convert a logical in a string ('T' or 'F')

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: val

the number to convert

Return Value character(len=1)


Source Code

   FUNCTION dbcsr_logical_to_string(val) RESULT(res)
      !! convert a logical in a string ('T' or 'F')

      LOGICAL, INTENT(in)                                :: val
         !! the number to convert
      CHARACTER(len=1)                                   :: res

      IF (val) THEN
         res = 'T'
      ELSE
         res = 'F'
      END IF
   END FUNCTION dbcsr_logical_to_string