Skip to main content

isWhiteChar

This function returns true when the given char is a space or a tab.

Interface

܀ Interface
️܀ See example
↢

INTERFACE
  MODULE PURE FUNCTION isWhiteChar(char) RESULT(Ans)
    CHARACTER(1), INTENT(IN) :: char
    LOGICAL(LGT) :: ans
  END FUNCTION isWhiteChar
END INTERFACE

program main
use easifemBase
implicit none

character(len=10) :: astr = " ", astr2="    ", astr3="  "

CALL OK(IsWhiteChar(astr), "test(1): " )
CALL OK(IsWhiteChar(astr2), "test(2): " )
CALL OK(IsWhiteChar(astr3), "test(3): " )

end program main

Interface