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

comments

This commit is contained in:
Martin Diehl 2015-03-15 15:30:14 +00:00
parent 12cb5e56fe
commit 4a0c1c1717
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/CPFEM.f90
View File

@ -77,9 +77,9 @@ subroutine CPFEM_initAll(temperature,el,ip)
#endif #endif
implicit none implicit none
integer(pInt), intent(in) :: el, & ! FE el number integer(pInt), intent(in) :: el, & !< FE el number
ip ! FE integration point number ip !< FE integration point number
real(pReal), intent(in) :: temperature ! temperature real(pReal), intent(in) :: temperature !< temperature
!$OMP CRITICAL (init) !$OMP CRITICAL (init)
if (.not. CPFEM_init_done) then if (.not. CPFEM_init_done) then