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

cleaning

This commit is contained in:
Martin Diehl 2020-02-26 06:12:45 +01:00
parent 82dee9db0e
commit cbcb7dca5d
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/CPFEM.f90
View File

@ -72,32 +72,32 @@ contains
!> @brief call (thread safe) all module initializations !> @brief call (thread safe) all module initializations
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine CPFEM_initAll(el,ip) subroutine CPFEM_initAll(el,ip)
integer(pInt), intent(in) :: el, & !< FE el number
ip !< FE integration point number
!$OMP CRITICAL (init) integer(pInt), intent(in) :: el, & !< FE el number
if (.not. CPFEM_init_done) then ip !< FE integration point number
call DAMASK_interface_init
call prec_init !$OMP CRITICAL(init)
call IO_init if (.not. CPFEM_init_done) then
call numerics_init call DAMASK_interface_init
call debug_init call prec_init
call config_init call IO_init
call math_init call numerics_init
call rotations_init call debug_init
call HDF5_utilities_init call config_init
call results_init call math_init
call mesh_init(ip, el) call rotations_init
call lattice_init call HDF5_utilities_init
call material_init call results_init
call constitutive_init call mesh_init(ip, el)
call crystallite_init call lattice_init
call homogenization_init call material_init
call CPFEM_init call constitutive_init
call CPFEM_initX call crystallite_init
CPFEM_init_done = .true. call homogenization_init
endif call CPFEM_init
!$OMP END CRITICAL (init) CPFEM_init_done = .true.
endif
!$OMP END CRITICAL(init)
end subroutine CPFEM_initAll end subroutine CPFEM_initAll