blob: f919e0216700048d93c76d32ac035bc1ac309019 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
C----------------------------------------------------------------------
subroutine ftl2c(lval,cval,status)
C convert a logical value to a C*20 right justified character string
integer status
logical lval
character*20 cval
if (status .gt. 0)return
if (lval)then
cval=' T'
else
cval=' F'
end if
end
|
