:

F77=`cat $COMPHEP/F77`

ff=
for file in  sqme.f service.f d*.f 
do 
   if(test -r $file) then ff="$ff $file";fi
done
if(test  -n "$ff" ) then
   $F77 -c $ff; if(test $? -ne 0) then exit 1; else rm $ff; fi
fi


oo=
for file in  sqme.o service.o d*.o
do
  if(test -r $file) then  oo="$oo $file";fi
done

if(test  -n "$oo" ) then 
   ar r f_0.a $oo; if(test $? -ne 0) then exit 1; else rm $oo; fi
fi

$COMPHEP/100 "$F77" c f
if(test $? -ne 0) then exit 1; fi

$COMPHEP/100 "$F77" f f
if(test $? -ne 0) then exit 1; fi

ranlib f_*.a c_*.a

exit 0