#!/bin/csh -f
onintr EXINT
set ge1names=""
set ge2names=""
set vcnames=""
set ge1=".ge1"
set ge2=".ge2"
echo -n 'Control Data for FFT: '
set fft_ctl=$<
echo -n 'Control Data for DECONV_MMOD: '
set mapmod_ctl=$<
echo -n 'Control Data for SFALL: '
set sfall_ctl=$<
echo -n 'Control Data for DECONV_DCON: '
set deconv_ctl=$<
echo -n 'Control Data for LAUENORM: '
set ln_ctl=$<
echo -n 'Singles Reflection Data: '
set data_in=$<
@ I = 0
laueloop:
@ I = $I + 1
echo -n "Root Name of Laue Data${I} (.ge1, .ge2): "
set temp=$<
if ( $temp == "" ) goto hkl
set temp1=($temp$ge1)
set temp2=($temp$ge2)
set ge1names=($ge1names $temp1)
set ge2names=($ge2names $temp2)
echo -n "Victorian Coefficients File: "
set temp=$<
set vcnames=($vcnames $temp)
goto laueloop
hkl:
@ N = $I 
echo -n 'Output Data (singles + multiples): '
set  data_out=$< 
#
echo '#'>>$1
echo 'mkdir $LAUE_SCR/dir$$' >>$1
echo "fftbig hklin $data_in mapout" '$LAUE_SCR/dir$$/fft.map'"<$fft_ctl">>$1
echo 'setenv MAPIN1 $LAUE_SCR/dir$$/fft.map'>>$1
echo 'setenv MAPOUT $LAUE_SCR/dir$$/mod.map'>>$1
echo "${2}/deconv_mmod<$mapmod_ctl">>$1
#
echo "setenv PGDATA $LAUE_MASTER/lib/dat/pglib.dat" >>$1
@ I = 1
while ($I < $N)
echo "setenv HKLIN " $data_in >>$1
echo "setenv GE1 " $ge1names[$I] >>$1
echo "setenv GE2 " $ge2names[$I] >>$1
echo "setenv VC " $vcnames[$I] >>$1
echo 'setenv PRELOG $LAUE_SCR/dir$$/prepare.log' >>$1
echo 'setenv HKLOUT $LAUE_SCR/dir$$/pre.mtz' >>$1
echo "${2}/deconv_prep<$deconv_ctl"'>$LAUE_SCR/dir$$/temp.log'>>$1
echo 'cat $LAUE_SCR/dir$$/prepare.log'>>$1
echo 'sfall HKLIN $LAUE_SCR/dir$$/pre.mtz HKLOUT $CCP4_SCR/dir$$/sfall.mtz \'>>$1
echo 'MAPIN $LAUE_SCR/dir$$/mod.map<'"$sfall_ctl">>$1
echo 'setenv HKLIN $LAUE_SCR/dir$$/sfall.mtz' >>$1
echo 'setenv DECLOG $LAUE_SCR/dir$$/deconv.log' >>$1
echo 'setenv OUT_FILE $LAUE_SCR/dir$$/afout'"$I" >>$1
echo "${2}/deconv_dcon<$deconv_ctl"'>$LAUE_SCR/dir$$/temp.log'>>$1
echo 'cat $LAUE_SCR/dir$$/deconv.log'>>$1
echo "setenv LAUE00$I" '$LAUE_SCR/dir$$/afout'"$I">>$1
@ I = $I + 1
end
echo 'setenv HKLOUT $LAUE_SCR/dir$$/ln.mtz'>>$1
echo "setenv SYMOP $LAUE_MASTER/lib/dat/symop.lib" >>$1
echo "${2}/lauenorm <$ln_ctl">>$1
echo 'setenv HKLIN1 $LAUE_SCR/dir$$/ln.mtz'>>$1
echo "setenv HKLIN2 $data_in">>$1
echo "setenv HKLOUT $data_out">>$1
echo "${2}/deconv_comb">>$1
echo '/bin/rm -r $LAUE_SCR/dir$$'>>$1
exit 0
EXINT:
exit 99