Fixed INTENT on METHD variable.

17 years ago · f107bea3e8
parent ce2d0b8ecc
commit f107bea3e8
1 changed files with 2 additions and 2 deletions
--- a/krylov/mld_krylov_mod.f90
+++ b/krylov/mld_krylov_mod.f90
@ -311,7 +311,7 @@ contains
    use psb_prec_mod

  ! Arguments
-    character(len=*)                   :: method
+    character(len=*), intent(in)       :: method
    Type(psb_dspmat_type), Intent(in)  :: a
    Type(psb_desc_type), Intent(in)    :: desc_a
    type(psb_dprec_type), intent(in)   :: prec 
@ -385,7 +385,7 @@ contains
    use psb_prec_mod

  ! Arguments
-    character(len=*)                   :: method
+    character(len=*), intent(in)       :: method
    Type(psb_zspmat_type), Intent(in)  :: a
    Type(psb_desc_type), Intent(in)    :: desc_a
    type(psb_zprec_type), intent(in)   :: prec