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

now deleted old _single files

This commit is contained in:
Martin Diehl 2011-02-25 12:49:18 +00:00
parent 8cae4d609a
commit a6d1e5c911
3 changed files with 2 additions and 6250 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2888
code/math_single.f90
View File

File diff suppressed because it is too large Load Diff

4
code/mesh.f90
View File

@ -3040,7 +3040,7 @@ endsubroutine
!*********************************************************** !***********************************************************
subroutine mesh_build_ipVolumes() subroutine mesh_build_ipVolumes()
use prec, only: pInt use prec, only: pInt, tol_gravityNodePos
use math, only: math_volTetrahedron use math, only: math_volTetrahedron
implicit none implicit none
@ -3070,7 +3070,7 @@ endsubroutine
do j = 1,mesh_maxNnodes+mesh_maxNsubNodes-1 ! walk through entire flagList except last do j = 1,mesh_maxNnodes+mesh_maxNsubNodes-1 ! walk through entire flagList except last
if (gravityNode(j)) then ! valid node index if (gravityNode(j)) then ! valid node index
do k = j+1,mesh_maxNnodes+mesh_maxNsubNodes ! walk through remainder of list do k = j+1,mesh_maxNnodes+mesh_maxNsubNodes ! walk through remainder of list
if (gravityNode(k) .and. all(abs(gravityNodePos(:,j) - gravityNodePos(:,k)) < 1.0e-100_pReal)) then ! found duplicate if (gravityNode(k) .and. all(abs(gravityNodePos(:,j) - gravityNodePos(:,k)) < tol_gravityNodePos)) then ! found duplicate
gravityNode(j) = .false. ! delete first instance gravityNode(j) = .false. ! delete first instance
gravityNodePos(:,j) = 0.0_pReal gravityNodePos(:,j) = 0.0_pReal
exit ! continue with next suspect exit ! continue with next suspect

3360
code/mesh_single.f90
View File

File diff suppressed because it is too large Load Diff