Reformat assignment of entire component.

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

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

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

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

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

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

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

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