Initial fixes for IPK==LPK

2026-10-20 12:52:14 +00:00 · 2020-02-02 11:37:53 +00:00
parent 1d81cf4af9
commit af14080a34
7 changed files with 2 additions and 0 deletions
@@ -122,6 +122,7 @@ module psb_cd_tools_mod
      logical, optional, target, intent(in)      :: mask(:)
      integer(psb_ipk_), intent(in), optional    :: lidx(:)
    end subroutine psb_cdinsc
+#if defined(IPK4) && defined(LPK8) 
    subroutine psb_lcdinsrc(nz,ia,ja,desc_a,info,ila,jla)
      import :: psb_ipk_, psb_lpk_, psb_desc_type
      type(psb_desc_type), intent(inout) :: desc_a
@@ -140,6 +141,7 @@ module psb_cd_tools_mod
      logical, optional, target, intent(in)      :: mask(:)
      integer(psb_ipk_), intent(in), optional    :: lidx(:)
    end subroutine psb_lcdinsc
+#endif
  end interface

  interface psb_cdbldext