From 717e715526220c8ab0a5b469b5436aae7be3f2c0 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Thu, 27 May 2021 11:40:46 +0200
Subject: [PATCH] remove unused routines

---
 src/basic_mod.F90 | 40 ----------------------------------------
 1 file changed, 40 deletions(-)

diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index ddc7093c..00888545 100644
--- a/src/basic_mod.F90
+++ b/src/basic_mod.F90
@@ -254,44 +254,4 @@ CONTAINS
 
   !========================================
 
-  SUBROUTINE allocate_array_l1(a,is1,ie1)
-    IMPLICIT NONE
-    LOGICAL, DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: a
-    INTEGER, INTENT(IN) :: is1,ie1
-    ALLOCATE(a(is1:ie1))
-    a=.false.
-  END SUBROUTINE allocate_array_l1
-
-  SUBROUTINE allocate_array_l2(a,is1,ie1,is2,ie2)
-    IMPLICIT NONE
-    LOGICAL, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: a
-    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2
-    ALLOCATE(a(is1:ie1,is2:ie2))
-    a=.false.
-  END SUBROUTINE allocate_array_l2
-
-  SUBROUTINE allocate_array_l3(a,is1,ie1,is2,ie2,is3,ie3)
-    IMPLICIT NONE
-    LOGICAL, DIMENSION(:,:,:), ALLOCATABLE, INTENT(INOUT) :: a
-    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2,is3,ie3
-    ALLOCATE(a(is1:ie1,is2:ie2,is3:ie3))
-    a=.false.
-  END SUBROUTINE allocate_array_l3
-
-  SUBROUTINE allocate_array_l4(a,is1,ie1,is2,ie2,is3,ie3,is4,ie4)
-    IMPLICIT NONE
-    LOGICAL, DIMENSION(:,:,:,:), ALLOCATABLE, INTENT(INOUT) :: a
-    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2,is3,ie3,is4,ie4
-    ALLOCATE(a(is1:ie1,is2:ie2,is3:ie3,is4:ie4))
-    a=.false.
-  END SUBROUTINE allocate_array_l4
-
-  SUBROUTINE allocate_array_l5(a,is1,ie1,is2,ie2,is3,ie3,is4,ie4,is5,ie5)
-    IMPLICIT NONE
-    real(dp), DIMENSION(:,:,:,:,:), ALLOCATABLE, INTENT(INOUT) :: a
-    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2,is3,ie3,is4,ie4,is5,ie5
-    ALLOCATE(a(is1:ie1,is2:ie2,is3:ie3,is4:ie4,is5:ie5))
-    a=.false.
-  END SUBROUTINE allocate_array_l5
-
 END MODULE basic
-- 
GitLab