blob: 9a8451b8374c088bccb5592cef5835ef7073b170 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#-h- otherc 284 local 12/01/80 15:54:30
# otherc - output ordinary Fortran statement
include defs
subroutine otherc (lexstr)
character lexstr(ARB)
include COMMON_BLOCKS
xfer = NO
call outtab
if (IS_LETTER(lexstr (1)))
call squash (lexstr)
call outstr (lexstr)
call eatup
call outdwe
return
end
|
