typo in checkpoint.f90