? r.mapcalc script for curvature?

Does anyone have a r.mapcalc script for surface curvature?

Thanks

Tim Miller