mld2p4-2:

mld_c_slu_solver.F90
 mld_c_sludist_solver.F90
 mld_d_slu_solver.F90
 mld_d_sludist_solver.F90
 mld_s_slu_solver.F90
 mld_s_sludist_solver.F90
 mld_z_slu_solver.F90
 mld_z_sludist_solver.F90

Cleanup of fortran interfaces. SLUDIST is still broken.

mlprec/mld_c_slu_solver.F90

@@ -280,7 +280,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_cslu_fact(nrow_a,nztota,acsr%val,&

mlprec/mld_c_sludist_solver.F90

@@ -282,7 +282,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_csludist_fact(nrow_a,nztota,acsr%val,&

mlprec/mld_d_slu_solver.F90

@@ -280,7 +280,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_dslu_fact(nrow_a,nztota,acsr%val,&

mlprec/mld_d_sludist_solver.F90

@@ -282,7 +282,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_dsludist_fact(nrow_a,nztota,acsr%val,&

mlprec/mld_s_slu_solver.F90

@@ -280,7 +280,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_sslu_fact(nrow_a,nztota,acsr%val,&

mlprec/mld_s_sludist_solver.F90

@@ -282,7 +282,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_ssludist_fact(nrow_a,nztota,acsr%val,&

mlprec/mld_z_slu_solver.F90

@@ -280,7 +280,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_zslu_fact(nrow_a,nztota,acsr%val,&

mlprec/mld_z_sludist_solver.F90

@@ -282,7 +282,7 @@ contains
       call atmp%mv_to(acsr)
       nrow_a = acsr%get_nrows()
       nztota = acsr%get_nzeros()
-      ! Fix the entres to call C-base SuperLU
+      ! Fix the entries to call C-base SuperLU
       acsr%ja(:)  = acsr%ja(:)  - 1
       acsr%irp(:) = acsr%irp(:) - 1
       info = mld_zsludist_fact(nrow_a,nztota,acsr%val,&