1!$Id:$ 2 logical function cksep(x1) 3 4! * * F E A P * * A Finite Element Analysis Program 5 6!.... Copyright (c) 1984-2017: Regents of the University of California 7! All rights reserved 8 9!-----[--.----+----.----+----.-----------------------------------------] 10! Purpose: Check for existence of separator characters in data. 11! Separators are blank, comma, or equal sign. 12 13! Inputs: 14! x1 - Character to check 15 16! Outputs: 17! cksep - True of character is a valid separator; else false. 18!-----[--.----+----.----+----.-----------------------------------------] 19 implicit none 20 21 character x1*1 22 23 cksep = (x1.eq.' ') .or. (x1.eq.',') .or. (x1.eq.'=') 24 25 end 26