From 4f467942ba0f471541dac1342f1c1cdd5acc9db6 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 26 Jan 2021 00:13:59 +0100 Subject: [PATCH] not used --- src/commercialFEM_fileList.f90 | 1 - src/future.f90 | 35 ---------------------------------- 2 files changed, 36 deletions(-) delete mode 100644 src/future.f90 diff --git a/src/commercialFEM_fileList.f90 b/src/commercialFEM_fileList.f90 index 257d6518d..442eb48c1 100644 --- a/src/commercialFEM_fileList.f90 +++ b/src/commercialFEM_fileList.f90 @@ -7,7 +7,6 @@ #include "IO.f90" #include "YAML_types.f90" #include "YAML_parse.f90" -#include "future.f90" #include "config.f90" #include "LAPACK_interface.f90" #include "math.f90" diff --git a/src/future.f90 b/src/future.f90 deleted file mode 100644 index b7eb3fec9..000000000 --- a/src/future.f90 +++ /dev/null @@ -1,35 +0,0 @@ -!-------------------------------------------------------------------------------------------------- -!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH -!> @brief New fortran functions for compiler versions that do not support them -!-------------------------------------------------------------------------------------------------- -module future - use prec - - implicit none - public - -contains - -#if defined(__GFORTRAN__) && __GNUC__<9 || defined(__INTEL_COMPILER) && INTEL_COMPILER<1800 -!-------------------------------------------------------------------------------------------------- -!> @brief substitute for the findloc intrinsic (only for integer, dimension(:) at the moment) -!-------------------------------------------------------------------------------------------------- -function findloc(a,v) - - integer, intent(in), dimension(:) :: a - integer, intent(in) :: v - integer :: i,j - integer, allocatable, dimension(:) :: findloc - - allocate(findloc(count(a==v))) - j = 1 - do i = 1, size(a) - if (a(i)==v) then - findloc(j) = i - j = j + 1 - endif - enddo -end function findloc -#endif - -end module future