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

unused

This commit is contained in:
Martin Diehl 2019-06-13 00:05:29 +02:00
parent ee8678d606
commit 2d52560b6d
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/mesh_marc.f90
View File

@ -829,7 +829,7 @@ subroutine mesh_marc_buildElements(initialcondTableStyle,fileUnit)
call results_closeJobFile call results_closeJobFile
#endif #endif
call calcCells(theMesh,theMesh%elem,mesh_element(5:,:)) call buildCells(theMesh,theMesh%elem,mesh_element(5:,:))
read (fileUnit,'(A300)',END=630) line read (fileUnit,'(A300)',END=630) line
do do
@ -868,15 +868,15 @@ subroutine mesh_marc_buildElements(initialcondTableStyle,fileUnit)
630 end subroutine mesh_marc_buildElements 630 end subroutine mesh_marc_buildElements
subroutine calcCells(thisMesh,elem,connectivity_elem) subroutine buildCells(thisMesh,elem,connectivity_elem)
class(tMesh) :: thisMesh class(tMesh) :: thisMesh
type(tElement) :: elem type(tElement) :: elem
integer,dimension(:,:), intent(in) :: connectivity_elem integer,dimension(:,:), intent(in) :: connectivity_elem
integer,dimension(:,:), allocatable :: con_elem,temp,con,parentsAndWeights,candidates_global integer,dimension(:,:), allocatable :: parentsAndWeights,candidates_global
integer,dimension(:), allocatable :: l, nodes, candidates_local integer,dimension(:), allocatable :: candidates_local
integer,dimension(:,:,:), allocatable :: con_cell,connectivity_cell integer,dimension(:,:,:), allocatable :: connectivity_cell
integer,dimension(:,:), allocatable :: sorted,test,connectivity_cell_reshape integer,dimension(:,:), allocatable :: connectivity_cell_reshape
real(pReal), dimension(:,:), allocatable :: coordinates,nodes5 real(pReal), dimension(:,:), allocatable :: coordinates,nodes5
integer :: e, n, c, p, s,u,i,m,j,nParentNodes,nCellNode,ierr,Nelem,candidateID integer :: e, n, c, p, s,u,i,m,j,nParentNodes,nCellNode,ierr,Nelem,candidateID
@ -1017,7 +1017,7 @@ subroutine calcCells(thisMesh,elem,connectivity_elem)
'connectivity of the cells','-') 'connectivity of the cells','-')
call results_closeJobFile call results_closeJobFile
#endif #endif
end subroutine calcCells end subroutine buildCells
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------