Skip to main content

IsBlank

This function returns true when given string is completely blank.

Interface

܀ Interface
️܀ See example
↢

INTERFACE
  MODULE PURE FUNCTION isBlank(chars) RESULT(Ans)
    CHARACTER(*), INTENT(IN) :: chars
    LOGICAL(LGT) :: ans
  END FUNCTION isBlank
END INTERFACE

program main
use easifemBase
implicit none

character(20) :: astr = ""

CALL OK(IsBlank(astr), "test(1)")
astr = "easifem"
CALL OK(.NOT. IsBlank(astr), "test(2)" )
end program main

Interface