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

less debug clutter...

This commit is contained in:
Philip Eisenlohr 2009-10-14 13:23:52 +00:00
parent c3cb72d356
commit 7f84961c93
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
code/mesh.f90
View File

@ -208,25 +208,15 @@
select case (FEsolver) select case (FEsolver)
case ('Marc') case ('Marc')
write(6,*) '<<---mesh_marc_get_tableStyles--->>'; call flush(6)
call mesh_marc_get_tableStyles(fileUnit) call mesh_marc_get_tableStyles(fileUnit)
write(6,*) '<<---mesh_marc_count_nodesAndElements--->>'; call flush(6)
call mesh_marc_count_nodesAndElements(fileUnit) call mesh_marc_count_nodesAndElements(fileUnit)
write(6,*) '<<---mesh_marc_count_elementSets--->>'; call flush(6)
call mesh_marc_count_elementSets(fileUnit) call mesh_marc_count_elementSets(fileUnit)
write(6,*) '<<---mesh_marc_map_elementSets--->>'; call flush(6)
call mesh_marc_map_elementSets(fileUnit) call mesh_marc_map_elementSets(fileUnit)
write(6,*) '<<---mesh_marc_count_cpElements--->>'; call flush(6)
call mesh_marc_count_cpElements(fileUnit) call mesh_marc_count_cpElements(fileUnit)
write(6,*) '<<---mesh_marc_map_elements--->>'; call flush(6)
call mesh_marc_map_elements(fileUnit) call mesh_marc_map_elements(fileUnit)
write(6,*) '<<---mesh_marc_map_nodes--->>'; call flush(6)
call mesh_marc_map_nodes(fileUnit) call mesh_marc_map_nodes(fileUnit)
write(6,*) '<<---mesh_marc_build_nodes--->>'; call flush(6)
call mesh_marc_build_nodes(fileUnit) call mesh_marc_build_nodes(fileUnit)
write(6,*) '<<---mesh_marc_count_cpSizes--->>'; call flush(6)
call mesh_marc_count_cpSizes(fileunit) call mesh_marc_count_cpSizes(fileunit)
write(6,*) '<<---mesh_marc_build_elements--->>'; call flush(6)
call mesh_marc_build_elements(fileUnit) call mesh_marc_build_elements(fileUnit)
case ('Abaqus') case ('Abaqus')
call mesh_abaqus_count_nodesAndElements(fileUnit) call mesh_abaqus_count_nodesAndElements(fileUnit)
@ -243,15 +233,10 @@
end select end select
close (fileUnit) close (fileUnit)
write(6,*) '<<---mesh_build_sharedElems--->>'; call flush(6)
call mesh_build_sharedElems() call mesh_build_sharedElems()
write(6,*) '<<---mesh_build_ipNeighborhood--->>'; call flush(6)
call mesh_build_ipNeighborhood() call mesh_build_ipNeighborhood()
write(6,*) '<<---mesh_build_subNodeCoords--->>'; call flush(6)
call mesh_build_subNodeCoords() call mesh_build_subNodeCoords()
write(6,*) '<<---mesh_build_ipVolumes--->>'; call flush(6)
call mesh_build_ipVolumes() call mesh_build_ipVolumes()
write(6,*) '<<---mesh_build_ipAreas--->>'; call flush(6)
call mesh_build_ipAreas() call mesh_build_ipAreas()
call mesh_tell_statistics() call mesh_tell_statistics()
@ -2200,7 +2185,6 @@ subroutine mesh_marc_count_cpSizes (unit)
do e = 1,mesh_NcpElems do e = 1,mesh_NcpElems
t = mesh_element(2,e) ! my type t = mesh_element(2,e) ! my type
write(6,*) e,t; call flush(6)
node_seen = 0_pInt ! reset node duplicates node_seen = 0_pInt ! reset node duplicates
do j = 1,FE_Nnodes(t) ! check each node of element do j = 1,FE_Nnodes(t) ! check each node of element
n = mesh_FEasCP('node',mesh_element(4+j,e)) n = mesh_FEasCP('node',mesh_element(4+j,e))