blob: e505f8eef4cd536a872a0f84dd070b5224282386 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#-h- docode 522 local 12/01/80 15:53:49
# docode - generate code for beginning of do
include defs
subroutine docode (lab)
integer lab
integer labgen
include COMMON_BLOCKS
character gnbtok
character lexstr (MAXTOK)
string sdo "do"
xfer = NO
call outtab
call outstr (sdo)
call outch (BLANK)
lab = labgen (2)
if (gnbtok (lexstr, MAXTOK) == DIGIT) # check for fortran DO
call outstr (lexstr)
else {
call pbstr (lexstr)
call outnum (lab)
}
call outch (BLANK)
call eatup
call outdwe
call indent (1)
return
end
|
