From a045e378d974e37e63cce204cd871f3cfb0ae634 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 16 Apr 2008 12:29:24 +0000
Subject: [PATCH] *** empty log message ***

---
 base/serial/psb_zcsnmi.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base/serial/psb_zcsnmi.f90 b/base/serial/psb_zcsnmi.f90
index 0d42e442..81dcbfaf 100644
--- 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(*)