added lb94 function to functionals.f90