From a68120d320a473e73fec2bd146a7372749c145ac Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 10 Jan 2012 09:45:39 +0000
Subject: [PATCH] psblas3:

 prec/psb_c_prec_type.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_prec_type.f90

Cray FTN does not like interface name same as subroutine name.
---
 prec/psb_c_prec_type.f90 | 16 ++++++++--------
 prec/psb_d_prec_type.f90 | 16 ++++++++--------
 prec/psb_s_prec_type.f90 | 16 ++++++++--------
 prec/psb_z_prec_type.f90 | 16 ++++++++--------
 4 files changed, 32 insertions(+), 32 deletions(-)

diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90
index 935147df..07495d84 100644
--- a/prec/psb_c_prec_type.f90
+++ b/prec/psb_c_prec_type.f90
@@ -69,7 +69,7 @@ module psb_c_prec_type
     module procedure psb_cprec_sizeof
   end interface
 
-  interface psb_c_apply2_vect
+  interface 
     subroutine psb_c_apply2_vect(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
       type(psb_desc_type),intent(in)       :: desc_data
@@ -80,9 +80,9 @@ module psb_c_prec_type
       character(len=1), optional           :: trans
       complex(psb_spk_),intent(inout), optional, target :: work(:)
     end subroutine psb_c_apply2_vect
-  end interface psb_c_apply2_vect
+  end interface
   
-  interface  psb_c_apply1_vect
+  interface 
     subroutine psb_c_apply1_vect(prec,x,desc_data,info,trans,work)
       import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
         type(psb_desc_type),intent(in)       :: desc_data
@@ -92,9 +92,9 @@ module psb_c_prec_type
       character(len=1), optional           :: trans
       complex(psb_spk_),intent(inout), optional, target :: work(:)
     end subroutine psb_c_apply1_vect
-  end interface psb_c_apply1_vect
+  end interface
   
-  interface  psb_c_apply2v
+  interface
     subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -105,9 +105,9 @@ module psb_c_prec_type
       character(len=1), optional        :: trans
       complex(psb_spk_),intent(inout), optional, target :: work(:)
     end subroutine psb_c_apply2v
-  end interface psb_c_apply2v
+  end interface
   
-  interface  psb_c_apply1v
+  interface 
     subroutine psb_c_apply1v(prec,x,desc_data,info,trans)
       import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -116,7 +116,7 @@ module psb_c_prec_type
       integer, intent(out)              :: info
       character(len=1), optional        :: trans
     end subroutine psb_c_apply1v
-  end interface psb_c_apply1v
+  end interface
   
 contains
 
diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90
index f2cfacb4..3bc0ad22 100644
--- a/prec/psb_d_prec_type.f90
+++ b/prec/psb_d_prec_type.f90
@@ -69,7 +69,7 @@ module psb_d_prec_type
     module procedure psb_dprec_sizeof
   end interface
 
-  interface psb_d_apply2_vect
+  interface 
     subroutine psb_d_apply2_vect(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
       type(psb_desc_type),intent(in)       :: desc_data
@@ -80,9 +80,9 @@ module psb_d_prec_type
       character(len=1), optional           :: trans
       real(psb_dpk_),intent(inout), optional, target :: work(:)
     end subroutine psb_d_apply2_vect
-  end interface psb_d_apply2_vect
+  end interface
   
-  interface  psb_d_apply1_vect
+  interface 
     subroutine psb_d_apply1_vect(prec,x,desc_data,info,trans,work)
       import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
         type(psb_desc_type),intent(in)       :: desc_data
@@ -92,9 +92,9 @@ module psb_d_prec_type
       character(len=1), optional           :: trans
       real(psb_dpk_),intent(inout), optional, target :: work(:)
     end subroutine psb_d_apply1_vect
-  end interface psb_d_apply1_vect
+  end interface
   
-  interface  psb_d_apply2v
+  interface
     subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -105,9 +105,9 @@ module psb_d_prec_type
       character(len=1), optional        :: trans
       real(psb_dpk_),intent(inout), optional, target :: work(:)
     end subroutine psb_d_apply2v
-  end interface psb_d_apply2v
+  end interface
   
-  interface  psb_d_apply1v
+  interface 
     subroutine psb_d_apply1v(prec,x,desc_data,info,trans)
       import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -116,7 +116,7 @@ module psb_d_prec_type
       integer, intent(out)              :: info
       character(len=1), optional        :: trans
     end subroutine psb_d_apply1v
-  end interface psb_d_apply1v
+  end interface
   
 contains
 
diff --git a/prec/psb_s_prec_type.f90 b/prec/psb_s_prec_type.f90
index 931bee01..0f410ba1 100644
--- a/prec/psb_s_prec_type.f90
+++ b/prec/psb_s_prec_type.f90
@@ -69,7 +69,7 @@ module psb_s_prec_type
     module procedure psb_sprec_sizeof
   end interface
 
-  interface psb_s_apply2_vect
+  interface 
     subroutine psb_s_apply2_vect(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
       type(psb_desc_type),intent(in)       :: desc_data
@@ -80,9 +80,9 @@ module psb_s_prec_type
       character(len=1), optional           :: trans
       real(psb_spk_),intent(inout), optional, target :: work(:)
     end subroutine psb_s_apply2_vect
-  end interface psb_s_apply2_vect
+  end interface
   
-  interface  psb_s_apply1_vect
+  interface 
     subroutine psb_s_apply1_vect(prec,x,desc_data,info,trans,work)
       import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
         type(psb_desc_type),intent(in)       :: desc_data
@@ -92,9 +92,9 @@ module psb_s_prec_type
       character(len=1), optional           :: trans
       real(psb_spk_),intent(inout), optional, target :: work(:)
     end subroutine psb_s_apply1_vect
-  end interface psb_s_apply1_vect
+  end interface
   
-  interface  psb_s_apply2v
+  interface
     subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -105,9 +105,9 @@ module psb_s_prec_type
       character(len=1), optional        :: trans
       real(psb_spk_),intent(inout), optional, target :: work(:)
     end subroutine psb_s_apply2v
-  end interface psb_s_apply2v
+  end interface
   
-  interface  psb_s_apply1v
+  interface 
     subroutine psb_s_apply1v(prec,x,desc_data,info,trans)
       import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -116,7 +116,7 @@ module psb_s_prec_type
       integer, intent(out)              :: info
       character(len=1), optional        :: trans
     end subroutine psb_s_apply1v
-  end interface psb_s_apply1v
+  end interface
   
 contains
 
diff --git a/prec/psb_z_prec_type.f90 b/prec/psb_z_prec_type.f90
index de700591..5da10c3a 100644
--- a/prec/psb_z_prec_type.f90
+++ b/prec/psb_z_prec_type.f90
@@ -69,7 +69,7 @@ module psb_z_prec_type
     module procedure psb_zprec_sizeof
   end interface
 
-  interface psb_z_apply2_vect
+  interface 
     subroutine psb_z_apply2_vect(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
       type(psb_desc_type),intent(in)       :: desc_data
@@ -80,9 +80,9 @@ module psb_z_prec_type
       character(len=1), optional           :: trans
       complex(psb_dpk_),intent(inout), optional, target :: work(:)
     end subroutine psb_z_apply2_vect
-  end interface psb_z_apply2_vect
+  end interface
   
-  interface  psb_z_apply1_vect
+  interface 
     subroutine psb_z_apply1_vect(prec,x,desc_data,info,trans,work)
       import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
         type(psb_desc_type),intent(in)       :: desc_data
@@ -92,9 +92,9 @@ module psb_z_prec_type
       character(len=1), optional           :: trans
       complex(psb_dpk_),intent(inout), optional, target :: work(:)
     end subroutine psb_z_apply1_vect
-  end interface psb_z_apply1_vect
+  end interface
   
-  interface  psb_z_apply2v
+  interface
     subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work)
       import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -105,9 +105,9 @@ module psb_z_prec_type
       character(len=1), optional        :: trans
       complex(psb_dpk_),intent(inout), optional, target :: work(:)
     end subroutine psb_z_apply2v
-  end interface psb_z_apply2v
+  end interface
   
-  interface  psb_z_apply1v
+  interface 
     subroutine psb_z_apply1v(prec,x,desc_data,info,trans)
       import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
       type(psb_desc_type),intent(in)    :: desc_data
@@ -116,7 +116,7 @@ module psb_z_prec_type
       integer, intent(out)              :: info
       character(len=1), optional        :: trans
     end subroutine psb_z_apply1v
-  end interface psb_z_apply1v
+  end interface
   
 contains