# version for UNIX / LINUX (using the bash shell)
#
# Use: runivm filename [list of filenames]
#
#       filename     name of a file containing the .SIF
#                    definition for the problem of interest.
#

export CUTEDIR=/home/egbirgin/private/cute

export METHDIR=/home/egbirgin/private/sources/working/ivm-bmy
export OBJEDIR=$CUTEDIR/tools/objects/double
export CURRDIR=/home/egbirgin/private/sources/working/ivm-bmy

if ! [[ -e $CURRDIR/ivmtable.txt  ]] ; then touch $CURRDIR/ivmtable.txt  ; fi

if (( $# == 0 )) ; then

    echo 'Syntax: runivm filename [list of filenames],'
    echo 'where filename is the name of a file containing '
    echo 'the SIF definition for the problem of interest. '
    exit

else

    for i in $*

        do

        if ! [[ -e $CURRDIR/$i.SIF ]] ; then

            echo "file $i.SIF does not exist in the current directory" 

        else

            echo $i  >  $CURRDIR/ivm.input
            echo "3" >> $CURRDIR/ivm.input
            echo "0" >> $CURRDIR/ivm.input

            $CUTEDIR/sifdec_d < $CURRDIR/ivm.input

            f77 -O4 -c ELFUNS.f GROUPS.f RANGES.f SETTYP.f EXTERN.f
            
            f77 $METHDIR/ivmmaispgc.o $METHDIR/ivmispgc.o \
                $OBJEDIR/cdh.o $OBJEDIR/cfn.o $CURRDIR/ELFUNS.o \
                $CURRDIR/GROUPS.o $CURRDIR/RANGES.o $CURRDIR/SETTYP.o \
                $CURRDIR/EXTERN.o $OBJEDIR/csetup.o $OBJEDIR/cnames.o \
                $OBJEDIR/ccifg.o $OBJEDIR/cofg.o $OBJEDIR/others.o \
                $OBJEDIR/elgrd.o $OBJEDIR/asmbl.o $OBJEDIR/initw.o \
                $OBJEDIR/hsprd.o $OBJEDIR/local.o $OBJEDIR/linpac.o \
                -o $CURRDIR/ivmmin 
            
            $CURRDIR/ivmmin

            cat $CURRDIR/ivmline.txt  >> $CURRDIR/ivmtable.txt

            rm $CURRDIR/ivm.input $CURRDIR/ivmmin $CURRDIR/ELFUNS.f \
               $CURRDIR/GROUPS.f $CURRDIR/RANGES.f $CURRDIR/SETTYP.f \
               $CURRDIR/EXTERN.f $CURRDIR/OUTSDIF.d $CURRDIR/ELFUNS.o \
               $CURRDIR/GROUPS.o $CURRDIR/RANGES.o $CURRDIR/SETTYP.o \
               $CURRDIR/EXTERN.o $CURRDIR/ivmline.txt

        fi

        done

fi