From ce5b0b9634277d485cba3ee85eb79d651b45b0e0 Mon Sep 17 00:00:00 2001
From: fca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Thu, 10 Jun 1999 17:04:57 +0000
Subject: [PATCH] Added the address of GCBANK, not for Zebra stores, but to get
 access to the store variables like IXCONS.

---
 GEANT321/comad/gcomad.F | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/GEANT321/comad/gcomad.F b/GEANT321/comad/gcomad.F
index 00b8d00f192..45f597579ac 100644
--- a/GEANT321/comad/gcomad.F
+++ b/GEANT321/comad/gcomad.F
@@ -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
-- 
2.31.1