Create grd_math.f90