#!../src/tops  -s ../sys  -u ../usr 
#!/usr/local/bin/tops

"getsorted" is script_name
"Usage: getsorted <Nastran f06 filename> <Output filename>" is usage

# At least 3 command line argvs:
ARGV rows 3 < IF usage . nl halt THEN

# Third from last argv is script name:
ARGV its rows 2 less ndx quote -path script_name alike not
IF usage . nl halt THEN

# Last two argvs are file names:
ARGV its rows 1 less ndx quote strchop "Infile" book
ARGV its rows ndx quote strchop "Outfile" book

Infile file? not IF "file not found: " . Infile . nl halt THEN

# Reading bulk data from Infile:
"nas.v" source Infile get_sorted (hT)

# Writing Outfile if no errors:
ercnt 0=
IF (hT) these rows .u " bulk data cards to file " . Outfile . nl
   (hT) Outfile save
THEN
