Update rpmdrate/_math.f90

pls add "integer i "