Take out call flush which is only GNU fortran.

Further reduction in module file size. 
Fixed include for AIX XLF: does not have MOVE_ALLOC.

Make.inc.rs6k

@@ -49,7 +49,10 @@ LDLIBS=$(BLACS) $(SLU) $(UMF) $(BLAS) $(METIS_LIB)
 
 #  Add -DLargeFptr for 64-bit addresses
 CDEFINES=-DNoChange $(SLUDEF) $(UMFDEF) -DLargeFptr
-FDEFINES=-WF,-DESSL_BLACS -WF,-DHAVE_MOVE_ALLOC
+FDEFINES=-WF,-DESSL_BLACS 
+# Apparently there's no MOVE_ALLOC yet in XLF. 
+#-WF,-DHAVE_MOVE_ALLOC 
+
 
 AR=ar -cur
 RANLIB=ranlib

base/modules/psb_spmat_type.f90

@@ -537,22 +537,17 @@ contains
     if (debug) write(0,*) 'Before realloc',nd,size(a%aspk),ni1,ni2
     call psb_realloc(nd,a%aspk,info)
     if (debug) write(0,*) 'After realloc',nd,size(a%aspk),info
-!!$    call flush(0)
     if (info /= 0) return 
     if (debug) write(0,*) 'Before realloc2',ni2,allocated(a%ia2),size(a%ia2)
-!!$    call flush(0)
     call psb_realloc(ni2,a%ia2,info)
     if (info /= 0) return 
     if (debug) write(0,*) 'Before realloc3',ni1,allocated(a%ia1),size(a%ia1)
-!!$    call flush(0)
     call psb_realloc(ni1,a%ia1,info)
     if (info /= 0) return
     if (debug) write(0,*) 'Before realloc4',max(1,a%m),allocated(a%pl),size(a%pl)
-!!$    call flush(0)
     call psb_realloc(max(1,a%m),a%pl,info)
     if (info /= 0) return
     if (debug) write(0,*) 'Before realloc5',max(1,a%k),allocated(a%pr),size(a%pr)
-!!$    call flush(0)
     call psb_realloc(max(1,a%k),a%pr,info)
     if (info /= 0) return
 

base/modules/psi_mod.f90

@@ -31,7 +31,7 @@
 
 module psi_mod
 
-  use psb_descriptor_type
+!!$  use psb_descriptor_type
 
 !!$  interface 
 !!$    subroutine psi_inner_cnv(n,x,hashsize,hashmask,hashv,glb_lc)
@@ -516,7 +516,6 @@ contains
       ih  = iand(key,hashmask)
       if (ih > ubound(hashv,1) ) then 
         write(0,*) ' In inner cnv: ',ih,ubound(hashv)
-        call flush(0)
       end if
       idx = hashv(ih)
       nh  = hashv(ih+1) - hashv(ih) 

base/tools/psb_dsphalo.f90

@@ -266,7 +266,6 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
   if (debugprt) then 
     open(30+me)
     call psb_csprt(30+me,tmp,head='% SPHALO border SEND .')
-    call flush(30+me)
     close(30+me)
   end if
 
@@ -305,7 +304,6 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
     blk%infoa(psb_nnz_)=iszr
     open(40+me)
     call psb_csprt(40+me,blk,head='% SPHALO border .')
-    call flush(40+me)
     close(40+me)
   end if
   l1  = 0
@@ -330,7 +328,6 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
   if (debugprt) then 
     open(50+me)
     call psb_csprt(50+me,blk,head='% SPHALO border .')
-    call flush(50+me)
     close(50+me)
     call psb_barrier(ictxt)
   end if