--- Garfield/garfield-7.car.orig	2008-07-16 13:24:56.000000000 +0900
+++ Garfield/garfield-7.car	2008-07-16 13:35:22.000000000 +0900
@@ -1843,9 +1843,9 @@
        character*128 args
        external inpcmx
 +SELF,IF=UNIX,CYGWIN.
-       integer inpcmx,arg_length,iarg,nargs,iargc,inext
+       integer inpcmx,arg_length,iarg,nargs,inext
        character*128 args
-       external inpcmx,iargc
+       external inpcmx
 +SELF,IF=CMS.
        INTEGER IRC
        CHARACTER*80 OPTFLG
@@ -27937,8 +27937,7 @@
        integer*2 iarg,nargs,istat
        integer pointer(128)
 +SELF,IF=-APOLLO.
-       integer iargc,nargs,iarg
-       external iargc
+       integer nargs,iarg
 +SELF.
        character*(*) file
        character*128 args
@@ -31573,8 +31572,7 @@
        integer*2 iarg,nargs,arg_length
        integer pointer(128)
 +SELF,IF=-APOLLO.
-       integer arg_length,iargc,nargs
-       external iargc
+       integer arg_length,nargs
 +SELF.
        character*128 args
        integer istart,iend,ionoff,iflag,iarg,iwktyp,icon,ifail,
@@ -46066,10 +46064,10 @@
        implicit none
 +SEQ,PRINTPLOT.
        CHARACTER*(*) STREAM
-       INTEGER LENARG,IARG,NARGS,INIT,INPCMX,iargc,DUMMY
+       INTEGER LENARG,IARG,NARGS,INIT,INPCMX,DUMMY
        CHARACTER*128 ARGS
        LOGICAL LSTATE,INTRAC
-       EXTERNAL INPCMX,INTRAC,iargc
+       EXTERNAL INPCMX,INTRAC
 +SELF,IF=SAVE.
        SAVE LSTATE,INIT
 +SELF.