Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
E202-02
Multisurface Plasticity
Commits
813160d1
Commit
813160d1
authored
Jan 13, 2020
by
Sebastian Pech
Browse files
Output step and increment for debugging
parent
cd0ce828
Pipeline
#183
passed with stages
in 47 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/IncrementSimulation.f90
View file @
813160d1
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment