1 files changed, 23 insertions, 0 deletions
diff --git a/unix/boot/spp/rpp/rpprat/ifgo.r b/unix/boot/spp/rpp/rpprat/ifgo.r
new file mode 100644
index 00000000..da0e6647
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/ifgo.r
@@ -0,0 +1,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