include_gmean.f90 Source File


Contents

Source Code


Source Code

res = PRODUCT(x)**(1._prec/REAL(SIZE(x),prec))