fix nr.f90 nrtype.f90 nrutil.f90