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

Commit of mesh

This commit is contained in:
Luc Hantcherli 2007-12-11 14:23:21 +00:00
parent 08a1c38c73
commit 32fc32865f
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
trunk/mesh.f90
View File

@ -213,7 +213,7 @@
call mesh_tell_statistics() call mesh_tell_statistics()
close (fileUnit) close (fileUnit)
else else
call IO_error(100) call IO_error(100) ! cannot open input file
endif endif
END SUBROUTINE END SUBROUTINE
@ -795,14 +795,18 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matc
SUBROUTINE mesh_tell_statistics() SUBROUTINE mesh_tell_statistics()
use prec, only: pInt use prec, only: pInt
use IO, only: IO_error
implicit none implicit none
integer(pInt) i
integer(pInt), dimension (:,:), allocatable :: mesh_MatTex integer(pInt), dimension (:,:), allocatable :: mesh_MatTex
character(len=64) fmt character(len=64) fmt
integer(pInt) i
if (mesh_maxValStateVar(1) == 0) call IO_error(110) ! no materials specified
if (mesh_maxValStateVar(2) == 0) call IO_error(120) ! no textures specified
allocate (mesh_MatTex(mesh_maxValStateVar(1),mesh_maxValStateVar(2))) allocate (mesh_MatTex(mesh_maxValStateVar(1),mesh_maxValStateVar(2)))
mesh_MatTex = 0_pInt mesh_MatTex = 0_pInt
do i=1,mesh_NcpElems do i=1,mesh_NcpElems
mesh_MatTex(mesh_element(3,i),mesh_element(4,i)) = & mesh_MatTex(mesh_element(3,i),mesh_element(4,i)) = &
mesh_MatTex(mesh_element(3,i),mesh_element(4,i)) + 1 ! count combinations of material and texture mesh_MatTex(mesh_element(3,i),mesh_element(4,i)) + 1 ! count combinations of material and texture