anchor.diff:        REAL*8 pi,r2d
         PARAMETER (pi=4.0d0*datan(1.0d0),r2d=1.8d2/pi)
         REAL*8 lon1,lat1,lon2,lat2,dist,az,cmdin(4)
  -      CHARACTER*30 ifile,ofile
  +      CHARACTER*30 ifile,ofile,lonrng
         INTEGER c,p,funit
         LOGICAL ex
         
  -      call gcmdln(ifile,ofile,c,cmdin,p)
  +      call gcmdln(ifile,ofile,c,cmdin,p,lonrng)
         if (c.eq.1) goto 103
         if (ifile.eq.'none') then
             write(*,*) '!! Error: Input lon lat dist az file unspecified'
  
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:      1 '-c LON1 LAT1 DIST AZ   Compute LON2 LAT2, ',
       2                           'print to standard output'
        write(*,*)
       1 '-lon NEG|POS           Longitude range: -180,180 or 0,360'
        write(*,*)
       1 '-h                     Online help (this screen)'
        write(*,*)
        STOP
  