anchor.diff:                read(tag,'(BN,F12.0)') cmdin(4)
             elseif (tag(1:2).eq.'-s') then
                 ifile = 'stdin'
  +          elseif (tag(1:4).eq.'-lon') then
  +              i = i + 1
  +              call getarg(i,lonrng)
             elseif (tag(1:2).eq.'-p') then
                 p = 1
             elseif (tag(1:2).eq.'-h') 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
        write(*,*)
       1 'Usage: distaz2lola -f IFILE|-s [-o OFILE|-p] [-c LON1 LAT1 ',
       1                     'DIST AZ] [-lon NEG|POS] [-h]'
        write(*,*)
        write(*,*)
       1 '-f IFILE               Input file: lon lat dist(km) az(deg)'
  