anchor.diff:                    call errmes('!! Error: latitude is greater than 90')
                 endif
                 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
                 if (p.eq.0) then
  -                  write(12,9999) lon2*r2d,lat2*r2d
  +                  write(12,9999) lon2,lat2
                 else
  -                  write(*,9999) lon2*r2d,lat2*r2d
  +                  write(*,9999) lon2,lat2
                 endif
                 goto 101
     102     continue
  
positive.code:           dist = cmdin(3)
            az   = cmdin(4)
            call dlola(lon2,lat2,lon1,lat1,dist,az)
            write (6,8889) lon2*r2d,lat2*r2d
        else
            if (ifile.eq.'stdin') then
                funit = 5
  
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
  