Commit 5d154241 authored by Keith Bennett's avatar Keith Bennett

Removed spurious whitespace

parent 3de8c346
......@@ -101,7 +101,6 @@ CONTAINS
INTEGER :: errcode
TYPE(sdf_block_type), POINTER :: b
IF (sdf_check_block_header(h)) RETURN
b => h%current_block
......@@ -130,7 +129,7 @@ CONTAINS
REAL(r4), DIMENSION(:), INTENT(INOUT) :: values
INTEGER, DIMENSION(ndims), INTENT(IN) :: sz
INTEGER, DIMENSION(ndims), INTENT(IN) :: local_starts
INTEGER, DIMENSION(2 * ndims), INTENT(IN), OPTIONAL :: local_ghosts
INTEGER, DIMENSION(2*ndims), INTENT(IN), OPTIONAL :: local_ghosts
LOGICAL, INTENT(IN), OPTIONAL :: null_proc
INTEGER, DIMENSION(2*ndims) :: ghosts
INTEGER, DIMENSION(c_maxdims) :: dims
......@@ -221,7 +220,6 @@ CONTAINS
INTEGER :: errcode
TYPE(sdf_block_type), POINTER :: b
IF (sdf_check_block_header(h)) RETURN
b => h%current_block
......@@ -250,7 +248,7 @@ CONTAINS
REAL(r4), DIMENSION(:,:), INTENT(INOUT) :: values
INTEGER, DIMENSION(ndims), INTENT(IN) :: sz
INTEGER, DIMENSION(ndims), INTENT(IN) :: local_starts
INTEGER, DIMENSION(2 * ndims), INTENT(IN), OPTIONAL :: local_ghosts
INTEGER, DIMENSION(2*ndims), INTENT(IN), OPTIONAL :: local_ghosts
LOGICAL, INTENT(IN), OPTIONAL :: null_proc
INTEGER, DIMENSION(2*ndims) :: ghosts
INTEGER, DIMENSION(c_maxdims) :: dims
......@@ -341,7 +339,6 @@ CONTAINS
INTEGER :: errcode
TYPE(sdf_block_type), POINTER :: b
IF (sdf_check_block_header(h)) RETURN
b => h%current_block
......@@ -370,7 +367,7 @@ CONTAINS
REAL(r4), DIMENSION(:,:,:), INTENT(INOUT) :: values
INTEGER, DIMENSION(ndims), INTENT(IN) :: sz
INTEGER, DIMENSION(ndims), INTENT(IN) :: local_starts
INTEGER, DIMENSION(2 * ndims), INTENT(IN), OPTIONAL :: local_ghosts
INTEGER, DIMENSION(2*ndims), INTENT(IN), OPTIONAL :: local_ghosts
LOGICAL, INTENT(IN), OPTIONAL :: null_proc
INTEGER, DIMENSION(2*ndims) :: ghosts
INTEGER, DIMENSION(c_maxdims) :: dims
......
......@@ -101,7 +101,6 @@ CONTAINS
INTEGER :: errcode
TYPE(sdf_block_type), POINTER :: b
IF (sdf_check_block_header(h)) RETURN
b => h%current_block
......@@ -130,7 +129,7 @@ CONTAINS
REAL(r8), DIMENSION(:), INTENT(INOUT) :: values
INTEGER, DIMENSION(ndims), INTENT(IN) :: sz
INTEGER, DIMENSION(ndims), INTENT(IN) :: local_starts
INTEGER, DIMENSION(2 * ndims), INTENT(IN), OPTIONAL :: local_ghosts
INTEGER, DIMENSION(2*ndims), INTENT(IN), OPTIONAL :: local_ghosts
LOGICAL, INTENT(IN), OPTIONAL :: null_proc
INTEGER, DIMENSION(2*ndims) :: ghosts
INTEGER, DIMENSION(c_maxdims) :: dims
......@@ -221,7 +220,6 @@ CONTAINS
INTEGER :: errcode
TYPE(sdf_block_type), POINTER :: b
IF (sdf_check_block_header(h)) RETURN
b => h%current_block
......@@ -250,7 +248,7 @@ CONTAINS
REAL(r8), DIMENSION(:,:), INTENT(INOUT) :: values
INTEGER, DIMENSION(ndims), INTENT(IN) :: sz
INTEGER, DIMENSION(ndims), INTENT(IN) :: local_starts
INTEGER, DIMENSION(2 * ndims), INTENT(IN), OPTIONAL :: local_ghosts
INTEGER, DIMENSION(2*ndims), INTENT(IN), OPTIONAL :: local_ghosts
LOGICAL, INTENT(IN), OPTIONAL :: null_proc
INTEGER, DIMENSION(2*ndims) :: ghosts
INTEGER, DIMENSION(c_maxdims) :: dims
......@@ -341,7 +339,6 @@ CONTAINS
INTEGER :: errcode
TYPE(sdf_block_type), POINTER :: b
IF (sdf_check_block_header(h)) RETURN
b => h%current_block
......@@ -370,7 +367,7 @@ CONTAINS
REAL(r8), DIMENSION(:,:,:), INTENT(INOUT) :: values
INTEGER, DIMENSION(ndims), INTENT(IN) :: sz
INTEGER, DIMENSION(ndims), INTENT(IN) :: local_starts
INTEGER, DIMENSION(2 * ndims), INTENT(IN), OPTIONAL :: local_ghosts
INTEGER, DIMENSION(2*ndims), INTENT(IN), OPTIONAL :: local_ghosts
LOGICAL, INTENT(IN), OPTIONAL :: null_proc
INTEGER, DIMENSION(2*ndims) :: ghosts
INTEGER, DIMENSION(c_maxdims) :: dims
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment