Commit afb56cba authored by Keith Bennett's avatar Keith Bennett

Fixed compiler warnings

parent c9b2d12f
......@@ -917,7 +917,7 @@ CONTAINS
REAL(r4), DIMENSION(:), INTENT(IN), OPTIONAL :: dim_mults
INTEGER, INTENT(IN), OPTIONAL :: geometry, rank_write
REAL(r4), DIMENSION(:), ALLOCATABLE :: r4array
INTEGER :: i, errcode, intn
INTEGER :: errcode, intn
TYPE(sdf_block_type), POINTER :: b
LOGICAL :: convert
......@@ -1018,7 +1018,7 @@ CONTAINS
REAL(r4), DIMENSION(:), INTENT(IN), OPTIONAL :: dim_mults
INTEGER, INTENT(IN), OPTIONAL :: geometry, rank_write
REAL(r4), DIMENSION(:), ALLOCATABLE :: r4array
INTEGER :: i, errcode, intn
INTEGER :: errcode, intn
TYPE(sdf_block_type), POINTER :: b
LOGICAL :: convert
......
......@@ -917,7 +917,7 @@ CONTAINS
REAL(r8), DIMENSION(:), INTENT(IN), OPTIONAL :: dim_mults
INTEGER, INTENT(IN), OPTIONAL :: geometry, rank_write
REAL(r4), DIMENSION(:), ALLOCATABLE :: r4array
INTEGER :: i, errcode, intn
INTEGER :: errcode, intn
TYPE(sdf_block_type), POINTER :: b
LOGICAL :: convert
......@@ -1018,7 +1018,7 @@ CONTAINS
REAL(r8), DIMENSION(:), INTENT(IN), OPTIONAL :: dim_mults
INTEGER, INTENT(IN), OPTIONAL :: geometry, rank_write
REAL(r4), DIMENSION(:), ALLOCATABLE :: r4array
INTEGER :: i, errcode, intn
INTEGER :: errcode, intn
TYPE(sdf_block_type), POINTER :: b
LOGICAL :: convert
......
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