Take out use statement to compile with INTEL.

6 years ago · 1a82740826
parent 70a3a2090f
commit 1a82740826
20 changed files with 2 additions and 20 deletions
--- a/examples/fileread/mld_cexample_1lev.f90
+++ b/examples/fileread/mld_cexample_1lev.f90
@ -302,7 +302,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, itmax
--- a/examples/fileread/mld_cexample_ml.f90
+++ b/examples/fileread/mld_cexample_ml.f90
@ -346,7 +346,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, choice, itmax
--- a/examples/fileread/mld_dexample_1lev.f90
+++ b/examples/fileread/mld_dexample_1lev.f90
@ -302,7 +302,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, itmax
--- a/examples/fileread/mld_dexample_ml.f90
+++ b/examples/fileread/mld_dexample_ml.f90
@ -346,7 +346,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, choice, itmax
--- a/examples/fileread/mld_sexample_1lev.f90
+++ b/examples/fileread/mld_sexample_1lev.f90
@ -302,7 +302,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, itmax
--- a/examples/fileread/mld_sexample_ml.f90
+++ b/examples/fileread/mld_sexample_ml.f90
@ -346,7 +346,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, choice, itmax
--- a/examples/fileread/mld_zexample_1lev.f90
+++ b/examples/fileread/mld_zexample_1lev.f90
@ -302,7 +302,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, itmax
--- a/examples/fileread/mld_zexample_ml.f90
+++ b/examples/fileread/mld_zexample_ml.f90
@ -346,7 +346,6 @@ contains
  !
  subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: ictxt, choice, itmax
--- a/examples/pdegen/mld_dexample_1lev.f90
+++ b/examples/pdegen/mld_dexample_1lev.f90
@ -1,3 +1,4 @@
+
 !   
 !   
 !                             MLD2P4  version 2.2
@ -229,7 +230,6 @@ contains
  !
  subroutine get_parms(ictxt,idim,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: idim, ictxt, itmax
--- a/examples/pdegen/mld_dexample_ml.f90
+++ b/examples/pdegen/mld_dexample_ml.f90
@ -281,7 +281,6 @@ contains
  !
  subroutine get_parms(ictxt,choice,idim,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: choice, idim, ictxt, itmax
--- a/examples/pdegen/mld_sexample_1lev.f90
+++ b/examples/pdegen/mld_sexample_1lev.f90
@ -1,3 +1,4 @@
+
 !   
 !   
 !                             MLD2P4  version 2.2
@ -229,7 +230,6 @@ contains
  !
  subroutine get_parms(ictxt,idim,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: idim, ictxt, itmax
--- a/examples/pdegen/mld_sexample_ml.f90
+++ b/examples/pdegen/mld_sexample_ml.f90
@ -281,7 +281,6 @@ contains
  !
  subroutine get_parms(ictxt,choice,idim,itmax,tol)

-    use psb_base_mod
    implicit none

    integer             :: choice, idim, ictxt, itmax
--- a/tests/fileread/mld_cf_sample.f90
+++ b/tests/fileread/mld_cf_sample.f90
@ -596,7 +596,6 @@ contains
  !
  subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt
--- a/tests/fileread/mld_df_sample.f90
+++ b/tests/fileread/mld_df_sample.f90
@ -596,7 +596,6 @@ contains
  !
  subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt
--- a/tests/fileread/mld_sf_sample.f90
+++ b/tests/fileread/mld_sf_sample.f90
@ -596,7 +596,6 @@ contains
  !
  subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt
--- a/tests/fileread/mld_zf_sample.f90
+++ b/tests/fileread/mld_zf_sample.f90
@ -596,7 +596,6 @@ contains
  !
  subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt
--- a/tests/pdegen/mld_d_pde2d.f90
+++ b/tests/pdegen/mld_d_pde2d.f90
@ -897,7 +897,6 @@ contains
  !
  subroutine get_parms(icontxt,afmt,idim,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt, idim
--- a/tests/pdegen/mld_d_pde3d.f90
+++ b/tests/pdegen/mld_d_pde3d.f90
@ -937,7 +937,6 @@ contains
  !
  subroutine get_parms(icontxt,afmt,idim,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt, idim
--- a/tests/pdegen/mld_s_pde2d.f90
+++ b/tests/pdegen/mld_s_pde2d.f90
@ -897,7 +897,6 @@ contains
  !
  subroutine get_parms(icontxt,afmt,idim,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt, idim
--- a/tests/pdegen/mld_s_pde3d.f90
+++ b/tests/pdegen/mld_s_pde3d.f90
@ -937,7 +937,6 @@ contains
  !
  subroutine get_parms(icontxt,afmt,idim,solve,prec)

-    use psb_base_mod
    implicit none

    integer(psb_ipk_)   :: icontxt, idim