Intel compiler gave an ICE with generic names for mlptec_aply.

mlprec/impl/mld_cprecaply.f90

@@ -366,8 +366,9 @@ subroutine mld_cprecaply2_vect(prec,x,y,desc_data,info,trans,work)
   if (size(prec%precv) >1) then
     !
     ! Number of levels > 1: apply the multilevel preconditioner
-    ! 
-    call mld_mlprec_aply(cone,prec,x,czero,y,desc_data,trans_,work_,info)
+    !
+    ! FIXME: generic name causes an ICE with Intel
+    call mld_cmlprec_aply_vect(cone,prec,x,czero,y,desc_data,trans_,work_,info)
 
     if(info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_cmlprec_aply')
@@ -516,8 +517,9 @@ subroutine mld_cprecaply1_vect(prec,x,desc_data,info,trans,work)
     if (size(prec%precv) >1) then
       !
       ! Number of levels > 1: apply the multilevel preconditioner
-      ! 
-      call mld_mlprec_aply(cone,prec,x,czero,ww,desc_data,trans_,work_,info)
+      !
+      ! FIXME: generic name causes an ICE with Intel
+      call mld_cmlprec_aply_vect(cone,prec,x,czero,ww,desc_data,trans_,work_,info)
       if (info == 0) call psb_geaxpby(cone,ww,czero,x,desc_data,info)
       if(info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_cmlprec_aply')

mlprec/impl/mld_dprecaply.f90

@@ -366,8 +366,9 @@ subroutine mld_dprecaply2_vect(prec,x,y,desc_data,info,trans,work)
   if (size(prec%precv) >1) then
     !
     ! Number of levels > 1: apply the multilevel preconditioner
-    ! 
-    call mld_mlprec_aply(done,prec,x,dzero,y,desc_data,trans_,work_,info)
+    !
+    ! FIXME: generic name causes an ICE with Intel
+    call mld_dmlprec_aply_vect(done,prec,x,dzero,y,desc_data,trans_,work_,info)
 
     if(info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_dmlprec_aply')
@@ -516,8 +517,9 @@ subroutine mld_dprecaply1_vect(prec,x,desc_data,info,trans,work)
     if (size(prec%precv) >1) then
       !
       ! Number of levels > 1: apply the multilevel preconditioner
-      ! 
-      call mld_mlprec_aply(done,prec,x,dzero,ww,desc_data,trans_,work_,info)
+      !
+      ! FIXME: generic name causes an ICE with Intel
+      call mld_dmlprec_aply_vect(done,prec,x,dzero,ww,desc_data,trans_,work_,info)
       if (info == 0) call psb_geaxpby(done,ww,dzero,x,desc_data,info)
       if(info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_dmlprec_aply')

mlprec/impl/mld_sprecaply.f90

@@ -366,8 +366,9 @@ subroutine mld_sprecaply2_vect(prec,x,y,desc_data,info,trans,work)
   if (size(prec%precv) >1) then
     !
     ! Number of levels > 1: apply the multilevel preconditioner
-    ! 
-    call mld_mlprec_aply(sone,prec,x,szero,y,desc_data,trans_,work_,info)
+    !
+    ! FIXME: generic name causes an ICE with Intel
+    call mld_smlprec_aply_vect(sone,prec,x,szero,y,desc_data,trans_,work_,info)
 
     if(info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_smlprec_aply')
@@ -516,8 +517,9 @@ subroutine mld_sprecaply1_vect(prec,x,desc_data,info,trans,work)
     if (size(prec%precv) >1) then
       !
       ! Number of levels > 1: apply the multilevel preconditioner
-      ! 
-      call mld_mlprec_aply(sone,prec,x,szero,ww,desc_data,trans_,work_,info)
+      !
+      ! FIXME: generic name causes an ICE with Intel
+      call mld_smlprec_aply_vect(sone,prec,x,szero,ww,desc_data,trans_,work_,info)
       if (info == 0) call psb_geaxpby(sone,ww,szero,x,desc_data,info)
       if(info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_smlprec_aply')

mlprec/impl/mld_zprecaply.f90

@@ -366,8 +366,9 @@ subroutine mld_zprecaply2_vect(prec,x,y,desc_data,info,trans,work)
   if (size(prec%precv) >1) then
     !
     ! Number of levels > 1: apply the multilevel preconditioner
-    ! 
-    call mld_mlprec_aply(zone,prec,x,zzero,y,desc_data,trans_,work_,info)
+    !
+    ! FIXME: generic name causes an ICE with Intel
+    call mld_zmlprec_aply_vect(zone,prec,x,zzero,y,desc_data,trans_,work_,info)
 
     if(info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_zmlprec_aply')
@@ -516,8 +517,9 @@ subroutine mld_zprecaply1_vect(prec,x,desc_data,info,trans,work)
     if (size(prec%precv) >1) then
       !
       ! Number of levels > 1: apply the multilevel preconditioner
-      ! 
-      call mld_mlprec_aply(zone,prec,x,zzero,ww,desc_data,trans_,work_,info)
+      !
+      ! FIXME: generic name causes an ICE with Intel
+      call mld_zmlprec_aply_vect(zone,prec,x,zzero,ww,desc_data,trans_,work_,info)
       if (info == 0) call psb_geaxpby(zone,ww,zzero,x,desc_data,info)
       if(info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_,name,a_err='mld_zmlprec_aply')