[cig-commits] [commit] devel: removed three unused routines (Alexis Bottero had noticed that they were unused) (c4113dc)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/55fb671b32b9e3ce6a9306c853f937bcb6273cc1...1ce526c28606ad1b25a294f95021d8c20fa4063d

>---------------------------------------------------------------

commit c4113dca1b44d605f5c5aa4e0222a0cdbdfa2102
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Thu Feb 27 13:52:23 2014 +0100

    removed three unused routines (Alexis Bottero had noticed that they were unused)


>---------------------------------------------------------------

c4113dca1b44d605f5c5aa4e0222a0cdbdfa2102
 src/shared/read_value_parameters.f90 | 57 ------------------------------------
 1 file changed, 57 deletions(-)

diff --git a/src/shared/read_value_parameters.f90 b/src/shared/read_value_parameters.f90
index a5c7596..6ee9bd7 100644
--- a/src/shared/read_value_parameters.f90
+++ b/src/shared/read_value_parameters.f90
@@ -92,22 +92,6 @@
 
 !--------------------
 
-  subroutine read_value_string(iin,ignore_junk,value_to_read)
-
-  implicit none
-
-  integer iin
-  logical ignore_junk
-  character(len=*) value_to_read
-  character(len=100) string_read
-
-  call read_next_line(iin,ignore_junk,string_read)
-  value_to_read = string_read
-
-  end subroutine read_value_string
-
-!--------------------
-
   subroutine read_two_interface_points(iin,ignore_junk,value_to_read_1,value_to_read_2)
 
   implicit none
@@ -124,47 +108,6 @@
 
 !--------------------
 
-  subroutine read_region_coordinates(iin,ignore_junk,value_to_read_1,value_to_read_2, &
-                          value_to_read_3,value_to_read_4,value_to_read_5)
-
-  implicit none
-
-  integer iin
-  logical ignore_junk
-  integer value_to_read_1,value_to_read_2,value_to_read_3,value_to_read_4,value_to_read_5
-  character(len=100) string_read
-
-  call read_next_line(iin,ignore_junk,string_read)
-  read(string_read,*) value_to_read_1,value_to_read_2,value_to_read_3,value_to_read_4,value_to_read_5
-
-  end subroutine read_region_coordinates
-
-!--------------------
-
-  subroutine read_material_parameters(iin,ignore_junk,i,icodematread,val0read,val1read,val2read,val3read, &
-                         val4read,val5read,val6read,val7read,val8read,val9read,val10read,val11read,val12read)
-
-
-  implicit none
-
-  integer iin
-  logical ignore_junk
-  integer i,icodematread
-  double precision val0read,val1read,val2read,val3read,val4read,val5read,val6read,val7read,&
-                   val8read,val9read,val10read,val11read,val12read
-
-  character(len=100) string_read
-
-  call read_next_line(iin,ignore_junk,string_read)
-  print*,string_read
-  read(string_read,*) i,icodematread,val0read,val1read,val2read,val3read,val4read,val5read,&
-                      val6read,val7read,val8read,val9read,val10read,val11read,val12read
-
-
-  end subroutine read_material_parameters
-
-!--------------------
-
   subroutine read_next_line(iin,ignore_junk,string_read)
 
   implicit none