Commit 813160d1 authored by Sebastian Pech's avatar Sebastian Pech
Browse files

Output step and increment for debugging

parent cd0ce828
Pipeline #183 passed with stages
in 47 seconds
......@@ -11,6 +11,9 @@ contains
subroutine Init_Increment(kstep,kinc)
integer, intent(in) :: kstep,kinc
call reset_element_failure_mode()
write(*,'(A)') "----------------------"
write(*,'("| STEP ", I2, " INCR ", I5, " |")') kstep, kinc
write(*,'(A)') "----------------------"
end subroutine Init_Increment
subroutine Finish_Increment (kstep,kinc)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment