From 49a4202e2651df72d7b0b2aff6f28eaebdf2d49a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 29 Sep 2018 10:31:45 +0200 Subject: [PATCH] not needed here --- src/meshFEM.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/meshFEM.f90 b/src/meshFEM.f90 index 31c1932c6..5d81fa0b3 100644 --- a/src/meshFEM.f90 +++ b/src/meshFEM.f90 @@ -104,7 +104,7 @@ contains !> @brief initializes the mesh by calling all necessary private routines the mesh module !! Order and routines strongly depend on type of solver !-------------------------------------------------------------------------------------------------- -subroutine mesh_init(ip,el) +subroutine mesh_init() use DAMASK_interface use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) use IO, only: & @@ -133,7 +133,6 @@ subroutine mesh_init(ip,el) implicit none integer(pInt), parameter :: FILEUNIT = 222_pInt - integer(pInt), intent(in) :: el, ip integer(pInt) :: j integer(pInt), allocatable, dimension(:) :: chunkPos integer :: dimPlex