convert a logical in a string ('T' or 'F')
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | val |
the number to convert |
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