Fix stray #elif

6 years ago · 73695712a6
parent 4b3ef0910b
commit 73695712a6
4 changed files with 4 additions and 4 deletions
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@ -317,7 +317,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
 #elif defined(SP_A2AV_MAT)
    call c_coo_my_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ipdxv,ictxt,icomm,info)
-#elif
+#else
    choke on me @!
 #endif
  if (info /= psb_success_) then
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@ -317,7 +317,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
 #elif defined(SP_A2AV_MAT)
    call d_coo_my_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ipdxv,ictxt,icomm,info)
-#elif
+#else
    choke on me @!
 #endif
  if (info /= psb_success_) then
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@ -317,7 +317,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
 #elif defined(SP_A2AV_MAT)
    call s_coo_my_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ipdxv,ictxt,icomm,info)
-#elif
+#else
    choke on me @!
 #endif
  if (info /= psb_success_) then
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@ -317,7 +317,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
 #elif defined(SP_A2AV_MAT)
    call z_coo_my_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ipdxv,ictxt,icomm,info)
-#elif
+#else
    choke on me @!
 #endif
  if (info /= psb_success_) then