cleaning
This commit is contained in:
parent
82dee9db0e
commit
cbcb7dca5d
|
@ -72,10 +72,11 @@ contains
|
|||
!> @brief call (thread safe) all module initializations
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
subroutine CPFEM_initAll(el,ip)
|
||||
|
||||
integer(pInt), intent(in) :: el, & !< FE el number
|
||||
ip !< FE integration point number
|
||||
|
||||
!$OMP CRITICAL (init)
|
||||
!$OMP CRITICAL(init)
|
||||
if (.not. CPFEM_init_done) then
|
||||
call DAMASK_interface_init
|
||||
call prec_init
|
||||
|
@ -94,10 +95,9 @@ subroutine CPFEM_initAll(el,ip)
|
|||
call crystallite_init
|
||||
call homogenization_init
|
||||
call CPFEM_init
|
||||
call CPFEM_initX
|
||||
CPFEM_init_done = .true.
|
||||
endif
|
||||
!$OMP END CRITICAL (init)
|
||||
!$OMP END CRITICAL(init)
|
||||
|
||||
end subroutine CPFEM_initAll
|
||||
|
||||
|
|
Loading…
Reference in New Issue