Try to use `intent (in)` and `intent (out)`. Use one whitespace after intent and before the parenthesis. **Exception**: Do not user `intent (in)` or `intent (out)` for the variable `ismpl`. This leads to OpenMP-errors.
Try to use `intent (in)` and `intent (out)`. Use one white-space after intent and before the parenthesis. **Exception**: Do not user `intent (in)` or `intent (out)` for the variable `ismpl`. This leads to OpenMP-errors.
In subroutines, first define dummy (input/output) variables, then local variables.