Incidence Wrapper.

{{{
#06 Dec 2017
#John R. Weirich
#This script will run M3inc.out and then make cubes of the results.
#Updated 21 Sep 2018 for Karpinskiy
# Updated 27 Nov 2018 for Reiner Gamma 2

file=$1
list=`cat $file`

program="/Users/JW/X-files/source/NewInc.out"


#Center map Lat/Lon
objLat=7.013
objLon=300.802 #value in elong

bigmap="RG2ED1"

for i in $list
do
        echo "$bigmap" > tinJRW
        echo "1" >> tinJRW
        grep SubSolarLat ../img-$i/info.txt | cut -c34- >> tinJRW
        grep SubSolarLon ../img-$i/info.txt | cut -c34- >> tinJRW
        echo "$objLat" >> tinJRW
        echo "$objLon" >> tinJRW

        $program < tinJRW >> createInc.out

#       gnuplot -e "name='$i'" ../plotEmm.gpi

        mv -f $bigmap-i.txt createInc.out ../img-$i/

        ascii2isis FROM=../img-$i/$bigmap-i.txt TO=../img-$i/$bigmap-localI.cub samples=1415 lines=1415

#        ascii2isis FROM=KAR512-i.txt TO=inc.cub samples=1821 lines=1821


#        ascii2isis FROM=../img-$i/rawEmm.txt TO=../img-$i/rawEmm.cub samples=1821 lines=1821
done
}}}