flop counter



is there any free routine that counts flop in a fortran program run?

.