Update intcalc.f90