Added the address of GCBANK, not for Zebra stores, but to get access to
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 10 Jun 1999 17:04:57 +0000 (17:04 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 10 Jun 1999 17:04:57 +0000 (17:04 +0000)
the store variables like IXCONS.

GEANT321/comad/gcomad.F

index 00b8d00..45f5975 100644 (file)
@@ -239,6 +239,8 @@ C
          IADD=GCADDF(THRIND)
       ELSE IF(CHCOMM.EQ.'QUEST') THEN
          IADD=GCADDI(IQUEST)
+      ELSE IF(CHCOMM.EQ.'GCBANK') THEN
+         IADD=GCADDI(NZEBRA)
       ELSE
          WRITE(6,123) CHCOMM
          IADD=0