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

fixed closing of file (unit 222) statement in FEsolving.f90 

added missing keyword in mesh.f90 with ifndef Spectral statement (needed for Marc and Abaqus)
This commit is contained in:
Martin Diehl 2012-06-19 14:33:24 +00:00
parent 06be437bc9
commit 481268c8c2
2 changed files with 35 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/FEsolving.f90
View File

@ -166,11 +166,11 @@ subroutine FE_init
endif endif
enddo enddo
#endif #endif
200 close(fileunit)
else else
modelName = getSolverJobName() modelName = getSolverJobName()
endif endif
200 close(fileunit)
#endif #endif
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(6,*) write(6,*)

7
code/mesh.f90
View File

@ -366,7 +366,6 @@ subroutine mesh_init(ip,element)
call mesh_build_FEdata ! get properties of the different types of elements call mesh_build_FEdata ! get properties of the different types of elements
#ifdef Spectral #ifdef Spectral
call IO_open_file(fileUnit,geometryFile) ! parse info from geometry file... call IO_open_file(fileUnit,geometryFile) ! parse info from geometry file...
call mesh_spectral_count_nodesAndElements(fileUnit) call mesh_spectral_count_nodesAndElements(fileUnit)
call mesh_spectral_count_cpElements call mesh_spectral_count_cpElements
call mesh_spectral_map_elements call mesh_spectral_map_elements
@ -2578,8 +2577,10 @@ integer(pInt), intent(in) :: myUnit
integer(pInt), parameter :: maxNchunks = 5_pInt integer(pInt), parameter :: maxNchunks = 5_pInt
integer(pInt), dimension (1+2*maxNchunks) :: myPos integer(pInt), dimension (1+2*maxNchunks) :: myPos
integer(pInt) chunk, Nchunks integer(pInt) chunk, Nchunks
character(len=300) line, damaskOption, v character(len=300) :: line, damaskOption, v
#ifndef Spectral
character(len=300) :: keyword
#endif
mesh_periodicSurface = .false. mesh_periodicSurface = .false.
610 FORMAT(A300) 610 FORMAT(A300)