calcpar.f90 10 KB