:

echo "
      REAL*16 ZZ 
      STOP
      END 
" >test16.f
F77=`cat ../F77`

LIST="main/q_decay.f main/q_kin.f main/q_kinfun.f main/n_comphep.f \
events/unform.f events/events.f main/cs_22.f main/menu.f"
$F77 -c  test16.f     
if (test $? -eq 0 ) then
  for FILE in $LIST 
  do 
    sed -e 's/REAL\*4/REAL*16/' < $FILE > f_tmp 
    mv f_tmp $FILE
    chmod 644 $FILE
  done
else
echo  'QUADRUPLE PRECISION IS NOT PERMITTED, OK'
 for FILE in $LIST 
 do 
    sed -e 's/REAL\*16/REAL*4/' < $FILE > f_tmp
    mv f_tmp $FILE
    chmod 644 $FILE
 done
fi
rm test16.f test16.o
