anchor.diff:                i = i + 1
                 call getarg(i,tag)
                 read(tag,'(BN,F12.0)') cmdin(4)
  +          elseif (trim(tag).eq.'-debug') then
  +              debug = .true.
             elseif (tag(1:2).eq.'-p') then
                 p = 1
             elseif (tag(1:2).eq.'-s') then
  
positive.code: 
  C----------------------------------------------------------------------C
  
        SUBROUTINE gcmdln(ifile,ofile,c,cmdin,p)
        IMPLICIT NONE
        CHARACTER*30 ifile,ofile,tag
        INTEGER i,narg,c,p
        REAL*8 cmdin(4)
        ifile = 'none'
        ofile = 'none'
        c = 0
        p = 1
        narg = iargc()
  
negative.code:           endif
            goto 901
    902 continue
        if (debug) then
            write(0,*) 'Debugging output turned on in gcmdln'
            write(0,*) 'Leaving gcmdln'
        endif
        RETURN
        END
  
  