Fix printout on COO format.

base/serial/psb_dcsprt.f90

@@ -70,7 +70,7 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
   else
     ics = 0
   endif
-  open(iout)
+
   if (present(head)) then 
     write(iout,'(a)') '%%MatrixMarket matrix coordinate real general'
     write(iout,'(a,a)') '% ',head 
@@ -157,7 +157,12 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
     endif
 
   case ('COO') 
-
+    if(present(iv)) then 
+      write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
+      do j=1,a%infoa(psb_nnz_)
+        write(iout,frmtr) iv(a%ia1(j)),iv(a%ia2(j)),a%aspk(j)
+      enddo
+    else      
       if (present(ivr).and..not.present(ivc)) then 
         write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
         do j=1,a%infoa(psb_nnz_)
@@ -179,8 +184,9 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
           write(iout,frmtr) a%ia1(j),a%ia2(j),a%aspk(j)
         enddo
       endif
+    endif
   case default
     write(0,*) 'Feeling lazy today, format not implemented: "',a%fida,'"'
   end select
-  close(iout)
+
 end subroutine psb_dcsprt

base/serial/psb_zcsprt.f90

@@ -157,7 +157,12 @@ subroutine psb_zcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
     endif
 
   case ('COO') 
-
+    if(present(iv)) then 
+      write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
+      do j=1,a%infoa(psb_nnz_)
+        write(iout,frmtr) iv(a%ia1(j)),iv(a%ia2(j)),a%aspk(j)
+      enddo
+    else      
       if (present(ivr).and..not.present(ivc)) then 
         write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
         do j=1,a%infoa(psb_nnz_)
@@ -179,8 +184,9 @@ subroutine psb_zcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
           write(iout,frmtr) a%ia1(j),a%ia2(j),a%aspk(j)
         enddo
       endif
+    endif
   case default
     write(0,*) 'Feeling lazy today, format not implemented: "',a%fida,'"'
   end select
-  close(iout)
+
 end subroutine psb_zcsprt