blob: e9106559e65b366e0afc666860a83f8ba62c2c6d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#-h- litral 316 local 12/01/80 15:54:13
# litral - process literal Fortran line
include defs
subroutine litral
include COMMON_BLOCKS
character ngetch
# Finish off any left-over characters
if (outp > 0)
call outdwe
for (outp = 1; ngetch (outbuf (outp)) != NEWLINE; outp = outp + 1)
;
outp = outp - 1
call outdwe
return
end
|
