*** empty log message ***

18 years ago · 1108d635ef
parent 421a5f05bb
commit 1108d635ef
1 changed files with 1 additions and 1 deletions
--- a/base/psblas/psb_dspmm.f90
+++ b/base/psblas/psb_dspmm.f90
@ -97,7 +97,7 @@ subroutine  psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
  type(psb_dspmat_type), intent(in)        :: a
  type(psb_desc_type), intent(in)          :: desc_a
  integer, intent(out)                     :: info
-  real(kind(1.d0)), optional, target      :: work(:)
+  real(kind(1.d0)), optional, target       :: work(:)
  character, intent(in), optional          :: trans
  integer, intent(in), optional            :: k, jx, jy,doswap