Changed handling of duplicates and storage format. Changed interface

to both geins and spasb. New and better strategies.
2026-10-20 12:52:14 +00:00 · 2006-04-14 11:56:05 +00:00
parent 77106751a4
commit 4b2f930cf6
32 changed files with 1836 additions and 1405 deletions
@@ -165,7 +165,8 @@ contains
      goto 9999
    end if

-    b%infoa(psb_upd_) = 6
+    call psb_sp_setifld(psb_dupl_ovwrt_,psb_dupl_,b,info)
+    call psb_sp_setifld(psb_upd_dflt_,psb_upd_,b,info)
    b%fida = 'COO'
    b%m=a%m
    b%k=a%k
@@ -165,7 +165,8 @@ contains
      goto 9999
    end if

-    b%infoa(psb_upd_) = 6
+    call psb_sp_setifld(psb_dupl_ovwrt_,psb_dupl_,b,info)
+    call psb_sp_setifld(psb_upd_dflt_,psb_upd_,b,info)
    b%fida = 'COO'
    b%m=a%m
    b%k=a%k