psblas3-integer8:

base/modules/psb_error_mod.F90 Fixed ambiguous interface at 8-bytes.
13 years ago · 3886ae08fa
parent 8cf8d5a4bc
commit 3886ae08fa
1 changed files with 2 additions and 2 deletions
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@ -65,13 +65,13 @@ module psb_error_mod
    end subroutine psb_perror
  end interface

-  interface 
+  interface psb_errcomm
    subroutine psb_errcomm(ictxt, err)
      import :: psb_mpik_, psb_ipk_
      integer(psb_mpik_), intent(in)   :: ictxt
      integer(psb_ipk_), intent(inout):: err
    end subroutine psb_errcomm
-  end interface
+  end interface psb_errcomm

 #if defined(LONG_INTEGERS)
  interface psb_error