*** empty log message ***

17 years ago · a045e378d9
parent 93b9ebbcf0
commit a045e378d9
1 changed files with 1 additions and 1 deletions
--- a/base/serial/psb_zcsnmi.f90
+++ b/base/serial/psb_zcsnmi.f90
@ -47,7 +47,7 @@ function psb_zcsnmi(a,info,trans)
     function zcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
          &                 infoa,ierror)
       use psb_const_mod
-       real(psb_dpk_)   :: psb_zcsnmi
+       real(psb_dpk_)   ::  zcsnmi
       integer          ::  m,n, ierror
       character        ::  trans
       integer          ::  ia1(*),ia2(*),infoa(*)