blob: 83bb6d194043e436f02d34e6618c46a36e617a5e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
C----------------------------------------------------------------------
subroutine ftc2ll(cval,lval,status)
C convert a character string to a logical value
C (assumes that the input string is left justified)
integer status
logical lval
character*(*) cval
if (status .gt. 0)return
C convert character string to logical
if (cval(1:1) .eq.'T')then
lval=.true.
else
C any other character is considered false
lval=.false.
end if
end
|
