Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|

integer | :: | Iter |

```
SUBROUTINE RestartBlocking(Iter)
INTEGER :: Iter
StartBlockIter = 0
StartBlockIter = Iter + StepsSft
! ChangeVars gets called at the end of the run, wont actually start until the next iteration.
TotNoBlockSizes = 0
IF (tBlockEveryIteration) THEN
TotNoBlockSizes = FLOOR((LOG10(REAL(NMCyc - StartBlockIter, dp))) / (LOG10(2.0_dp)))
ELSE
TotNoBlockSizes = FLOOR((LOG10((REAL(NMCyc - StartBlockIter, dp)) / (REAL(StepsSft, dp)))) / (LOG10(2.0_dp)))
end if
if (allocated(CurrBlockSum)) CurrBlockSum(:) = 0.0_dp
if (allocated(BlockSum)) BlockSum(:) = 0.0_dp
if (allocated(BlockSqrdSum)) BlockSqrdSum(:) = 0.0_dp
END SUBROUTINE RestartBlocking
```

NECI was developed by Alavi Group

© 2023

Documentation generated by FORD