remove extra lines
This commit is contained in:
parent
f909aee835
commit
7c96d49b08
|
@ -32,7 +32,6 @@ module subroutine elastic_init(phases)
|
||||||
elastic, &
|
elastic, &
|
||||||
stiffDegradation
|
stiffDegradation
|
||||||
|
|
||||||
|
|
||||||
print'(/,a)', ' <<<+- phase:mechanical:elastic init -+>>>'
|
print'(/,a)', ' <<<+- phase:mechanical:elastic init -+>>>'
|
||||||
|
|
||||||
allocate(phase_elasticity(phases%length), source = ELASTICITY_undefined_ID)
|
allocate(phase_elasticity(phases%length), source = ELASTICITY_undefined_ID)
|
||||||
|
@ -115,9 +114,3 @@ end subroutine phase_hooke_SandItsTangents
|
||||||
|
|
||||||
|
|
||||||
end submodule elastic
|
end submodule elastic
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue