223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fixed typo

This commit is contained in:
Martin Diehl 2020-03-09 22:20:33 +01:00
parent 6bc57d4911
commit 3fadbaa369
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/discretization.f90
View File

@ -25,7 +25,7 @@ module discretization
discretization_NodeCoords discretization_NodeCoords
integer :: & integer :: &
discretization_sharedNodesBeginn discretization_sharedNodesBegin
public :: & public :: &
discretization_init, & discretization_init, &
@ -40,7 +40,7 @@ contains
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine discretization_init(homogenizationAt,microstructureAt,& subroutine discretization_init(homogenizationAt,microstructureAt,&
IPcoords0,NodeCoords0,& IPcoords0,NodeCoords0,&
sharedNodesBeginn) sharedNodesBegin)
integer, dimension(:), intent(in) :: & integer, dimension(:), intent(in) :: &
homogenizationAt, & homogenizationAt, &
@ -49,7 +49,7 @@ subroutine discretization_init(homogenizationAt,microstructureAt,&
IPcoords0, & IPcoords0, &
NodeCoords0 NodeCoords0
integer, optional, intent(in) :: & integer, optional, intent(in) :: &
sharedNodesBeginn sharedNodesBegin
write(6,'(/,a)') ' <<<+- discretization init -+>>>'; flush(6) write(6,'(/,a)') ' <<<+- discretization init -+>>>'; flush(6)
@ -65,10 +65,10 @@ subroutine discretization_init(homogenizationAt,microstructureAt,&
discretization_NodeCoords0 = NodeCoords0 discretization_NodeCoords0 = NodeCoords0
discretization_NodeCoords = NodeCoords0 discretization_NodeCoords = NodeCoords0
if(present(sharedNodesBeginn)) then if(present(sharedNodesBegin)) then
discretization_sharedNodesBeginn = sharedNodesBeginn discretization_sharedNodesBegin = sharedNodesBegin
else else
discretization_sharedNodesBeginn = size(discretization_NodeCoords0,2) discretization_sharedNodesBegin = size(discretization_NodeCoords0,2)
endif endif
end subroutine discretization_init end subroutine discretization_init
@ -83,8 +83,8 @@ subroutine discretization_results
call results_closeGroup(results_addGroup('current/geometry')) call results_closeGroup(results_addGroup('current/geometry'))
u = discretization_NodeCoords (1:3,:discretization_sharedNodesBeginn) & u = discretization_NodeCoords (1:3,:discretization_sharedNodesBegin) &
- discretization_NodeCoords0(1:3,:discretization_sharedNodesBeginn) - discretization_NodeCoords0(1:3,:discretization_sharedNodesBegin)
call results_writeDataset('current/geometry',u,'u_n','displacements of the nodes','m') call results_writeDataset('current/geometry',u,'u_n','displacements of the nodes','m')
u = discretization_IPcoords & u = discretization_IPcoords &