Merge pull request #1248 from danielpeter/devel

code cleaning

src/shared/exit_mpi.F90

@@ -83,7 +83,7 @@ subroutine stop_the_code(error_msg)
 
   implicit none
 
-  character(len=*) :: error_msg
+  character(len=*),intent(in) :: error_msg
 
   call exit_MPI(myrank,error_msg)
 

src/shared/read_value_parameters.f90

@@ -189,8 +189,8 @@ subroutine read_value_integer_p(value_to_read, name)
 
   implicit none
 
-  integer :: value_to_read
-  character(len=*) :: name
+  integer, intent(inout) :: value_to_read
+  character(len=*), intent(in) :: name
   character(len=MAX_STRING_LEN) :: string_read
   integer :: ierr
   common /param_err_common/ ierr
@@ -209,8 +209,8 @@ subroutine read_value_double_precision_p(value_to_read, name)
 
   implicit none
 
-  double precision :: value_to_read
-  character(len=*) :: name
+  double precision, intent(inout) :: value_to_read
+  character(len=*), intent(in) :: name
   character(len=MAX_STRING_LEN) :: string_read
   integer :: ierr
   common /param_err_common/ ierr
@@ -229,8 +229,8 @@ subroutine read_value_logical_p(value_to_read, name)
 
   implicit none
 
-  logical :: value_to_read
-  character(len=*) :: name
+  logical, intent(inout) :: value_to_read
+  character(len=*), intent(in) :: name
   character(len=MAX_STRING_LEN) :: string_read
   integer :: ierr
   common /param_err_common/ ierr
@@ -249,8 +249,8 @@ subroutine read_value_string_p(value_to_read, name)
 
   implicit none
 
-  character(len=*) :: value_to_read
-  character(len=*) :: name
+  character(len=*), intent(inout) :: value_to_read
+  character(len=*), intent(in) :: name
   character(len=MAX_STRING_LEN) :: string_read
   integer :: ierr
   common /param_err_common/ ierr
@@ -269,8 +269,8 @@ subroutine read_value_integer_next_p(value_to_read, name)
 
   implicit none
 
-  integer :: value_to_read
-  character(len=*) :: name
+  integer, intent(inout) :: value_to_read
+  character(len=*), intent(in) :: name
   character(len=MAX_STRING_LEN) :: string_read
   integer :: ierr
   common /param_err_common/ ierr
@@ -289,8 +289,8 @@ subroutine read_value_double_prec_next_p(value_to_read, name)
 
   implicit none
 
-  double precision :: value_to_read
-  character(len=*) :: name
+  double precision, intent(inout) :: value_to_read
+  character(len=*), intent(in) :: name
   character(len=MAX_STRING_LEN) :: string_read
   integer :: ierr
   common /param_err_common/ ierr
@@ -309,8 +309,8 @@ subroutine read_value_logical_next_p(value_to_read, name)
 
   implicit none
 
-  logical :: value_to_read
-  character(len=*) :: name
+  logical, intent(inout) :: value_to_read
+  character(len=*), intent(in) :: name
   character(len=MAX_STRING_LEN) :: string_read
   integer :: ierr
   common /param_err_common/ ierr

src/shared/shared_par.F90

@@ -36,6 +36,8 @@
 
 module constants
 
+  implicit none
+
   include "constants.h"
 
   ! proc number for MPI process

src/specfem2D/assemble_MPI.F90

@@ -1197,7 +1197,8 @@ subroutine assemble_MPI_vector_em_blocking(array_val)
 
        ipoin = 0
        do i = 1, nibool_interfaces_electromagnetic(num_interface)
-        buffer_send_faces_vector_em(ipoin+1:ipoin+NDIM,iinterface) = array_val(:,ibool_interfaces_electromagnetic(i,num_interface))
+        buffer_send_faces_vector_em(ipoin+1:ipoin+NDIM,iinterface) = &
+            array_val(:,ibool_interfaces_electromagnetic(i,num_interface))
         ipoin = ipoin + NDIM
        enddo
     enddo
@@ -1228,7 +1229,8 @@ subroutine assemble_MPI_vector_em_blocking(array_val)
        ipoin = 0
        do i = 1, nibool_interfaces_electromagnetic(num_interface)
           array_val(:,ibool_interfaces_electromagnetic(i,num_interface)) = &
-              array_val(:,ibool_interfaces_electromagnetic(i,num_interface)) + buffer_recv_faces_vector_em(ipoin+1:ipoin+NDIM,iinterface)
+              array_val(:,ibool_interfaces_electromagnetic(i,num_interface)) &
+              + buffer_recv_faces_vector_em(ipoin+1:ipoin+NDIM,iinterface)
           ipoin = ipoin + NDIM
        enddo