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

typo

This commit is contained in:
Martin Diehl 2019-09-29 14:18:21 -07:00
parent ad75ebd973
commit d47dff9dd8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/discretization.f90
View File

@ -28,7 +28,7 @@ module discretization
discretization_NodeCoords discretization_NodeCoords
integer :: & integer :: &
discretization_sharedNodesBegin discretization_sharedNodesBeginn
public :: & public :: &
discretization_init, & discretization_init, &
@ -43,7 +43,7 @@ contains
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine discretization_init(homogenizationAt,microstructureAt,& subroutine discretization_init(homogenizationAt,microstructureAt,&
IPcoords0,NodeCoords0,& IPcoords0,NodeCoords0,&
sharedNodesBegin) sharedNodesBeginn)
integer, dimension(:), intent(in) :: & integer, dimension(:), intent(in) :: &
homogenizationAt, & homogenizationAt, &
@ -52,7 +52,7 @@ subroutine discretization_init(homogenizationAt,microstructureAt,&
IPcoords0, & IPcoords0, &
NodeCoords0 NodeCoords0
integer, optional, intent(in) :: & integer, optional, intent(in) :: &
sharedNodesBegin sharedNodesBeginn
write(6,'(/,a)') ' <<<+- discretization init -+>>>' write(6,'(/,a)') ' <<<+- discretization init -+>>>'
@ -69,9 +69,9 @@ subroutine discretization_init(homogenizationAt,microstructureAt,&
discretization_NodeCoords = NodeCoords0 discretization_NodeCoords = NodeCoords0
if(present(sharedNodesBegin)) then if(present(sharedNodesBegin)) then
discretization_sharedNodesBegin = sharedNodesBegin discretization_sharedNodesBeginn = sharedNodesBeginn
else else
discretization_sharedNodesBegin = size(discretization_NodeCoords0,2) discretization_sharedNodesBeginn = size(discretization_NodeCoords0,2)
endif endif
end subroutine discretization_init end subroutine discretization_init
@ -86,8 +86,8 @@ subroutine discretization_results
call HDF5_closeGroup(results_addGroup(trim('current/geometry'))) call HDF5_closeGroup(results_addGroup(trim('current/geometry')))
u = discretization_NodeCoords (1:3,:discretization_sharedNodesBegin) & u = discretization_NodeCoords (1:3,:discretization_sharedNodesBeginn) &
- discretization_NodeCoords0(1:3,:discretization_sharedNodesBegin) - discretization_NodeCoords0(1:3,:discretization_sharedNodesBeginn)
call results_writeDataset('current/geometry',u,'u_n','nodal displacements','m') call results_writeDataset('current/geometry',u,'u_n','nodal displacements','m')
u = discretization_IPcoords & u = discretization_IPcoords &