--- garfield-6.34/garfield.car.ORIG	Sat Mar  3 17:42:08 2001
+++ garfield-6.34/garfield.car	Wed Mar  7 15:07:04 2001
@@ -3064,7 +3064,12 @@
      -      WORD(2)(IFIRST:ILAST).EQ.'ZEROES')THEN
             IPROC=-102
 *   Gas related procedures.
+#ifdef __APPLE__
+       else
+       IF(WORD(2)(IFIRST:ILAST).EQ.'GAS_AVAILABILITY')THEN
+#else
        ELSEIF(WORD(2)(IFIRST:ILAST).EQ.'GAS_AVAILABILITY')THEN
+#endif
             IPROC=-201
        ELSEIF(WORD(2)(IFIRST:ILAST).EQ.'GET_GAS_DATA')THEN
             IPROC=-202
@@ -3343,6 +3348,9 @@
             IF(MODE.EQ.'EXECUTE')CALL ALGCLR(IENTRY)
             RETURN
        ENDIF
+#ifdef __APPLE__
+       endif
+#endif
 *** Add the CALL statement to the instruction list.
        IF(NINS.GE.MXINS)THEN
             PRINT *,' !!!!!! INPCAL WARNING : Instruction list buffer'//
@@ -27053,7 +27061,12 @@
                  INEXT=I+6
                  NOUT=NOUT+3
 *   Some special symbols.
+#ifdef __APPLE__
+    	else
+	    IF(I+2.LE.LEN(STRING).AND.
+#else
             ELSEIF(I+2.LE.LEN(STRING).AND.
+#endif
      -           (STRING(I:MIN(LEN(STRING),I+2)).EQ.'_+-'.OR.
      -            STRING(I:MIN(LEN(STRING),I+2)).EQ.'_pm'))THEN
                  STROUT(NOUT+1:NOUT+3)='"A#'
@@ -27327,6 +27340,9 @@
                  STROUT(NOUT+1:NOUT+1)=STRING(I:I)
                  NOUT=NOUT+1
             ENDIF
+#ifdef __APPLE__
+	endif
+#endif
 10          CONTINUE
        ENDIF
 *** Now plot the converted string.