anchor.diff:        endif
         write(*,*)
        1 'Usage: distaz2lola -f IFILE|-s [-o OFILE|-p] [-c LON1 LAT1 ',
  -     1                     'DIST AZ] [-h]'
  +     1                     'DIST AZ] [-lon NEG|POS] [-h]'
         write(*,*)
         write(*,*)
        1 '-f IFILE               Input file: lon lat dist(km) az(deg)'
  
positive.code:      1 '-c LON1 LAT1 DIST AZ   Compute LON2 LAT2, ',
       2                           'print to standard output'
        write(*,*)
       1 '-h                     Online help (this screen)'
        write(*,*)
        STOP
  
negative.code:           dist = cmdin(3)
            az   = cmdin(4)
            call dlola(lon2,lat2,lon1,lat1,dist,az)
            lon2 = lon2*r2d
            lat2 = lat2*r2d
            if (lonrng.eq.'NEG'.and.lon2.gt.180.0d0) then
                lon2 = lon2-360.0d0
            elseif (lonrng.eq.'POS'.and.lon2.lt.0.0d0) then
                lon2 = lon2+360.0d0
            endif
            write (6,8889) lon2,lat2
        else
            if (ifile.eq.'stdin') then
                funit = 5
  