psblas3-integer8:

base/modules/psb_error_mod.F90 Fixed ambiguous interface at 8-bytes.
2026-10-11 00:19:03 +00:00 · 2012-01-30 17:48:19 +00:00
parent 8cf8d5a4bc
commit 3886ae08fa
1 changed files with 2 additions and 2 deletions
@@ -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