*** empty log message ***

Changelog

@@ -1,8 +1,7 @@
 Changelog. A lot less detailed than usual, at least for past
 history. 
 
-2006/06/14: Defined ExtRow, probably to be renamed to GetRow.
+2006/06/16: Defined GetRow. This way we may close the mat objects.
-	    This way we may close the mat objects.
 	    Next we will rewrite SMMP to only make use of GetRow,
 	    not to rely on CSR storage format. 
 

README

@@ -120,10 +120,9 @@ Alfredo    Buttari
 
 The MD2P4 multilevel parallel preconditioners contained in directory
 src/prec were developed with the contribution of:  
-
 Pasqua     D'Ambra
 Daniela    Di Serafino
-
+They are still in an early experimental stage, use at your own risk!
 
 Credits for version 1.0:
 Salvatore  Filippone

test/Fileread/mat_dist.f90

@@ -250,7 +250,7 @@ contains
 
           ll = 0
           do i= i_count, j_count-1
-            call psb_sp_extrow(i,a_glob,nz,&
+            call psb_sp_getrow(i,a_glob,nz,&
                  & irow(ll+1:),icol(ll+1:),val(ll+1:), info)
             if (info /= 0) then            
               if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then 
@@ -338,7 +338,7 @@ contains
 
             ll = 0
             do i= i_count, i_count
-              call psb_sp_extrow(i,a_glob,nz,&
+              call psb_sp_getrow(i,a_glob,nz,&
                    & irow(ll+1:),icol(ll+1:),val(ll+1:), info)
               if (info /= 0) then            
                 if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then 
@@ -672,7 +672,7 @@ contains
         
         ll = 0
         do i= i_count, j_count-1
-          call psb_sp_extrow(i,a_glob,nz,&
+          call psb_sp_getrow(i,a_glob,nz,&
                & irow(ll+1:),icol(ll+1:),val(ll+1:), info)
           if (info /= 0) then            
             if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then 
@@ -1025,7 +1025,7 @@ contains
 
           ll = 0
           do i= i_count, j_count-1
-            call psb_sp_extrow(i,a_glob,nz,&
+            call psb_sp_getrow(i,a_glob,nz,&
                  & irow(ll+1:),icol(ll+1:),val(ll+1:), info)
             if (info /= 0) then            
               if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then 
@@ -1113,7 +1113,7 @@ contains
 
             ll = 0
             do i= i_count, i_count
-              call psb_sp_extrow(i,a_glob,nz,&
+              call psb_sp_getrow(i,a_glob,nz,&
                    & irow(ll+1:),icol(ll+1:),val(ll+1:), info)
               if (info /= 0) then            
                 if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then 
@@ -1445,7 +1445,7 @@ contains
       if (iam == root) then
         ll = 0
         do i= i_count, j_count-1
-          call psb_sp_extrow(i,a_glob,nz,&
+          call psb_sp_getrow(i,a_glob,nz,&
                & irow(ll+1:),icol(ll+1:),val(ll+1:), info)
           if (info /= 0) then            
             if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then