Minor interface updates.

mlprec/mld_dbjac_aply.f90

@@ -143,8 +143,8 @@ subroutine mld_dbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
   real(kind(0.d0)),intent(in)            :: x(:)
   real(kind(0.d0)),intent(inout)         :: y(:)
   real(kind(0.d0)),intent(in)            :: alpha,beta
-  character(len=1)                     :: trans
-  real(kind(0.d0)),target              :: work(:)
+  character(len=1), intent(in)           :: trans
+  real(kind(0.d0)),target, intent(inout) :: work(:)
   integer, intent(out)                   :: info
 
   ! Local variables

mlprec/mld_prec_mod.f90

@@ -269,8 +269,8 @@ module mld_prec_mod
        real(kind(0.d0)),intent(in)           :: x(:)
        real(kind(0.d0)),intent(inout)        :: y(:)
        real(kind(0.d0)),intent(in)           :: alpha,beta
-       character(len=1)                      :: trans
-       real(kind(0.d0)),target               :: work(:)
+       character(len=1),intent(in)           :: trans
+       real(kind(0.d0)),target,intent(inout) :: work(:)
        integer, intent(out)                  :: info
      end subroutine mld_dbjac_aply
      subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
@@ -281,8 +281,8 @@ module mld_prec_mod
        complex(kind(0.d0)),intent(in)           :: x(:)
        complex(kind(0.d0)),intent(inout)        :: y(:)
        complex(kind(0.d0)),intent(in)           :: alpha,beta
-       character(len=1)                      :: trans
-       complex(kind(0.d0)),target            :: work(:)
+       character(len=1),intent(in)              :: trans
+       complex(kind(0.d0)),target,intent(inout) :: work(:)
        integer, intent(out)                     :: info
      end subroutine mld_zbjac_aply
   end interface

mlprec/mld_zbjac_aply.f90

@@ -143,8 +143,8 @@ subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
   complex(kind(0.d0)),intent(in)            :: x(:)
   complex(kind(0.d0)),intent(inout)         :: y(:)
   complex(kind(0.d0)),intent(in)            :: alpha,beta
-  character(len=1)                     :: trans
-  complex(kind(0.d0)),target           :: work(:)
+  character(len=1), intent(in)              :: trans
+  complex(kind(0.d0)),target, intent(inout) :: work(:)
   integer, intent(out)                      :: info
 
   ! Local variables