#! /bin/ksh

# Usage example:    multiple_print_ini xlong 0500 $WHZ/6-fermion/uui-udj-duk/ 05912
#                                             ^    
#                                             |    
#                                             | integer sqrt(s) (GeV)
#                                       


typeset -Z4 kecm
typeset  -i  ifinal
typeset  -i  isub

exec < $3results/whizard_submit.prc
typeset -i  i
typeset -i k
k=$4-1
typeset -Z6 k
# typeset -Z5 -i  k=$4-1

kecm=$2

while read a b c d e f 
do 
    echo $a | grep '_' | grep -q -v '#'
    iunders=$?

    
    if [[ iunders -eq 0 ]]
    then 

	echo $c > /var/tmp/final_state
	if [[ $b == e1,E1 ]]
	then

	    i=1
	    while [[ i -le 4 ]]
	    do
		ee[i]=T
		ff[i]="'e1'"
		gg[i]=T
		hh[i]="'E1'"
		ss[i]=T
		tt[i]=F
		vv[i]=T
		ww[i]=F
                isub[i]=0
		i=i+1
	    done

	    rr[1]='1 0'
	    uu[1]='1 0'

	    rr[2]='1 0'
	    uu[2]='0 1'

	    rr[3]='0 1'
	    uu[3]='1 0'

	    rr[4]='0 1'
	    uu[4]='0 1'

	    grep -q E1 /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[1]=1
	    fi

	    grep -q e1 /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[4]=1
	    fi


	elif [[ $b == e2,E2 ]]
	then

	    i=1
	    while [[ i -le 4 ]]
	    do
		ee[i]=F
		ff[i]="'e2'"
		gg[i]=F
		hh[i]="'E2'"
		ss[i]=T
		tt[i]=F
		vv[i]=T
		ww[i]=F
                isub[i]=0
		i=i+1
	    done

	    rr[1]='1 0'
	    uu[1]='1 0'

	    rr[2]='1 0'
	    uu[2]='0 1'

	    rr[3]='0 1'
	    uu[3]='1 0'

	    rr[4]='0 1'
	    uu[4]='0 1'

	    grep -q E2 /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[1]=1
	    fi

	    grep -q e2 /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[4]=1
	    fi


	elif [[ $b == b,B ]]
	then

	    i=1
	    while [[ i -le 4 ]]
	    do
		ee[i]=F
		ff[i]="'b'"
		gg[i]=F
		hh[i]="'B'"
		ss[i]=T
		tt[i]=F
		vv[i]=T
		ww[i]=F
                isub[i]=0
		i=i+1
	    done

	    rr[1]='1 0'
	    uu[1]='1 0'

	    rr[2]='1 0'
	    uu[2]='0 1'

	    rr[3]='0 1'
	    uu[3]='1 0'

	    rr[4]='0 1'
	    uu[4]='0 1'

	    grep -q B /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[1]=1
	    fi

	    grep -q b /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[4]=1
	    fi


	elif [[ $b == e1,e1 ]]
	then

	    i=1
	    while [[ i -le 4 ]]
	    do
		ee[i]=T
		ff[i]="'e1'"
		gg[i]=T
		hh[i]="'e1'"
		ss[i]=T
		tt[i]=F
		vv[i]=T
		ww[i]=F
                isub[i]=0
		i=i+1
	    done

	    rr[1]='1 0'
	    uu[1]='1 0'

	    rr[2]='1 0'
	    uu[2]='0 1'

	    rr[3]='0 1'
	    uu[3]='1 0'

	    rr[4]='0 1'
	    uu[4]='0 1'

	    grep -q e1 /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[2]=1
		isub[3]=1
		isub[4]=1
	    fi


	elif  [[ $b == e1,A ]]
	then





	    i=1
	    while [[ i -le 4 ]]
	    do
		ff[i]="'e1'"
		ee[i]=T
		ss[i]=T
		tt[i]=F
		uu[i]='0 0'
		vv[i]=F
		gg[i]=T
                isub[i]=0
		i=i+1
	    done

	    rr[1]='1 0'
	    hh[1]="'E1'"
	    ww[1]=T

	    rr[2]='1 0'
	    hh[2]="'A'"
	    ww[2]=F

	    rr[3]='0 1'
	    hh[3]="'E1'"
	    ww[3]=T

	    rr[4]='0 1'
	    hh[4]="'A'"
	    ww[4]=F


	    grep -q e1 /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[3]=1
		isub[4]=1
	    fi



	elif  [[ $b == A,E1 ]]
	then


	    i=1
	    while [[ i -le 4 ]]
	    do
		hh[i]="'E1'"
		ee[i]=T
		ss[i]=F
		ww[i]=F
		rr[i]='0 0'
		vv[i]=T
		gg[i]=T
                isub[i]=0
		i=i+1
	    done

	    ff[1]="'e1'"
	    tt[1]=T
	    uu[1]='1 0'
		    
	    ff[2]="'A'"
	    tt[2]=F
	    uu[2]='1 0'

	    ff[3]="'e1'"
	    tt[3]=T
	    uu[3]='0 1'

	    ff[4]="'A'"
	    tt[4]=F
	    uu[4]='0 1'

	    grep -q E1 /var/tmp/final_state
            ifinal=$?
            if [[ ifinal -ne 0 ]]
	    then
		isub[1]=1
		isub[2]=1
	    fi


	elif  [[ $b == A,A ]]
	then


	    i=1
	    while [[ i -le 4 ]]
	    do
		ee[i]=T
		gg[i]=T
		rr[i]='0 0'
		uu[i]='0 0'
		ss[i]=F
		vv[i]=F
                isub[i]=0
		i=i+1
	    done

	    tt[1]=T
	    ww[1]=T
	    ff[1]="'e1'"
	    hh[1]="'E1'"

	    tt[2]=T
	    ww[2]=F
	    ff[2]="'e1'"
	    hh[2]="'A'"

	    tt[3]=F
	    ww[3]=T
	    ff[3]="'A'"
	    hh[3]="'E1'"

	    tt[4]=F
	    ww[4]=F
	    ff[4]="'A'"
	    hh[4]="'A'"


	else
	    print ' unexpected b=' $b
	    print ' program will now stop'
	    exit 1
	fi


	i=1
	while [[ i -le 4 ]]
	do
	    typeset -i k
	    k=k+1
	    echo $a $b $k $i ${isub[i]}
	    i=i+1
	done


    fi
done