From 3acb2737fabeb30762549cf226dbb1d24480099c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 3 Nov 2005 15:23:19 +0000
Subject: [PATCH] Fixed subroutine names

---
 src/internals/psi_iswapdata.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/internals/psi_iswapdata.f90 b/src/internals/psi_iswapdata.f90
index 5d8568ff..14238c1b 100644
--- a/src/internals/psi_iswapdata.f90
+++ b/src/internals/psi_iswapdata.f90
@@ -1,4 +1,4 @@
-subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)
+subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data)
 
   use psb_error_mod
   use psb_descriptor_type
@@ -447,10 +447,10 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)
      return
   end if
   return
-end subroutine psi_dswapdatam
+end subroutine psi_iswapdatam
 
 
-subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
+subroutine psi_iswapdatav(flag,beta,y,desc_a,work,info,data)
 
   use psb_error_mod
   use psb_descriptor_type
@@ -901,4 +901,4 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
      return
   end if
   return
-end subroutine psi_dswapdatav
+end subroutine psi_iswapdatav