blob: da0e664713111f4a4749d0faf29a1993b0854d89 (
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
|
include defs
# IFGO - generate "if (.not.(...)) goto lab"
subroutine ifgo (lab)
integer lab
include COMMON_BLOCKS
string ifnot "if (.not."
string serrchk ".and.(.not.xerflg)) "
call outtab # get to column 7
call outstr (ifnot) # " if (.not. "
call balpar # collect and output condition
if (ername == YES) # add error checking?
call outstr (serrchk)
else {
call outch (RPAREN) # " ) "
call outch (BLANK)
}
call outgo (lab) # " goto lab "
call errgo
end
|
