cleaning
This commit is contained in:
parent
82dee9db0e
commit
cbcb7dca5d
|
@ -72,6 +72,7 @@ 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
|
||||
|
||||
|
@ -94,7 +95,6 @@ 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)
|
||||
|
|
Loading…
Reference in New Issue