#!/bin/sh
# The next line restarts using nmrWish \
exec nmrWish "$0" -notk -- "$@"

set auto_path "[split $env(TCLPATH) :] $auto_path"
set ARGV      [concat $argv0 $argv]
set ARGC      [llength $ARGV]

for {set i 1} {$i < $ARGC} {incr i} \
   {
    if {![strcmp [lindex $ARGV $i] "--"]} break
   }

set aList [lrange $ARGV $i end]

if {[flagLoc $ARGV -help] || [llength $aList] != 4} \
   {
    puts "Convert Width in Spectral Units Such as Hz to Points."
    puts " $argv0 inName dimCode specVal"
    exit 1
   }

set inName  [lindex $aList 1]
set dimCode [lindex $aList 2]
set sVal    [lindex $aList 3]

if {![file exists $inName]} \
   {
    puts stderr "Error finding spec2pntW input file $inName"
    exit 1
   }

set error [rdFDATA $inName fdata]

if {$error} \
   {
    puts stderr "Error reading header from spec2pntW input file $inName"
    exit 1
   }

set sPts [spec2pntW $fdata $dimCode $sVal]

puts $sPts

exit 0