# files:
rm nomefile*.inc
cat << END-OF-FILE > nomefile1.inc
      character*7 nomefile
      parameter (nomefile="ewtop_s")
END-OF-FILE
cat << END-OF-FILE > nomefile2.inc
      character*7 nomefile
      parameter (nomefile="ewtop_t")
END-OF-FILE
cat << END-OF-FILE > nomefile3.inc
      character*2 nomefile
      parameter (nomefile="wt")
END-OF-FILE
cat << END-OF-FILE > nomefile4.inc
      character*5 nomefile
      parameter (nomefile="wt_2l")
END-OF-FILE
cat << END-OF-FILE > nomefile5.inc
      character*5 nomefile
      parameter (nomefile="ttbar")
END-OF-FILE
cat << END-OF-FILE > nomefile6.inc
      character*5 nomefile
      parameter (nomefile="tt_2l")
END-OF-FILE
cat << END-OF-FILE > nomefile7.inc
      character*3 nomefile
      parameter (nomefile="wbb")
END-OF-FILE
cat << END-OF-FILE > nomefile8.inc
      character*3 nomefile
      parameter (nomefile="wcc")
END-OF-FILE
cat << END-OF-FILE > nomefile9.inc
      character*7 nomefile
      parameter (nomefile="ww_incl")
END-OF-FILE
cat << END-OF-FILE > nomefile10.inc
      character*7 nomefile
      parameter (nomefile="zw_incl")
END-OF-FILE
cat << END-OF-FILE > nomefile11.inc
      character*7 nomefile
      parameter (nomefile="zw_bbln")
END-OF-FILE
cat << END-OF-FILE > nomefile12.inc
      character*7 nomefile
      parameter (nomefile="zz_incl")
END-OF-FILE
cat << END-OF-FILE > nomefile13.inc
      character*3 nomefile
      parameter (nomefile="htb")
END-OF-FILE

# execution:
set lst = ("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12")
foreach k ($lst)
	cp nomefile${k}.inc nomefile.inc
	readcwn.csh
end


# S/N:
rm sn
f77 -o sn sn.f
sn
