psblas2:

base/modules/psb_serial_mod.f90

@@ -379,17 +379,19 @@ module psb_serial_mod
   end interface
 
   interface psb_csnmi
-    real(psb_dpk_) function psb_dcsnmi(a,info,trans)
+    function psb_dcsnmi(a,info,trans)
       use psb_spmat_type
       type(psb_dspmat_type), intent(in)  :: a
       integer, intent(out)       :: info
       character, optional        :: trans
+      real(psb_dpk_)             :: psb_dcsnmi
     end function psb_dcsnmi
-    real(psb_dpk_) function psb_zcsnmi(a,info,trans)
+    function psb_zcsnmi(a,info,trans)
       use psb_spmat_type
       type(psb_zspmat_type), intent(in)  :: a
       integer, intent(out)       :: info
       character, optional        :: trans
+      real(psb_dpk_)             :: psb_zcsnmi
     end function psb_zcsnmi
   end interface
 

base/modules/psb_spsb_mod.f90

@@ -32,10 +32,11 @@
 module psb_spsb_mod
 
   interface
-    real(psb_dpk_) function ddot(n,dx,incx,dy,incy)
+    function ddot(n,dx,incx,dy,incy)
       use psb_const_mod
       real(psb_dpk_) :: dx(*),dy(*),dtemp
       integer          :: i,incx,incy,ix,iy,m,mp1,n
+      real(psb_dpk_)   :: ddot
     end function ddot
   end interface
 
@@ -62,14 +63,15 @@ module psb_spsb_mod
   end interface
 
   interface
-    real(psb_dpk_) function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
+    function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
          &                 infoa,ierror)
       use psb_const_mod
       integer          ::  m,n, ierror
       character        ::  trans
       integer          ::  ia1(*),ia2(*),infoa(*)
       character        ::  descra*11, fida*5
-      real(psb_dpk_) ::  a(*)
+      real(psb_dpk_)   ::  a(*)
+      real(psb_dpk_)   :: dcsnmi
     end function dcsnmi
   end interface
 

base/serial/coo/dcoonrmi.f

@@ -30,10 +30,11 @@ C POSSIBILITY OF SUCH DAMAGE.
 C
 C 
 C     ... Compute Infinity norm for sparse matrix in CSR Format ...
-      real(psb_dpk_) FUNCTION DCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+      FUNCTION DCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
      +   INFOA,IERROR)
       use psb_const_mod
       IMPLICIT NONE
+      real(psb_dpk_)   dcoonrmi
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR
       CHARACTER         TRANS

base/serial/coo/zcoonrmi.f

@@ -29,10 +29,11 @@ C ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 C POSSIBILITY OF SUCH DAMAGE.
 C
 C     ... Compute Infinity norm for sparse matrix in CSR Format ...
-      real(psb_dpk_) FUNCTION ZCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+      FUNCTION ZCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
      +   INFOA,IERROR)
       use psb_const_mod
       IMPLICIT NONE
+      real(psb_dpk_) zcoonrmi
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR
       CHARACTER         TRANS

base/serial/csr/dcrnrmi.f

@@ -30,10 +30,11 @@ C POSSIBILITY OF SUCH DAMAGE.
 C
 C 
 C     ... Compute Infinity norm for sparse matrix in CSR Format ...
-      real(psb_dpk_) FUNCTION DCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+      FUNCTION DCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
      +  INFOA,IERROR)
       use psb_const_mod
       IMPLICIT NONE
+      real(psb_dpk_) dcrnrmi
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR
       CHARACTER         TRANS

base/serial/csr/zcrnrmi.f

@@ -28,10 +28,11 @@ C CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 C ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 C POSSIBILITY OF SUCH DAMAGE.
 C
-      real(psb_dpk_) FUNCTION ZCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,      
+      FUNCTION ZCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,      
      &   INFOA,IERROR)
       use psb_const_mod
       IMPLICIT NONE
+      real(psb_dpk_) zcrnrmi
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR
       CHARACTER         TRANS

base/serial/f77/dcsnmi.f

@@ -94,10 +94,11 @@ C
 C     Notes
 C     =====
 C
-      real(psb_dpk_) FUNCTION DCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
+      FUNCTION DCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
      &                 INFOA,IERROR)
       use psb_const_mod
       IMPLICIT NONE
+      real(psb_dpk_) dcsnmi
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR
       CHARACTER         TRANS

base/serial/f77/zcsnmi.f

@@ -93,10 +93,11 @@ C
 C     Notes
 C     =====
 C
-      real(psb_dpk_) FUNCTION ZCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
+      FUNCTION ZCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
      &                 INFOA,IERROR)
       use psb_const_mod
       IMPLICIT NONE
+      real(psb_dpk_) zcsnmi
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR
       CHARACTER         TRANS

base/serial/jad/djadnr.f

@@ -30,11 +30,12 @@ C POSSIBILITY OF SUCH DAMAGE.
 C
 C 
 C     ... Compute infinity norma for sparse matrix in CSR Format ...
-      real(psb_dpk_) FUNCTION DJADNR(TRANS,M,N,NG,A,KA,JA,IA,
+      FUNCTION DJADNR(TRANS,M,N,NG,A,KA,JA,IA,
      +  INFOA,IERROR)
       use psb_const_mod
       use psb_spmat_type
       IMPLICIT NONE
+      real(psb_dpk_) djadnr
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR, NG
       CHARACTER         TRANS

base/serial/jad/djdnrmi.f

@@ -30,10 +30,11 @@ C POSSIBILITY OF SUCH DAMAGE.
 C
 C 
 C     ... Compute infinity norm for sparse matrix in CSR Format ...
-      real(psb_dpk_) FUNCTION DJDNRMI(TRANS,M,N,DESCRA,A,JA,IA,
+      FUNCTION DJDNRMI(TRANS,M,N,DESCRA,A,JA,IA,
      +   INFOA,IERROR)
       use psb_const_mod
       IMPLICIT NONE
+      real(psb_dpk_) djdnrmi
 C     .. Scalar Arguments ..
       INTEGER           M,N, IERROR
       CHARACTER         TRANS

base/serial/psb_dcsnmi.f90

@@ -33,7 +33,7 @@
 ! Subroutine: 
 ! Arguments:
 
-real(psb_dpk_) function psb_dcsnmi(a,info,trans)
+function psb_dcsnmi(a,info,trans)
 
   use psb_spmat_type
   use psb_error_mod
@@ -42,11 +42,12 @@ real(psb_dpk_) function psb_dcsnmi(a,info,trans)
   type(psb_dspmat_type), intent(in)  :: a
   integer, intent(out)               :: info
   character, optional                :: trans
-
+  real(psb_dpk_)                     :: psb_dcsnmi
   interface
-     real(psb_dpk_) function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
+     function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
           &                 infoa,ierror)
        use psb_const_mod
+       real(psb_dpk_)   :: dcsnmi
        integer          ::  m,n, ierror
        character        ::  trans
        integer          ::  ia1(*),ia2(*),infoa(*)

base/serial/psb_zcsnmi.f90

@@ -33,7 +33,7 @@
 ! Subroutine: 
 ! Arguments:
 
-real(psb_dpk_) function psb_zcsnmi(a,info,trans)
+function psb_zcsnmi(a,info,trans)
 
   use psb_spmat_type
   use psb_error_mod
@@ -42,11 +42,12 @@ real(psb_dpk_) function psb_zcsnmi(a,info,trans)
   type(psb_zspmat_type), intent(in)  :: a
   integer, intent(out)               :: info
   character, optional                :: trans
-
+  real(psb_dpk_)                     :: psb_zcsnmi
   interface
-     real(psb_dpk_) function zcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
+     function zcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
           &                 infoa,ierror)
        use psb_const_mod
+       real(psb_dpk_)   :: psb_zcsnmi
        integer          ::  m,n, ierror
        character        ::  trans
        integer          ::  ia1(*),ia2(*),infoa(*)