From dc36db60837878496f300999daa385004bd7410c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 27 Jul 2020 15:20:05 +0200 Subject: [PATCH] Reformat assignment of entire component. --- base/serial/impl/psb_c_csc_impl.f90 | 4 ++-- base/serial/impl/psb_c_csr_impl.f90 | 4 ++-- base/serial/impl/psb_d_csc_impl.f90 | 4 ++-- base/serial/impl/psb_d_csr_impl.f90 | 4 ++-- base/serial/impl/psb_s_csc_impl.f90 | 4 ++-- base/serial/impl/psb_s_csr_impl.f90 | 4 ++-- base/serial/impl/psb_z_csc_impl.f90 | 4 ++-- base/serial/impl/psb_z_csr_impl.f90 | 4 ++-- 8 files changed, 16 insertions(+), 16 deletions(-) diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index 4769f5ff..bfefebad 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -2379,7 +2379,7 @@ subroutine psb_c_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc @@ -4263,7 +4263,7 @@ subroutine psb_lc_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90 index 7b2f61a2..8ac0262a 100644 --- a/base/serial/impl/psb_c_csr_impl.f90 +++ b/base/serial/impl/psb_c_csr_impl.f90 @@ -3228,7 +3228,7 @@ subroutine psb_c_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr @@ -5343,7 +5343,7 @@ subroutine psb_lc_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index eb1f2021..eced8477 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -2379,7 +2379,7 @@ subroutine psb_d_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc @@ -4263,7 +4263,7 @@ subroutine psb_ld_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90 index 01f36eaa..fb8f6378 100644 --- a/base/serial/impl/psb_d_csr_impl.f90 +++ b/base/serial/impl/psb_d_csr_impl.f90 @@ -3228,7 +3228,7 @@ subroutine psb_d_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr @@ -5343,7 +5343,7 @@ subroutine psb_ld_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index 71e24051..b16cb5bf 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -2379,7 +2379,7 @@ subroutine psb_s_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc @@ -4263,7 +4263,7 @@ subroutine psb_ls_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90 index 2fa87adf..941c257a 100644 --- a/base/serial/impl/psb_s_csr_impl.f90 +++ b/base/serial/impl/psb_s_csr_impl.f90 @@ -3228,7 +3228,7 @@ subroutine psb_s_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr @@ -5343,7 +5343,7 @@ subroutine psb_ls_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index e1c003d0..457489f3 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -2379,7 +2379,7 @@ subroutine psb_z_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc @@ -4263,7 +4263,7 @@ subroutine psb_lz_csc_clean_zeros(a, info) info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp a%icp(1) = 1 j = a%icp(1) do i=1, nc diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90 index f3b7b45f..3a95ca1a 100644 --- a/base/serial/impl/psb_z_csr_impl.f90 +++ b/base/serial/impl/psb_z_csr_impl.f90 @@ -3228,7 +3228,7 @@ subroutine psb_z_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr @@ -5343,7 +5343,7 @@ subroutine psb_lz_csr_clean_zeros(a, info) info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp a%irp(1) = 1 j = a%irp(1) do i=1, nr