Fixed init_heap in copyin.

mlprec/mld_diluk_fct.f90

@@ -265,6 +265,7 @@ contains
     if (psb_get_errstatus() /= 0) return 
     info=0
     call psb_erractionsave(err_act)
+    call psb_init_heap(heap,info) 
 
     !
     ! Here we take a fast shortcut if possible, otherwise 
@@ -272,7 +273,6 @@ contains
     ! anything. 
     !
     if (toupper(a%fida)=='CSR') then 
-      call psb_init_heap(heap,info) 
 
       do j = a%ia2(i), a%ia2(i+1) - 1
         k          = a%ia1(j)

mlprec/mld_dilut_fct.f90

@@ -268,6 +268,7 @@ contains
     if (psb_get_errstatus() /= 0) return 
     info=0
     call psb_erractionsave(err_act)
+    call psb_init_heap(heap,info) 
 
     !
     ! nrmi is the norm of the current sparse row. 
@@ -282,7 +283,6 @@ contains
     dmaxup = dzero
     nrmi   = dzero
     if (toupper(a%fida)=='CSR') then 
-      call psb_init_heap(heap,info) 
       do j = a%ia2(i), a%ia2(i+1) - 1
         k          = a%ia1(j)
         if ((jmin<=k).and.(k<=jmax)) then 

mlprec/mld_ziluk_fct.f90

@@ -264,6 +264,7 @@ contains
     if (psb_get_errstatus() /= 0) return 
     info=0
     call psb_erractionsave(err_act)
+    call psb_init_heap(heap,info) 
 
     !
     ! Here we take a fast shortcut if possible, otherwise 
@@ -271,7 +272,6 @@ contains
     ! anything. 
     !
     if (toupper(a%fida)=='CSR') then 
-      call psb_init_heap(heap,info) 
       
       do j = a%ia2(i), a%ia2(i+1) - 1
         k          = a%ia1(j)

mlprec/mld_zilut_fct.f90

@@ -269,6 +269,7 @@ contains
     if (psb_get_errstatus() /= 0) return 
     info=0
     call psb_erractionsave(err_act)
+    call psb_init_heap(heap,info) 
 
     !
     ! nrmi is the norm of the current sparse row. 
@@ -283,7 +284,6 @@ contains
     dmaxup = dzero
     nrmi   = dzero
     if (toupper(a%fida)=='CSR') then 
-      call psb_init_heap(heap,info) 
       do j = a%ia2(i), a%ia2(i+1) - 1
         k          = a%ia1(j)
         if ((jmin<=k).and.(k<=jmax)) then