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

small output polishing

This commit is contained in:
Philip Eisenlohr 2011-07-15 12:25:38 +00:00
parent cb96559d99
commit 8c65cb9ea6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/CPFEM.f90
View File

@ -403,7 +403,7 @@ subroutine CPFEM_general(mode, coords, ffn, ffn1, Temperature, dt, element, IP,
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(6,'(a)') '<< CPFEM >> Aging states' write(6,'(a)') '<< CPFEM >> Aging states'
if (debug_e == cp_en .and. debug_i == IP) then if (debug_e == cp_en .and. debug_i == IP) then
write(6,'(a,x,i8,x,i2,x,i3,/,(12(x),6(e20.8,x)))') '<< CPFEM >> AGED state of element ip grain',& write(6,'(a,x,i8,x,i2,x,i4,/,(12(x),6(e20.8,x)))') '<< CPFEM >> AGED state of element ip grain',&
cp_en, IP, 1, constitutive_state(1,IP,cp_en)%p cp_en, IP, 1, constitutive_state(1,IP,cp_en)%p
write(6,*) write(6,*)
endif endif
@ -538,7 +538,7 @@ subroutine CPFEM_general(mode, coords, ffn, ffn1, Temperature, dt, element, IP,
endif endif
if (debug_verbosity > 0) then if (debug_verbosity > 0) then
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(6,'(a,i5,a,i5)') '<< CPFEM >> Start stress and tangent ',FEsolving_execElem(1),' to ',FEsolving_execElem(2) write(6,'(a,i8,a,i8)') '<< CPFEM >> Start stress and tangent ',FEsolving_execElem(1),' to ',FEsolving_execElem(2)
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
endif endif
call materialpoint_stressAndItsTangent(updateJaco, dt) ! calculate stress and its tangent (parallel execution inside) call materialpoint_stressAndItsTangent(updateJaco, dt) ! calculate stress and its tangent (parallel execution inside)

2
code/IO.f90
View File

@ -1383,7 +1383,7 @@ endfunction
write(6,*) write(6,*)
write(6,'(a38)') '+------------------------------------+' write(6,'(a38)') '+------------------------------------+'
write(6,'(a38)') '+ error +' write(6,'(a38)') '+ error +'
write(6,'(a17,i3,a18)') '+ ',ID,' +' write(6,'(a17,i3,a18)') '+ ',ID,' +'
write(6,'(a38)') '+ +' write(6,'(a38)') '+ +'
write(6,'(a2,a)') '+ ',msg write(6,'(a2,a)') '+ ',msg
if (present(ext_msg)) write(6,*) '+ ',ext_msg if (present(ext_msg)) write(6,*) '+ ',ext_msg