From 7b84ea1a23e18a9c6846e464353148481a8d30f2 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 30 Jan 2008 09:47:05 +0000
Subject: [PATCH] psblas: base/modulse/psb_tools_mod.f90

Fixed interface to spfree: having both module and external in a single
interface statement was bad for PGI.
---
 base/modules/psb_tools_mod.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/base/modules/psb_tools_mod.f90 b/base/modules/psb_tools_mod.f90
index 31357d3d..108f7ed1 100644
--- a/base/modules/psb_tools_mod.f90
+++ b/base/modules/psb_tools_mod.f90
@@ -408,6 +408,9 @@ Module psb_tools_mod
 
   interface psb_spfree
     module procedure psb_dsp_free, psb_zsp_free
+  end interface
+
+  interface psb_spfree
     subroutine psb_dspfree(a, desc_a,info)
       use psb_descriptor_type
       use psb_spmat_type