Added the address of GCBANK, not for Zebra stores, but to get access to

[u/mrichter/AliRoot.git] / GEANT321 / comad / gcomad.F

diff --git a/GEANT321/comad/gcomad.F b/GEANT321/comad/gcomad.F
index 00b8d00f19243966cbe0c00d330a6a43917b071b..45f597579ac46a824d73c4a17f412f88e23a2042 100644 (file)
--- 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