Fix free for jac_solver

amgprec/amg_c_jac_solver.f90

@@ -403,7 +403,10 @@ contains
     info = psb_success_
 
     call sv%a%free()
-    call sv%dv%free(info)
+    if (allocated(sv%dv)) then
+      call sv%dv%free(info)
+      deallocate(sv%dv)
+    end if
     if (allocated(sv%d)) deallocate(sv%d)
 
     call psb_erractionrestore(err_act)

amgprec/amg_d_jac_solver.f90

@@ -403,7 +403,10 @@ contains
     info = psb_success_
 
     call sv%a%free()
-    call sv%dv%free(info)
+    if (allocated(sv%dv)) then
+      call sv%dv%free(info)
+      deallocate(sv%dv)
+    end if
     if (allocated(sv%d)) deallocate(sv%d)
 
     call psb_erractionrestore(err_act)

amgprec/amg_s_jac_solver.f90

@@ -403,7 +403,10 @@ contains
     info = psb_success_
 
     call sv%a%free()
-    call sv%dv%free(info)
+    if (allocated(sv%dv)) then
+      call sv%dv%free(info)
+      deallocate(sv%dv)
+    end if
     if (allocated(sv%d)) deallocate(sv%d)
 
     call psb_erractionrestore(err_act)

amgprec/amg_z_jac_solver.f90

@@ -403,7 +403,10 @@ contains
     info = psb_success_
 
     call sv%a%free()
-    call sv%dv%free(info)
+    if (allocated(sv%dv)) then
+      call sv%dv%free(info)
+      deallocate(sv%dv)
+    end if
     if (allocated(sv%d)) deallocate(sv%d)
 
     call psb_erractionrestore(err_act)