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