Shell Programming and Scripting

  set narg = $#argv
  while ($iarg < $narg)

    MATH iarg = $iarg + 1
    set arg = $argv[$iarg]
    set opt = `echo $arg | awk 'BEGIN {FS="="} {print $1}'`
    set par = `echo $arg | awk 'BEGIN {FS="="} {print $2}'`

    switch ($opt)
    case "-tpath":
      set Atpath = $par
      set tpath = $Atpath
      set optpath = 1
      breaksw
    case "-fmod":
      set Afvmod = $par
      set fvmod = `echo $Afvmod | awk 'BEGIN {FS=".cmod"} {print $1}'`
      set optfvmod = 1
      breaksw
    case "-J":
      set Asize = $par
      set widthbase = `echo $Asize | awk '{split($1,a,"/"); print a[1]}'`
      set heightbase = `echo $Asize | awk '{split($1,a,"/"); print a[2]}'`
      set optsize = 1
      breaksw
    case "-c":
      set Arangev = $par
      set cmin = `echo $Arangev | awk '{split($1,a,"/"); print a[1]}'`
      set cmax = `echo $Arangev | awk '{split($1,a,"/"); print a[2]}'`
      set optrangev = 1
      breaksw
    case "-usage":
        set Ausage = $par
        set optusage = 1
        breaksw
    case "-help":
        set help = $par
        set opthelp = 1
        breaksw
    default:
        ser Aerr = $arg
        set ierr = 1
        breaksw
    endsw

  end   # while