calcMode not needed for spectral and FEM

src/CPFEM2.f90

@@ -18,7 +18,7 @@ contains
 !--------------------------------------------------------------------------------------------------
 !> @brief call (thread safe) all module initializations
 !--------------------------------------------------------------------------------------------------
-subroutine CPFEM_initAll(el,ip)
+subroutine CPFEM_initAll()
  use prec, only: &
    pInt
  use prec, only: &
@@ -55,10 +55,8 @@ subroutine CPFEM_initAll(el,ip)
 #endif
 
  implicit none
- integer(pInt), intent(in) ::                        el, &                                          !< FE el number
-                                                     ip                                             !< FE integration point number
 
- call DAMASK_interface_init                                                                    ! Spectral and FEM interface to commandline
+ call DAMASK_interface_init                                                                         ! Spectral and FEM interface to commandline
  call prec_init
  call IO_init
 #ifdef FEM
@@ -69,7 +67,7 @@ subroutine CPFEM_initAll(el,ip)
  call config_init
  call math_init
  call FE_init
- call mesh_init(ip, el)                                                                        ! pass on coordinates to alter calcMode of first ip
+ call mesh_init
  call lattice_init
  call material_init
  call constitutive_init

src/DAMASK_FEM.f90

@@ -142,7 +142,7 @@ program DAMASK_FEM
    quit
 !--------------------------------------------------------------------------------------------------
 ! init DAMASK (all modules)
- call CPFEM_initAll(el = 1_pInt, ip = 1_pInt)
+ call CPFEM_initAll
    write(6,'(/,a)')   ' <<<+-  DAMASK_FEM init  -+>>>'
    write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"

src/DAMASK_spectral.f90

@@ -154,7 +154,7 @@ program DAMASK_spectral
 
 !--------------------------------------------------------------------------------------------------
 ! init DAMASK (all modules)
- call CPFEM_initAll(el = 1_pInt, ip = 1_pInt)
+ call CPFEM_initAll
  write(6,'(/,a)')   ' <<<+-  DAMASK_spectral init  -+>>>'
  write(6,'(/,a,/)') ' Roters et al., Computational Materials Science, 2018'
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()

src/mesh.f90

@@ -497,7 +497,7 @@ subroutine mesh_init(ip,el)
  integer :: ierr, worldsize
 #endif
  integer(pInt), parameter :: FILEUNIT = 222_pInt
- integer(pInt), intent(in) :: el, ip
+ integer(pInt), intent(in), optional :: el, ip
  integer(pInt) :: j
  logical :: myDebug