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

named if

This commit is contained in:
Martin Diehl 2015-08-18 16:07:01 +00:00
parent e461981ae5
commit bae5cfcf89
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/homogenization.f90
View File

@ -210,7 +210,7 @@ subroutine homogenization_init
!--------------------------------------------------------------------------------------------------
! write description file for homogenization output
if (worldrank == 0_pInt) then
mainProcess2: if (worldrank == 0) then
call IO_write_jobFile(FILEUNIT,'outputHomogenization')
do p = 1,material_Nhomogenization
if (any(material_homog == p)) then
@ -383,7 +383,7 @@ subroutine homogenization_init
endif
enddo
close(FILEUNIT)
endif
endif mainProcess2
!--------------------------------------------------------------------------------------------------
! allocate and initialize global variables