#!/bin/csh

set rep=4000
set PP=1

set osc="/work1/u2455/Osc/bin/osc -p4"
set sout1="s.out -ds4000000 -r -z input -w$PP"
# set sout4="s.out -ds4000000 -r -z input -w4"
# set sout4=""
set loops=a.out

switch ( $1 ) 
case 1:
  set iter=-i1000
  set lp=1
  set ex=""
  breaksw
case 2s:
  set iter=""
  set lp=2
  set ex=""
  breaksw
case 3:
  set iter=-i1000
  set lp=3
  set ex=""
  breaksw
case 4p:
  set iter=""
  set lp=4
  set ex=""
  breaksw
case 5:
  set iter=-i1000
  set lp=5
  set ex=""
  breaksw
case 6p:
  set iter=""
  set lp=6
  set ex=""
  breaksw
case 7:
  set iter=-i1000
  set lp=7
  set ex=""
  breaksw
case 8p:
  set iter=-i100
  set lp=8
  set ex=""
  breaksw
case 9:
  set iter=-i100
  set lp=9
  set ex=""
  breaksw
case 10:
  set iter=-i100
  set lp=10
  set ex=""
  breaksw
case 11s:
  set iter=""
  set lp=11
  set ex=""
  breaksw
case 12:
  set iter=-i1000
  set lp=12
  set ex=""
  breaksw
case 13:
  set iter=""
  set lp=13
  set ex=""
  breaksw
case 14:
  set iter=-i1000
  set lp=14
  set ex=""
  breaksw
case 15:
  set iter=-i100
  set lp=15
  set ex=""
  breaksw
case 16p:
  set iter=-i75
  set lp=16
  set ex=""
  breaksw
case 17:
  set iter=""
  set lp=17
  set ex=""
  breaksw
case 18p:
  set iter=-i100
  set lp=18
  set ex=""
  breaksw
case 19s:
  set iter=""
  set lp=19
  set ex=""
  breaksw
case 20:
  set iter=""
  set lp=20
  set ex=""
  breaksw
case 21:
  set iter=-i10
  set lp=21
  set ex=""
  breaksw
case 22:
  set iter=-i100
  set lp=22
  set ex=""
  breaksw
case 23s:
  set iter=""
  set lp=23

# GET AROUND SGI PROBLEM!!!
# set ex="-noimp"
  set ex=""
  breaksw
case 24:
  set iter=-i1000
  set lp=24
  set ex=""
  breaksw
default:
  echo DOIT: illegal loop specification $1
  exit(1)
endsw

echo
echo "***** LOOP$1 rep=$rep ******"
/bin/rm -f s.info input dataf
echo 888 $lp $rep > dataf
$loops < dataf
echo $osc $iter -noOinvar $ex loop$1.sis
$osc $iter -noOinvar $ex loop$1.sis
$sout1
cat s.info
echo "****************************"
echo
