+TITLE.
PHOSIM   2.03/01  04/08/97  17.05.01
+PATCH,COM.
*CMZ :  1.01/00 18/04/94  16.12.57  by  Phobos (R. Verdier)
+DECK,CRESIMCMZ  ,T=DATA.
*CMZ :  1.00/00 17/12/93  07.30.41  by  Phobos
*-- Author :
$! CRESIMCMZ.COM: Create a CMZ library for the Phobos SIM system
$! Use:      @cresimcmz <directory> [version]
$! Example:  @cresimcmz scratch: p
$! Options:
$! CRESIMCMZ creates the CMZ library <directory>PHOSIM.CMZ and
$!   inserts Phobos SIM source code, include files, data files,
$!   command files, documents, GEANT include SEQ's, correction files
$!   for the Phobos changes to the interactive GEANT package GXINT,
$!   and the modified programs GXCONT and GXFZ into PHOSIM.CMZ.
$! <version> = test or prod, for the SIM section from which the files
$!   are to be taken.
$! To run this procedure as extracted from th CMZ library, you must
$! first copy it and delete the \\ preceding + throughout.
$! 15-Dec-93  R. V.  Refer to ZTEST for command procs; precede +PATCH
$!                   and +DECK below with \\ to keep YTOC from
$!                   interpreting them, a CMZ weakness
$! 8-Dec-93   R. V.  Directory structure changed to xxx_for, etc.
$! 30-Nov-93  R. Verdier  Creation
$!
$ if f$mode() .eqs. "BATCH" then assign dummy sys$print
$ say == "write sys$output"
$! The following is now supposed to be a system-wide logical at MIT:
$! cmz :== $HANS$DKA100:[CERN.CMZ.PRO.EXE]CMZ
$!
$! Don't run this procedure until it's been edited:
$ if "\\+" .nes. "+"
$ then
$   say -
      "You must first copy this procedure, then use an editor to change"
$   say "\","\+ to + everywhere in the copy before executing it."
$   exit
$ endif
$! Define library subdirectory:
$ def/nolog cm 'f$environment("DEFAULT")'
$ if p1 .nes. "" then def/nolog cm 'p1'
$! Define temporary workspace subdirectory:
$ def/nolog cf cm
$ vers :== test
$ zvers :== ztest  ! for command procedures
$ if p2 .eqs. "P" .or. p2 .eqs. "PROD" then vers :== prod
$! Define directories for various files
$ def/nolog fc phobos_root:[sim.'vers'.cmd] ! for FORTOCAR.COM
$ def/nolog gc niels$dua0:[verdier.cern]    ! for GEANT315.CAR
$ def/nolog gx phobos_root:[sim.'vers'.src] ! for GEANX315.CAR
$ def/nolog pc phobos_root:[sim.'zvers'.cmd]
$ def/nolog pd phobos_root:[sim.'vers'.data]
$ def/nolog pdo phobos_root:[sim.doc]
$ def/nolog pi phobos_root:[sim.'vers'.inc]
$ def/nolog piz phobos_root:[include.prod.src.zebra.banks]
$! The first form of the following definition does not work for
$! copy/excl, whereas the logically equivalent second form works:
$! def/nolog ps phobos_root:[sim.'vers'.src]
$ def/nolog ps disk$csc:[phobos.sim.'vers'.src]
$!
$! Abort the job if the PHOSIM CMZ library exists, as the startup
$! corrections cannot be applied twice.
$ if f$search("cm:PHOSIM.CMZ") .eqs. "" then goto SCONT
$ say f$search("cm:PHOSIM.CMZ"), " already exists; please delete or "
$ say "rename it and retry."
$ goto EXIT
$!
$ SCONT:
$! Otherwise create the file and include GEANT Common DEScriptor sequences.
$! Create a source library by letting CMZ extract subroutines as
$! decks from a file containing all the source code.
$! This operation requires a special-purpose DCL procedure,
$! FORTOCAR.COM, which uses the EDT editor in batch mode.
$!
$ say "Creating source library ''f$logical("cf")'[:]PHOSIM_TEMP.CAR "
$ say "from source files ''f$logical("ps")'*.FOR:"
$ copy ps:*.FOR/excl=(GEANX315,GPH,GXCONT,PTEMPLATE) cf:PHOSIM_TEMP.FOR
$ @fc:FORTOCAR  cf:  PHOSIM_TEMP  .FOR  cf:PHOSIM_TEMP.CAR
$ del cf:PHOSIM_TEMP.FOR;
$!
$! Create a CMZ correction file with startup modifications to Phobos
$! user code.
$! These corrections are required by our changeover to the GEANT version
$! of the GCFLAG sequence, which now includes common GCFLAX and makes
$! the GCFLAX include obsolete.  The correction decks were created using
$! YCORR in CMZ, and should need no future revision.
$!
$ say "Creating corrections deck for Phobos user code"
$ say " in ", f$logical("cm"), "PHOSIM_TEMP.CORR:"
$! ************************************************************
$! Begin startup corrections
$! ************************************************************
$ create cf:PHOSIM_TEMP.CORR
\\+PATCH,$CORR.
\\+DECK,CORR_GEPHOB.
+REP,SRC_FOR,GEPHOB,0-1.
&DECK,GEPHOB.
*CMZ :          21/11/93  18.14.01  by  R. Verdier
* Removed obsolete GCFLAX include
+ADD,SRC_FOR,GEPHOB,33.
* 21-Nov-93  RV         Removed obsolete GCFLAX include
+DEL,SRC_FOR,GEPHOB,75-80.
\\+DECK,CORR_GUSTEP.
+REP,SRC_FOR,GUSTEP,0-1.
&DECK,GUSTEP.
*CMZ :          21/11/93  18.16.34  by  R. Verdier
* Removed obsolete GCFLAX include
+ADD,SRC_FOR,GUSTEP,28.
C     21-Nov-93  RV  Remove obsolete GCFLAX include
+DEL,SRC_FOR,GUSTEP,35.
\\+DECK,CORR_SETBATCH.
+REP,SRC_FOR,SETBATCH,0-1.
&DECK,SETBATCH.
*CMZ :          21/11/93  18.19.23  by  R. Verdier
* Changed GCFLAX to GCFLAG (now contains old GCFLAX)
+REP,SRC_FOR,SETBATCH,34.
C     21-Nov-93  R. V.  Changed GCFLAX to GCFLAG (now contains old GCFLAX)
+REP,SRC_FOR,SETBATCH,42.
&SEQ, GCFLAG.
\\+DECK,CORR_ZZZ_DECK.
+REP,SRC_FOR,ZZZ_DECK,0-3.
&DECK,FINTERR.
*CMZ :          22/11/93  15.48.57  by  R. Verdier
* Renamed to FINTERR as CMZ does not understand INTEGER*4 FUNCTION
*-- Author :
C========================================
\\+DECK,CORR_UGCIN.
+REP,SRC_FOR,UGCIN,0.
&DECK,UGCIN.
*CMZ :          22/11/93  23.59.59  by  R. Verdier
* -maxargs -> mmaxargs, idebug -> ldebug for non-VMX Fortrans
+ADD,SRC_FOR,UGCIN,37.
*  22-Nov-93  R. V.      -maxargs -> mmaxargs, idebug -> ldebug for
*                        non-VMS Fortrans
+REP,SRC_FOR,UGCIN,53.
      integer ldebug /1/
+REP,SRC_FOR,UGCIN,57-58.
      integer maxargs, mmaxargs, nkeys, nsubkeys
      parameter (nkeys = 2, nsubkeys = 3, maxargs = 20, mmaxargs = -20)
+REP,SRC_FOR,UGCIN,79.
      data nargs / mmaxargs, mmaxargs /
+REP,SRC_FOR,UGCIN,122.
        if (ldebug .ge. 2) write (lurep, '(a,i3/1x,a)'),
+REP,SRC_FOR,UGCIN,142.
            if (ldebug .ge. 4) write (lurep, '(3(a,i3),2a)'),
+REP,SRC_FOR,UGCIN,179.
              if (ikey .gt. 0 .and. ldebug .ge. 3)
+REP,SRC_FOR,UGCIN,194.
                  if (ldebug .ge. 3)
+REP,SRC_FOR,UGCIN,217.
            if (ldebug .gt. 0) write (lurep, '(3(a,i3),a)'),
+REP,SRC_FOR,UGCIN,236.
              if (ldebug .gt. 0) write (lurep, '(a,i4,2a)'),
\\+DECK,CORR_UGEOM.
+REP,SRC_FOR,UGEOM,0-1.
&DECK,UGEOM.
*CMZ :          22/11/93  15.42.22  by  R. Verdier
+REP,SRC_FOR,UGEOM,8-11.
*  Optionally define user geometry for Phobos.
*  NB: This file is a no-op version, without the subroutines that
*  defined individual parts of Phobos in the original version.
+REP,SRC_FOR,UGEOM,21.
*  none
+ADD,SRC_FOR,UGEOM,28.
*  22-Nov_93  R. V.      No-op version
+REP,SRC_FOR,UGEOM,44-68.
      integer ugmode
+REP,SRC_FOR,UGEOM,77-195.
        print *, 'UGEOM error: this version does not create the ',
     +    'geometry; it was '
        print *, 'probably called because the UGCDATA file was ',
     +    'unreadable.'
$! ************************************************************
$! End startup corrections
$! ************************************************************
$ say "Creating includes library from ", f$logical("pi"), "*.cmn,*.blk:"
$!
$ @fc:FORTOCAR pi:  BANGC   .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  CARDS   .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  CYFLDC  .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  FLAG    .CMN  cf:PHOSIM_TEMP.INC
$! Ignore GCFLAX, now included in GCFLAG
$ @fc:FORTOCAR pi:  HST     .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  IO      .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  MUPEP   .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  MUPEPD  .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  NTU     .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  NTUEX   .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  NTUEXD  .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  RHSIL   .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  RHSYS   .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  UHITS   .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR pi:  UJKBUF  .CMN  cf:PHOSIM_TEMP.INC
$ @fc:FORTOCAR piz: ZBBFLD  .BLK  cf:PHOSIM_TEMP.INC
$!
$! Create a CMZ correction file with Phobos modifications to GEANX, the
$! interactive GEANT package.  These corrections were created using YCORR
$! and must be checked if either GXCONT or GXFZ changes in the future.
$! Note that the PATCH containing the code is GXINT, and CMZ makes this
$! the subdirectory name, although GEANX_FOR would be consistent with
$! the Phobos directory structure.
$ say "Creating corrections deck for the interactive GEANT package, GEANX,"
$ say "in ", f$logical("cm"), "GEANX_TEMP.CORR:"
$ create cf:GEANX_TEMP.CORR
\\+PATCH,$CORR_GEANX.
\\+DECK,CORR_GXCONT.
+REP,GXINT,GXCONT,1.
*CMZ :          15/11/93  23.24.09  by  R. Verdier, M.I.T.
*    TRIG handling changed to allow external loop control for
*    multi-pass event processing
*CMZ :  3.15/06 06/04/92  18.09.57  by  S.Giani
+REP,GXINT,GXCONT,51.
c Following changed from original DO 20 1,N for Phobos, 16-May-93:
c In batch mode, use the number of events set in UGINIT
         IF (.NOT.BATCH) NEVENT = N
         IEVENT = 0
         DO 20 WHILE (IEVENT .LT. NEVENT)
\\+DECK,CORR_GXFZ.
+ADD,GXINT,GXFZ,0.
*CMZ :          15/11/93  23.18.38  by  R. Verdier, M.I.T.
*    Added status to opens to avoid error warnings
+REP,GXINT,GXFZ,36-38.
c Declare status to avoid error warning:
            OPEN(UNIT=LUN,FILE=CHPATH(1:NCHPAT),FORM='FORMATTED',
     1        STATUS='UNKNOWN')
         ELSE
            OPEN(UNIT=LUN,FILE=CHPATH(1:NCHPAT),FORM='UNFORMATTED',
     1        STATUS='UNKNOWN')
$!
$ say "Creating Phobos SIM library ''f$logical("cm")'PHOSIM.CMZ:"
$ cmz
  author Phobos
  make cm:PHOSIM.CMZ
* Get GEANT includes from the GEANT card-image file.
* Using the -t option on the ytoc command to preserve the original
* times causes ALL patches to be read in, a CMZ bug.
  ytoc gc:GEANT315.CAR GCDES
  mess GEANT sequences from GEANT315.CAR have been copied into //PHOSIM/GCDES/.
* Copy source files from PHOSIM_TEMP.CAR into //PHOSIM/SRC_FOR/.
* Note the warning about ZZZ_DECK created from integer*4 finterr.
  mess The following Fortran error warning should be ignored:
  mdir SRC_FOR
  cdir SRC_FOR
  ftoc cf:PHOSIM_TEMP.CAR
  mess Fortran source files have been copied into //PHOSIM/SRC_FOR/.
* Apply startup corrections
  use_corr cf:PHOSIM_TEMP.CORR
* Correct the files and mark the obsolete ones.
* The following should work with $USE; but $USE fails at LNS:
  update GEPHOB GUSTEP SETBATCH UGCIN UGEOM ZZZ_DECK
  delete -o BMVC BMTB COIL CRYB CRYS FILL OUTS SPEC ZZZ_DECK
* Reorder alphabetically
  alpha_order
  dir
  mess Startup corrections have been applied to files in //PHOSIM/SRC_FOR/.
* Save include files as KEEP decks
  cdir ..
  mdir SRC_INC
  cdir SRC_INC
  ytoc cf:PHOSIM_TEMP.INC
  mess Fortran include files have been copied into //PHOSIM/SRC_INC/.
* Save modifications to GEANX interactive GEANT subroutines.
  cdir ..
  ytoc cf:GEANX_TEMP.CORR
  mess Phobos-specific modifications for GEANX have been copied into
  mess CORR_GXCONT and CORR_GXFZ in //PHOSIM/$CORR_GEANX/.
* Save modified GXCONT and GXFZ.  NB-- this is dangerous, as the
* modifications cannot be applied twice; but we do it here to make
* the CMZ library complete.
* The patch containing the actual Fortran code is called GXINT.
  ytoc gc:GEANX315.CAR GXINT/GXCONT GXINT/GXFZ
  use_corr cf:GEANX_TEMP.CORR
  cdir GXINT
  update GXCONT GXFZ
  purge
  dir
  mess Phobos-modified Fortran files GXCONT and GXFZ have been saved
  mess in //PHOSIM/GXINT/.
  mess Note that the corrections in ...$CORR_Gxxx must not be reapplied.
* Insert command procedure files
  cdir ..
  mdir CMD_COM
  cdir CMD_COM
  ttoc pc:CRESIMCMZ.COM
  ttoc pc:DEMO.COM
  ttoc pc:RMC.COM
  ttoc pc:RMCDEFS.COM
  ttoc pc:SMC.COM
  ttoc pc:LINKMC.COM
  ttoc pc:LMCDEFS.COM
  dir
  mess Command procedure .COM files have been inserted into //PHOSIM/CMD_COM/.
* Insert KUIP macro files
  cdir ..
  mdir CMD_KUMAC
  cdir CMD_KUMAC
  ttoc pc:DRAWPHOB.KUMAC
  ttoc pc:INSTALL.KUMAC
  ttoc pc:TOPVIEW.KUMAC
  dir
  mess KUIP macro .KUMAC files have been inserted into //PHOSIM/CMD_KUMAC/.
* Insert data files
  cdir ..
  mdir DATA_TXT
  cdir DATA_TXT
  ttoc pd:CONTDEMO.TXT
  ttoc pd:GEOCON.TXT
  ttoc pd:MAP_2T.TXT
  ttoc pd:UGCDATA.TXT
  ttoc pd:UGC_93_10.TXT
  dir
  mess Data .TXT files have been inserted into //PHOSIM/DATA_TXT/.
* Insert document .DOC files
  cdir ..
  mdir DOC_DOC
  cdir DOC_DOC
  ttoc pdo:PMCUSER.DOC
  ttoc pd:STATUS.DOC
  dir
  mess Document files have been inserted into //PHOSIM/DOC_DOC/.
* Assign initial version number 1.00 to everything:
  mess Please enter a description of this creation job in the $VERSION
  mess patch on the last empty comment line, for example:
  mess * Created by CRESIMCMZ.COM from Phobos_root:[sim.test...]: <your name>
  mess and then exit normally from the editor (ctrl-Z/ exit):
  version -s 1.00/0
*  dir -L
  mess Creation of cm:PHOSIM.CMZ is now complete.
  exit
$ del cf:PHOSIM_TEMP.CAR;
$ del cf:PHOSIM_TEMP.INC;
$ del cf:PHOSIM_TEMP.CORR;
$ del cf:GEANX_TEMP.CORR;
$!
$ EXIT:
$ if f$search("lastcmz.kumac") .nes. "" then purge lastcmz.kumac
$ exit
+DECK,DEMO     ,T=DATA.
*CMZU:  2.01/02 14/03/97  16.06.53  by  Phobos (R. Verdier)
*CMZU:  2.00/07 22/07/96  10.10.36  by  Phobos (R. Verdier)
*CMZU:  2.00/02 22/05/96  09.49.55  by  Phobos (R. Verdier)
*CMZU:  2.00/00 26/02/96  17.55.24  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.42  by  Phobos
*-- Author :
$! DEMO.COM: A demonstration of the Phobos Monte Carlo for new users
$ Vers = "PRO"  ! NEW | PRO
$! Usage: type
$!     $ define pc phobos_root:[sim.{new|pro}.cmd]
$!     $ @pc:demo
$! and follow the instructions.
$ say := write sys$output
$ disp = p1
$ if disp .eqs. "X" .or. disp .eqs. "G" then goto HaveDisp
$ say "Welcome to the Phobos Monte Carlo demonstration."
$ say ""
$ say "If you are running with a Phobos subdirectory as your default"
$ say "directory, any created files will be left in that subdirectory;"
$ say "if that is the case, please quit by entering <ctrl-Y> at the next"
$ say "prompt, and re-run the demo from your own directory."
$ say ""
$ AskDisp:
$ say "What kind of display are you using?  Please enter"
$ say " x, for X-windows (VAXstation or X-emulator), or"
$ inquire disp -
    " g, for GKS (Tektronix emulator: Macintosh or VAX Tek window)"
$ HaveDisp:
$ if disp .eqs. "G"
$ then
$   ExeName = "MCGD"
$ else
$   if disp .eqs. "X"
$   then
$     ExeName = "MCXD"
$   else
$     say "I don't know display type ''disp'."
$     goto AskDisp
$   endif
$ endif
$ if p1 .nes. "" then goto Run
$ if disp .eqs. "X"
$ then
$   say "You must execute the VMS command"
$   say "  $ set display/create/user/transport=tcpip/node=<yournode>"
$   resp = "Y"
$   inquire/nopunct resp -
    "If you have not already done that, shall I do it now (y/n) [y]? "
$   if resp .nes. "N"
$   then
$     inquire/nopunct nodename "What is your node name? "
$     set display/create/user/transport=tcpip/node='nodename'
$   endif
$ say ""
$   say "When asked for your workstation type, enter 1."
$   say "You can enter 0 for a display without graphics."
$   say "You can enter 7878 for a Falco Tektronix 4014 emulation."
$ endif
$ if disp .eqs. "G"
$ then
$   say ""
$   say "When asked for your workstation type, if you are in a Textronix"
$   say "emulator enter 82 for color [4105] or 72 for mono [4014];"
$   say "if you are in a VAXstation DECterm window, enter 211."
$   say "You can enter <return> for a display without graphics."
$ endif
$ say "If you enter ?, the program will list available types."
$ say ""
$ say "The program will now display some statistics and a GEANT > prompt. "
$ say "Enter"
$ say "   exe pc:topview"
$ say "to draw the Phobos detector; at the next prompt, enter"
$ say "   trig 1"
$ say "to display the tracks from one event.  The first event takes a"
$ say "long time, because all the initializing is done at this point."
$ say ""
$ say "You can enter"
$ say "   next"
$ say "to clear the screen, then repeat the draw / trig sequence."
$ say ""
$ say "At the end, type ""exit"" to exit the MC, or ""quit"" to abort it."
$ say "Ntuples named DEMOTEMP.NTU and DEMOMCTEMP.NTU will exist in your area;"
$ say "if you typed ""exit"" to stop, you can use PAW to scan them and plot"
$ say "the data.  If you typed ""quit"", the ntuples will be unusable."
$ say ""
$ say "You can also type <ctrl-Y> any time to abort the demo (you may have"
$ say "to do it twice).  This will also leave the ntuples unusable."
$ say ""
$ say "In future, you can bypass the preceding dialogue by entering the"
$ say "display type letter, x or g, following ""@pc:demo ""."
$ inquire dummy "Now please press <return> when you are ready to run the demo"
$ Run:
$ def/nolog/user pd phobos_root:[sim.'Vers'.dat], -
                    phobos_root:[geo.test.data]
$ def/nolog/user pe phobos_root:[sim.'Vers'.exe]
$ def/nolog/user fldasc pd:MAP_2T.TXT
$ def/nolog/user fldzbr pmc_dat:FIELD.ZBR ! Should not be necessary
$ def/nolog/user gcdefs pd:UGCDATA.TXT
$ def/nolog/user genevs -
    irene$dka300:[TEMPORARY.WOZNIAK]AUAU_HIJET_CENTR_100.ADAT
$ def/nolog/user mcntu  DEMOMCTEMP.NTU
$ def/nolog/user rhasc  nl:
$ def/nolog/user rhdata pd:CONTDEMO.TXT
$ def/nolog/user rhhst  nl:
$ def/nolog/user rhntu  DEMOTEMP.NTU
$ def/nolog/user rhzeb  nl:DEMOTEMP.fz
$ def/nolog/user sys$input sys$command
$ run/nodebug pe:'ExeName'
+DECK,RMC  ,T=DATA.
*CMZU:  2.03/00 23/07/97  11.07.04  by  Phobos (R. Verdier)
*-- Author :
$! RMC: Run the Phobos MC at MIT
$! Use:
$!           $ @rmc [outfiles] [logdefs] [debugopt]
$! Example:  $ @rmc hijet mcgd
$! where
$! Output files will be named "scratch:<outfiles>.xxx"; the default
$!   is "scratch:TEMP.xxx".
$! Logdefs is the name of a command procedure, or a logical name
$!   assigned to a command procedure, that defines logical names
$!   required for RMC.  This procedure must define the logical name
$!   scratch, and may also define the symbol Exename and any other
$!   logical names affecting the operation of RMC.
$!   Logdefs defaults to RMCDEFS.
$!   Exename is the name of the executable program.  The standard form
$!   is pmc_exe:MC<w><d>, where w is x for X-windows (DECwindows, on
$!   VAXstations) or g for GKS (Tektronix emulation), and d is d for
$!   a debug version or blank for non-debug.
$!   Exename defaults to pmc_exe:MCX.
$! Debugopt non-blank will run under control of the VMS debugger;
$!   the default is to run without debugger control.
$!
$! After executing the rmc procedure, you can do additional
$! interactive runs simply by entering
$!        $ 'rmc
$! (note the apostrophe); this will use the same parameters as the
$! original rmc call.
$! 12-Mar-97 R. V. Updated default gcdefs, pmc_exe -> [...EXEVMS]
$! 08-Nov-96 R. V. Updated map and geom filenames, removed test dat
$! 13-Aug-96 R. V. Removed fldzbr, added batkumac
$! 30-Jul-96 R. V. Added ASCII output file
$! 16-Dec-93 R. V. Created from old RUNMC with changed arguments
$!
$ if f$mode() .eqs. "BATCH" then assign dummy sys$print
$ Vers == "NEW" ! Define default version
$ MagVers == "NEW" ! Default version for magnetic field map
$ def/nolog pmc_dat phobos_root:[SIM.'Vers'.DAT]
$ def/nolog pmc_exe phobos_root:[SIM.'Vers'.EXEVMS]
$ outfile := temp
$ if p1 .nes. "" then outfile := 'p1'
$ Debugopt = "nodebug"
$ if p3 .nes. "" then Debugopt = "debug"
$! Define standard data files:
$! Logical "genevs" defines the generated track file, if the
$! rhdata file sets GEN to 0:
$ def/nolog genevs -
    HANS$DKA200:[WOZNIAK.TEMPORARY]AUAU_HIJET_CENTR_100.ADAT
$! Other files are also available, such as:
$!    phobos_root:[geant.fritiof]SIM_3E_AU_AU_200GEV_0P0_0P5.DAT
$! Logical "rhdata" defines the simulation control options file:
$ def/nolog rhdata pmc_dat:CONTROL.TXT
$! Logical "gcdefs" defines the geometry text file:
$ def/nolog gcdefs pmc_dat:UGCDATA_V37.TXT
$! Logical "cards$def", if defined, allows the control options
$! filename to be specified interactively; it is not defined here:
$! def/nolog cards$def pmc_dat:CONTROL.TXT
$! Logical "fldzbr" defines the Zebra bank specifying the magnetic
$!   field map when the geometry file sets MAGT to 0: this is obsolete
$! def/nolog fldzbr pmc_dat:FIELD.ZBR
$! Logical "batkumac" defines a file of kuip commands for use during
$!   batch operation; normally it should be undefined
$! def/nolog batkumac ...
$! Logical "fldasc" defines the ASCII file specifying the
$!   cylindrically symmetric ASCII magnetic field map when MAGT is 3:
$ def/nolog fldasc phobos_root:[SIM.'MagVers'.DAT]PHOMAGV108.TXT
$! Logical "rhhst" defines the output histogram file:
$ def/nolog rhhst  scratch:'outfile'.hst
$! Logical "rhaou" defines the ASCII hits output file:
$ def/nolog rhaou  scratch:'outfile'aou.txt
$! Logical "rhasc" defines the console output file, turned off here ***:
$ def/nolog rhasc  nl: ! scratch:'outfile'.asc ! to turn on
$! Logical "rhntu" defines the ntuple output file for tracks with hits:
$ def/nolog rhntu  scratch:'outfile'.ntu
$! Logical "mcntu" defines the ntuple output file for all tracks:
$ def/nolog mcntu  scratch:'outfile'mc.ntu
$! Logical "rhzeb" defines the RZ-format Zebra bank output file:
$ def/nolog rhzeb  scratch:'outfile'.fz
$! End of default file specifications
$!
$ Exename == "pmc_exe:MCX"
$! Get user definitions
$ if p2 .eqs. "" then p2 = "RMCDEFS"
$ @'P2'
$ Rmc == "run ''Exename'/''Debugopt'"
$ if f$mode() .nes. "BATCH" then define/nolog sys$input sys$command
$ 'Rmc'
$ exit
+DECK,RMCDEFS  ,T=DATA.
*CMZU:  2.03/00 23/07/97  11.07.05  by  Phobos (R. Verdier)
*-- Author :
$! RMCDEFS.COM: Run definitions procedure file for Phobos MC
$! This file is a template for a command procedure to be
$! executed by RMC.COM that can redefine the default logicals
$! used in running the Monte Carlo.
$! To make your own version of this file, first copy it to a
$! subdirectory in your own area, then uncomment (by removing
$! "!") and modify any commands relevant to your application.
$! Note that you must also remove the leading $! for continuation
$! lines.
$! In particular, you should check that Exename is correct for
$! your workstation, and change *** to the area in which you want
$! to create output files such as ntuples.
$! The standard definitions below are taken from RMC.COM.
$! 12-Mar-97  R.V.  Updated data filenames
$! 08-Nov-96  R.V.  Updated map and geometry filenames
$! 13-Aug-96: R. V. Removed fldzbr, added batkumac
$! 30-Jul-96: R. V. Added ASCII output file
$! 16-Dec-93: R. V. Sample version created from PHODEFS
$!
$! Definitions required by RMC:
$!
$ Exename == "pmc_exe:MCX.EXE"  ! Version: X-windows, nodebug
$ def/nolog scratch ***
$!
$! where
$! Exename is the name of the executable program.  The standard form
$!   is pmc_exe:MC<w><d>, where w is x for X-windows (DECwindows, on
$!   VAXstations) or g for GKS (Tektronix emulation), and d is d for
$!   a debug version or blank for non-debug.
$! Scratch is the directory in which you wish output files, such
$!   as ntuples, to be created.
$!   Normally, *** is disk$scratch:[<your username>].
$!
$! To redefine the simulation options control file to be used:
$!
$! def/nolog rhdata [<WorkDirectory>]CONTROL.TXT
$!
$! where [<WorkDirectory>] identifies a private directory.
$!
$! To use all data files taken from your private area, if they exist
$! there, in preference to the standard versions:
$! Note that when uncommenting this you must change $! to $ in
$! the first two lines and remove $! from the third.
$! Vers == "NEW" ! Define CMZ version as default
$! def/nolog pmc_dat [<WorkDirectory>], -
$!   phobos_root:[sim.'Vers'.dat]
$!
$! Optional definitions for special applications:
$!
$! To run a private test version of the MC linked in your scratch
$! area:
$! def/nolog pmc_exe scratch
$!
$! In addition to redefining directories, you can also redefine
$! standard data filenames (as illustrated with rhdata above).
$! These are the names and defaults:
$!
$! Logical "genevs" defines the generated track file, if the
$! control options rhdata file sets GEN to 0:
$! def/nolog genevs -
$!   irene$dka300:[TEMPORARY.WOZNIAK]AUAU_HIJET_CENTR_100.ADAT
$! Other track files are also available, such as:
$!    phobos_root:[geant.fritiof]SIM_3E_AU_AU_200GEV_0P0_0P5.DAT
$!
$! Logical "rhdata" defines the simulation control options file:
$! def/nolog rhdata pmc_dat:CONTROL.TXT
$!
$! Logical "gcdefs" defines the geometry text file:
$! def/nolog gcdefs pmc_dat:UGCDATA_V37.TXT
$!
$! Logical "cards$def", if defined, allows the control options
$! filename to be specified interactively; it is not defined here:
$! def/nolog cards$def pmc_dat:CONTROL.TXT
$!
$! Logical "batkumac" defines a file of kuip commands for use during
$!   batch operation; normally it should be undefined:
$! def/nolog batkumac ...
$!
$! Logical "fldasc" defines the ASCII file specifying the 3-d ASCII
$!   magnetic field map when MAGT is >= 2:
$! def/nolog fldasc pmc_dat:PHOMAGV108.TXT
$!
$! Logical "rhhst" defines the output histogram file:
$! def/nolog rhhst  scratch:'outfile'.hst
$!
$! Logical "rhaou" defines the standard ASCII hits output file:
$! def/nolog rhaou  scratch:'outfile'aou.txt
$!
$! Logical "rhasc" defines the console output file, turned off here ***:
$! def/nolog rhasc  nl: ! scratch:'outfile'.asc ! to turn on
$!
$! Logical "rhntu" defines the ntuple output file for tracks with hits:
$! def/nolog rhntu  scratch:'outfile'.ntu
$!
$! Logical "mcntu" defines the ntuple output file for all tracks:
$! def/nolog mcntu  scratch:'outfile'mc.ntu
$!
$! Logical "rhzeb" defines the RZ-format Zebra bank output file:
$! def/nolog rhzeb  scratch:'outfile'.fz
$!
$! End of run definitions procedure file
+DECK,SMC  ,T=DATA.
*CMZU:  2.02/01 01/05/97  14.33.56  by  Phobos (R. Verdier)
*CMZU:  2.01/02 14/03/97  16.07.50  by  Phobos (R. Verdier)
*CMZU:  2.00/07 22/07/96  10.13.13  by  Phobos (R. Verdier)
*CMZU:  2.00/02 22/05/96  09.52.27  by  Phobos (R. Verdier)
*CMZU:  2.00/00 26/02/96  17.53.04  by  Phobos (R. Verdier)
*CMZU:  2.00/00 08/10/95  09.05.31  by  Phobos (R. Verdier)
*-- Author :
$! SMC.COM: submit the Phobos mc for batch execution
$! Use:     $ @smc [outfiles] [logdefs] [queue]
$! Example: $ @smc hijet rmcx.com pierre$long
$! will run the phobos MC by submitting RMC.COM as a long job,
$! using control files defined by rmcx.com and with output files
$! named HIJET.xxx.
$! <outfiles> is the base name of the created ntuples and histogram
$!   files; it defaults to TEMP, creating TEMP.NTU and TEMPMC.NTU.
$! <logdefs> is the name of the logical definitions command file;
$!   it defaults to RMCDEFS.COM.
$! <queue> is the name of the desired batch queue.
$! RMC.COM lists the required logical file definitions, and
$! discusses logdefs and the output filenames.
$! 22-May-96 R.V. Change default command area to PRO
$!
$! Set default command area:
$ Vers = "NEW"
$ def/nolog pmc_cmd phobos_root:[sim.'Vers'.cmd]
$ if p1 .eqs. "" then p1 = "temp"
$ if p2 .eqs. "" then p2 = "RMCDEFS.COM"
$! Get the complete filename of logdefs for RMC:
$ logdefs = f$search(p2)
$ if logdefs .eqs. "" then logdefs = f$search("''p2'.COM")
$ if logdefs .eqs. ""
$ then
$   write sys$output "SMC error: unable to find logdefs file ''p2'."
$ else
$!  Execute logdefs in case it defines pmc_cmd and scratch:
$   @'logdefs'
$   Q := medium
$   if p3 .nes. "" then Q := 'p3'
$   submit/noprint/notify pmc_cmd:RMC/que='Q' -
    /log=scratch:'p1'/par=('p1','logdefs')
$ endif
+DECK,LINKMC  ,T=DATA.
*CMZU:  2.02/01 29/04/97  09.52.38  by  Phobos (R. Verdier)
*-- Author :
$! LINKMC: Link the Phobos Monte Carlo executable image
$! Use:      $ @linkmc [Graphics] [Debug] [LinkDefs] [MakeExe]
$! Example:  $ @linkmc g n [user.test]ulink.com
$! where
$! Graphics  = x or blank for X-windows (DECwindows, on VAXstations)
$!           = g for GKS or Tektronix emulation
$! Debug     = d for debug version, anything else for normal version
$! LinkDefs  = the name or logical name of a command procedure that
$!             can redefine the logical names and symbols that affect
$!             the link operation, and can also compile test versions
$!             of program modules for inclusion in the link.
$! MakeExe   = y to force the creation of a new executable
$!           = n to check revision dates but not create a new excutable
$!           = anything else to create a new excutable only if the
$!             existing one was revised earlier than the PMC library
$! LINKMC creates the executable file pmc_exe:MC<x|g><|d>.EXE.
$! The logical name pmc_exe, if unspecified, defaults to the user's
$! current directory.  This area will also be used for created .OBJ
$! files.
$! LINKMC executes the LinkDefs command procedure, whose default file
$! name is LMCDEFS.COM.  This procedure can define pmc_exe, and can
$! also redefine other logicals assigned below, such as pmc_lib,
$! pmc_src, and pmc_inc, to facilitate the testing of private versions
$! of programs under development, by containing statements like
$!   $ def pmc_src [user.test],phobos_root:[sim.test.src]
$! The template version phobos_root:[sim.test.cmd]LMCDEFS.COM contains
$! working examples.
$! MakeExe should be specified as y when linking user modifications.
$! 25-Apr-97  R. V.  Add symbol "main" to create postscript output version
$! 12-Mar-97  R. V.  Updated default pmc_exe -> [...EXEVMS]
$! 31-May-96  R. V.  Add UserLib to accommodate server files
$! 01-Apr-95  R. V.  Reflect changed library names and locations
$! 08-Aug-94  R. V.  Add Platform to eliminate isd_max for Alpha,
$!                   MapOpt -> LinkOpt to include /nonative switch
$! 18-Apr-94  R. V.  Vers -> NEW; get GEANX315 from [cern.pro.lib];
$!                   remove local definition of phobos_root
$! 16-Dec-93  R. V.  Update locations of old CERN libs; eliminate pre-
$!                   defined logicals; prompt for missing arguments;
$!                   move compile procedure to LinkDefs.
$! 10-Nov-93  R. V.  New CERN libraries, GEANX315, LMCDEFS
$! 06-Oct-93: R. V.  Update location of cern libraries
$! 03-Jun-93: R. V.  Add <debug> and GEANX315; remove STREAMLIB.
$!                   Note there are no undefineds in either old
$!                   or 93c version.
$! 05-May-93: R. V.: Use Cern 93c libraries; put isd_max inline
$! 01-Dec-92: R. Verdier, M.I.T.
$!
$ if f$mode() .eqs. "BATCH" then assign dummy sys$print
$ say = "write sys$output"
$ ask = "inquire/nopunct"
$! Use VMS system call to identify VAX or Alpha
$ Platform = f$getsyi("arch_name") ! ("VAX" | "Alpha")
$! Select source and library version as TEST, NEW, or PRO
$ Vers = "NEW"
$ if p1 .eqs. ""
$ then
$   ask p1 -
    "Please specify graphics mode as g for GKS or x for X11 (CR=x): "
$   if p1 .nes. "G" then p1 = "X"
$ endif
$ if p2 .eqs. ""
$ then
$   ask p2 -
    "Please specify d for debug mode or n for normal mode (CR=d): "
$   if p2 .nes. "N" then p2 = "D"
$ endif
$ Debug = 1  ! 1/0 for debug/nodebug
$ if p2 .nes. "D" then Debug = 0
$ if p2 .nes. "D" then p2 = ""
$! Define debug suffixes for various CERN libraries
$ dbg = ""
$ if Debug .ne. 0 then dbg = "_DBG"
$ dbg1 = "_DEBUG"
$ dbg2 = ""
$ if p3 .eqs. ""
$ then
$   ask p3 -
    "Please enter the name of your LinkDefs file (CR=LMCDEFS.COM): "
$   if p3 .eqs. "" then p3 = "LMCDEFS.COM"
$ endif
$ LinkOpt  = "/nomap" ! "/map=pmc_exe:" ! for a link map
$ if Platform .eqs. "Alpha" then LinkOpt = "''LinkOpt'/nonative"
$! cern is defined system-wide at LNS as IRENE$DKA300:[APPLICATION.CERN.]
$ def/nolog cernlib     cern:[PRO.LIB]
$ def/nolog geantlib    cernlib:GEANT321'dbg2'.OLB
$ def/nolog grafdgks    cernlib:GRAFDGKS'dbg2'.OLB
$ def/nolog graflib     cernlib:GRAFLIB'dbg2'.OLB
$ def/nolog grafx11     cernlib:GRAFX11'dbg2'.OLB
$ def/nolog kernlib     cernlib:KERNLIB'dbg2'.OLB
$ def/nolog mathlib     cernlib:MATHLIB'dbg2'.OLB
$ def/nolog packlib     cernlib:PACKLIB'dbg2'.OLB
$ def/nolog pawlib      cernlib:PAWLIB'dbg2'.OLB
$!
$! phobos_root is defined system_wide at LNS as _ARNOLD$DKA200:[PHOBOS.]
$ def/nolog pmc_exe 'f$environment("DEFAULT")'
$ ExeName = "pmc_exe:MC" + p1 + p2 + ".EXE"
$ def/nolog pmc_cmd phobos_root:[SIM.'Vers'.CMD]
$ def/nolog pmc_lib phobos_root:[SIM.'Vers'.LIBVMS]
$ def/nolog pmclib  pmc_lib:PMC'dbg'.OLB
$! Server library area:
$ def/nolog srv_lib phobos_root:[MCSERV.PRO.LIB]
$!
$! Set defaults for global symbols that can be reset by LinkDefs:
$! Main program:
$ main == "pmclib/inc=(GEPHOB)"
$! Substitute the following to allow graphics metafile output:
$! main == "cern$library:GXINT321.OBJ,pmclib/inc=(UGINIT,UGLAST)"
$ SaveObj == 1  ! non-0 to save object modules
$! List of user version object modules, must end with a comma if non-blank:
$ UserObj == ""
$ UserObjDel == ""
$! Modules to be explicitly loaded from the Phobos library,
$! rather than the dummy versions in the Geant library:
$ Incs == "/inc=(GRUN,GUFLD,GUKINE,GUOUT,GUSTEP,GUTREV)"
$! User libraries to be searched after Incs are loaded, must end with a
$! comma if non-blank:
$ UserLib == " " ! srv_lib:SERVER/LIB/INCL=(BLKDAT_SERV,UGSERV),"
$! Get user override definitions.  Try LinkDefs as a filename...
$ LinkDefs := 'f$search(p3)'
$! or a logical name...
$ if LinkDefs .eqs. "" then LinkDefs := 'f$trnlnm("p3")'
$! or a filename without .COM...
$ if LinkDefs .eqs. ""
$ then
$   tmptmp := "''p3'.COM"
$   LinkDefs := 'f$search(tmptmp)'
$ endif
$ if LinkDefs .nes. ""
$ then
$   say "LINKMC: executing user definitions file ", LinkDefs, "."
$   @'LinkDefs'
$ else
$   ask reply -
    "User definitions file ''p3' not found.  Continue without it (CR=no|yes)? "
$   if reply .nes. "YES" then goto END
$ endif
$! Check that the library exists:
$ LibFile := 'f$search("pmclib")'
$ if LibFile .eqs. ""
$ then
$   say "LINKMC exiting: can't locate library ''f$trnlnm("pmclib")'."
$   goto END
$ endif
$! Check whether the existing executable needs to be re-made:
$ ExeFile := 'f$search(ExeName)'
$ if ExeFile .nes. ""
$ then
$   LibRevTime := 'f$file_attributes("pmclib","RDT")'
$   ExeRevTime := 'f$file_attributes(ExeName,"RDT")'
$   say "Library ", LibFile, ":"
$   say "Library was last revised on ", LibRevTime
$   say "Executable ", ExeFile, ":"
$   say "Executable was last revised on ", ExeRevTime
$   if LibRevTime .lts. ExeRevTime
$   then
$     if f$extract(0,1,p4) .eqs. "Y"
$     then
$       say "Executable ", ExeFile, " is up-to-date, but a new "
$       say "version will be created because the command line ", -
          "specified MakeExe = Y."
$     else
$       say "Executable ", ExeFile, " is up-to-date."
$       goto END
$     endif
$   else
$     if f$extract(0,1,p4) .eqs. "N"
$     then
$       say "Executable ", ExeFile, " is out-of-date, but a new ", -
          "version will"
$       say "not be created because the command line specified MakeExe = N."
$       goto END
$     else
$       say "Executable ", ExeFile, " is out-of-date."
$     endif
$   endif
$ else
$   if f$extract(0,1,p4) .eqs. "N"
$   then
$     say "Executable ", ExeName, " does not exist, but a new ", -
        "version will"
$     say "not be created because the command line specified MakeExe = N."
$     goto END
$   endif
$ endif
$! ****************************************************************
$! link
$! ****************************************************************
$ if Debug .ne. 0 then LINK := LINK/DEBUG
$ goptfile := pmc_exe:TEMPGRAF.OPT
$ open/write gopt 'goptfile'
$! Choose X-windows or GKS graphics support:
$ if p1 .nes. "G"
$ then
$   def/nolog glib grafx11
$   write gopt -
      "sys$share:DECW$XLIBSHR.EXE/share,DECW$DWTLIBSHR.EXE/SHARE"
$!   write gopt "cernlib:GETHOSTNAME"
$ else
$   def/nolog glib grafdgks
$   if Platform .nes. "Alpha"
$   then
$     write gopt "sys$library:GKSFORBND/lib" ! in sys$share before 4/1/95
$!    sys$library:VAXCRTL/lib is automatically linked in VMS 6.1 on
$   else
$     write gopt "sys$share:GKSFORBND_IEEE/lib"
$     write gopt "sys$library:GKS3D$RTLIB_IEEE/share"
$   endif
$ endif
$! As of CERN 94b, all versions need (but may not use) multinet refs:
$ write gopt "multinet:MULTINET_SOCKET_LIBRARY.EXE/share"
$ if Platform .nes. "Alpha" then write gopt "isd_max=250"
$ close gopt
$ define/nolog gopt 'goptfile'
$! Note the link order determines whether Geant, Phobos, or private
$! versions of modules are used.
$ say "LINKMC: linking ", ExeName, " (pmc_exe is ", f$trnlnm("pmc_exe"), ")"
$ LINK'LinkOpt'/exe='Exename' -
    'main', -
    'UserObj' -
    pmclib/lib'Incs', -
    'UserLib' -
    geantlib/lib/inc=(GINTRI), -
    pawlib/lib, -
    graflib/lib, -
    packlib/lib/inclu=RZKEYD, -
    glib/lib, -
    kernlib/lib, -
    mathlib/lib, -
    gopt/opt, -
    pmclib/inc=(UNSATREFS)
$ del 'goptfile';
$ if SaveObj .eq. 0 .and. UserObjDel .nes. ""
$ then
$   del "''UserObjDel'"
$ endif
$ write sys$output "LINKMC: created ", f$search(Exename), "."
$ END: exit
+DECK,LMCDEFS  ,T=DATA.
*CMZU:  2.02/01 29/04/97  09.52.48  by  Phobos (R. Verdier)
*-- Author :
$! LMCDEFS.COM: User definitions procedure file for Phobos MC Link
$! This file is a template for a command procedure to be
$! executed by LINKMC.COM that can redefine the default logicals
$! used in building the Monte Carlo executable and can also
$! compile user versions of Phobos modules.
$! To make your own version of this file, first copy it to a
$! subdirectory in your own area, then uncomment (by removing
$! "!") and modify any commands relevant to your application.
$! Note that a working version of LMCDEFS for most applications
$! may consist of only a few lines; for example
$!   $ def cernlib  pequod$dkb100:[cern.lns_old.cern1.cern0.cernlib]
$!   $ def pmc_exe  disk$scratch:[YourUserName]
$! to link in your scratch area an executable image using an old
$! version of the cern libraries.
$! 25-Apr-97  R.V.  Add symbol "main" to create postscript output version
$! 12-Mar-97;  R.V. Updated default pmc_exe -> [...EXEVMS]
$! 08-Nov-96:  R.V. Added SRV_LIB
$! 22-Sep-95:  R. Verdier  Corrected UserObj documentation
$! 18-Apr-94:  R. Verdier  Created from MMSDEFS for SIM.NEW
$!
$! Define PMC_EXE, the directory that will contain the created
$! executable image.  The default is your login directory.  For
$! example, change *** to disk$scratch:[YourUserName] and remove
$! the "!" from the following line:
$! def/nolog pmc_exe ***
$!
$! Define PMC_LIB, the location of the Phobos libraries:
$! Vers = "NEW"
$! def/nolog pmc_lib phobos_root:[SIM.'Vers'.LIBVMS]
$!
$! Define SRV_LIB, the Server library area:
$! def/nolog srv_lib phobos_root:[MCSERV.PRO.LIB]
$!
$! Main program:
$! main == "pmclib/inc=(GEPHOB)"
$! Substitute the following to allow graphics metafile output:
$! main == "cern$library:GXINT321.OBJ,pmclib/inc=(UGINIT,UGLAST)"
$!
$! ****************************************************************
$! To compile test versions of programs, change "FALSE" to
$! anything else, and change the filenames below to refer to
$! your modified program(s).
$! This version will recompile only missing object modules.
$! Therefore, to change one or more of your modified subroutines,
$! you must first delete their .OBJ module(s).
$! You must also list the module names in UserObj, to include them
$! in the link, and UserObjDel, if you want them deleted after use.
$! The example here compiles and links test versions of GUKINE
$! and PH_OUT.
$! Since GUFLD, GUKINE, GUOUT, GUSTEP, GUTREV, GXCONT,and GXFZ
$! are by default taken specifically from the Phobos library
$! rather than from the Geant library, GUKINE is also removed
$! from that list.
$! ****************************************************************
$!
$ Compile = "FALSE"
$ if Compile .eqs. "FALSE" then goto RET
$!
$! Define PMC_SRC, the area containing your modified source code:
$ def/nolog pmc_src ***
$!
$! Define PMC_OBJ, the work area to contain created object modules:
$ def/nolog pmc_obj pmc_exe
$!
$! Define the compile procedure appropriate for the value of the
$! Debug variable set by LINKMC:
$ debugopt = ""
$ if Debug .ne. 0 then debugopt = "/debug/noopt"
$!
$! Compile subroutines whose object modules are missing.
$! This could also be done by testing revision dates, as in
$! LINKMC itself.
$ say = "write sys$output"
$ if f$search("pmc_obj:GUKINE.OBJ") .eqs. ""
$ then
$   fort'debugopt'/nolist/obj=pmc_obj: pmc_src:GUKINE
$   say "LMCDEFS: compiled GUKINE with debug option = ", debugopt
$ endif
$ if f$search("pmc_obj:PH_OUT.OBJ") .eqs. ""
$ then
$   fort'debugopt'/nolist/obj=pmc_obj: pmc_src:PH_OUT
$   say "LMCDEFS: compiled PH_OUT with debug option = ", debugopt
$ endif
$!
$! Set symbol values for use by LINKMC.  NOTE THAT THE DOUBLE
$! EQUAL SIGN == IS NECESSARY TO PASS THE VALUE UP TO LINKMC.
$!
$! Set the object module save switch:
$ SaveObj == 1  ! non-0 to save object modules
$!
$! Define UserObj, the list of user version object modules.  If non-
$! blank, the list must end with a comma.  The list can extend over
$! several lines, in which case each line except the last must end
$! with a minus sign:
$! UserObj == " "
$! or
$! UserObj == "pmc_obj:AA,BB,"
$! or
$! UserObj == "pmc_obj:AA,BB," -
$!  + "WW,XX,YY," -
$!  + "ZZ,"
$ UserObj == "pmc_obj:GUKINE,PH_OUT,"
$!
$! Define UserObjDel, the list of user version object modules to be
$! deleted in case SaveObj is 0 (this can be continued on subsequent
$! lines as with UserObj):
$! UserObjDel == ""
$ UserObjDel == "pmc_obj:GUKINE;,PH_OUT;"
$!
$! Define modules to be loaded explicitly from the Phobos
$! library; here GUKINE has been removed from the list.
$! Incs == "/inc=(GRUN,GUFLD,GUKINE,GUOUT,GUSTEP,GUTREV,GXCONT,GXFZ)"
$ Incs == "/inc=(GRUN,GUFLD,GUOUT,GUSTEP,GUTREV,GXCONT,GXFZ)"
$!
$! Define UserLib, the library or libraries of user object modules.  If
$! non blank, the formatting rules are the same as for UserObj.
$! UserLib == " "
$!
$! Define the location of the main program: this must be changed only
$! if a modified version is to be used.
$! PMCMain == "pmclib/inc=GEPHOB"
$!
$! In case the user modules have been separately created and
$! stored in a private object module library, as will likely be
$! the case in the CMZ code management environment, UserObj
$! should specify the name of the library, say USERLIB, plus the
$! modules to be included, in the form
$! UserObj == "USERLIB/lib/incl=(GUKINE,PH_OUT)"
$! In this case USERLIB can also be updated by LMCDEFS, if the
$! compilation statements above are replaced by CMZ commands.
$! For example, if the user subroutines are in a private library
$! called USERLIB.CMZ, which has the standard Phobos CMZ directory
$! structure, the following statements in LMCDEFS will update the
$! private library USERLIB.OLB to include the latest versions of the
$! user subroutines:
$!   $ CMZ
$!   file userlib
$!   set * -f
$!   set userlib -l
$!   sel type
$!   seq GCDES SRC_INC
$!   mkall
$!   exit
$!
$ RET:
$! end of LMCDEFS
+DECK,NEWSIM  ,T=DATA.
*CMZ :  1.01/14 10/08/94  14.56.56  by  Phobos (R. Verdier)
*-- Author :
$! NEWSIM.COM: Make a NEW version of the Phobos SIM system
$! Use: @newsim [operation] [confirm] [NewBase] [user] [password]
$! Ex:  @newsim create y disk$scratch:[user.phobos] username
$! Operation = create | delete
$! Confirm   = y | noconfirm to confirm or not each operation
$! NewBase   = The parent directory for the created system
$! User      = Username for DECnet access to source files, if necessary
$! Password  = User password
$! NEWSIM prompts for missing arguments; password will not echo.
$!
$! The modified parts of the CERN libraries handled here are:
$! (1) GEANT common sequences extracted from GEANT315.CAR are stored
$!     in phobos_root:[CERN.PRO.INC]GCDES.CMZ, in GCDES//GCDES/blankdek.
$!     This is done to save time, but there is no automatic way to check
$!     whether CERN has changed them.
$! (2) Modified subroutines from GEANX315.CAR are stored in //PHOSIM/MODCERN:
$!     GXINT allows TRIG to control the event loop.
$!     GXFZ  eliminates a compiler warning on an OPEN statement.
$! (3) The unmodified GEANX315 package is compiled in debug and non-debug
$!     VMS object libraries in phobos_root:[CERN.PRO.LIB], with source
$!     required by the debugger, in [CERN.PRO.SRC], to allow linking
$!     with the modified subroutines.
$! (4) Eventually a version of GRUN that handles no-limit VMS batch
$!     queues will be put in phobos_root:[CERN.PRO.SRC] and [.LIB].
$! 08-Aug RV Change cz to [...cern.pro.cmz];
$!           Change clib $use to update xxxx / clib * as $use * seems
$!             to be required on alpha.
$!           Put original GEANX programs in //PHOSIM/GXINT/, original
$!             GEANT programs in //PHOSIM/GBASE/, all modified versions
$!             in //PHOSIM/MODCERN/
$!           Redefine oc, cg, and Access for local access.
$! 22-May RV remove CMZ author line, should be done by CMZLOGIN or parameter
$! 04-May RV generalize for Ralph1
$! 21-Mar RV generalize for VAX / Alpha / Test.  Blank access control
$!           doesn't work yet.
$! 03-Mar RV NEWCMZ -> CMZ for PPCAL
$! 21-Feb-94: R. Verdier
$!
$! Definitions for the created files:
$! NewBase = "dkb100:[PHOBOS]"                          ! PPCAL
$! NewBase = "dkb100:[**USER**.PHOBOS]"                 ! PPCAL
$! NewBase = "disk$csc:[PHOBOS]"                        ! PIERRE
$ NewBase = "disk$scratch:[**USER**.PHOBOS]"           ! TEST
$! NewBase = "niels$dua0:[**USER**.PHOBOS]"             ! TEST
$! NewBase = "_ralph1$dkb200:[SCRATCH.**USER**.PHOBOS]" ! RALPH1
$!
$! Definitions for the source files:
$ CMZCAR  = "CAR" ! "CMZ" ! Source for CMZ library
$ RemDisk = "disk$csc" ! "dkb100" ! Disk containing SIM source files
$ RemNode = "PIERRE" ! "PPCAL" ! Node for DECNet access to cluster disks
$!
$! Miscellaneous definitions:
$ CMZC = "CMZ"       ! Command that runs CMZ
$ Ssy = "SIM"        ! Subsystem
$ Vers = "NEW"       ! Version
$!
$! Access string defaults
$ access = "LOCAL" ! Default if sources are available without an access string
$ user = ""
$ psw = ""
$!
$! Derived source file logicals:
$! Source file logicals oz, oc, and cg are defined below after the
$! access string, "access", is specified.
$!
$! Derived created file logicals:
$! New_root is the equivalent of Phobos_root for the new system,
$! definition deferred until NewBase is specified
$! def/nolog New_root dkb100:[PHOBOS.]                         ! PPCAL
$! def/nolog New_root phobos_root:                             ! PIERRE
$ def/nolog New_root disk$scratch:[**USER**.PHOBOS.]          ! TEST
$! def/nolog New_root niels$dua0:[**USER**.PHOBOS.]            ! TEST
$! def/nolog New_Root ralph1$dkb200:[SCRATCH.**USER**.PHOBOS.] ! RALPH1
$!
$ say = "write sys$output"
$!
$ ASK:
$ if p1 .eqs. ""
$ then
$   say "Please enter the word
$   say " create  to create a complete new version of the ''SsyVer' system, or"
$   inquire/nopunc p1 -
        " delete  to delete all the files in the ''SsyVer' sytem: "
$ endif
$ if p3 .eqs. ""
$ then
$   say "Name of the new base directory:"
$   inquire/nopunc p3 "[''NewBase']: "
$ endif
$ if p3 .nes. "" then NewBase = p3
$! Create created file logicals
$ NewRootSym = NewBase-"]"+".]"
$ def/nolog New_root 'NewRootSym'
$ say "Files will be created in ", f$trnlnm("New_root")
$ def/nolog ci New_root:[CERN.PRO.INC]
$ def/nolog cl New_root:[CERN.PRO.LIB]
$ def/nolog cs New_root:[CERN.PRO.SRC]
$ def/nolog cz New_root:[CERN.PRO.CMZ]
$ SsyVer = "''Ssy'.''Vers'"
$ def/nolog nc New_root:['SsyVer'.CMD]
$ def/nolog ncar New_root:['SsyVer'.CMZ]
$ def/nolog nd New_root:['SsyVer'.DAT]
$ def/nolog ne New_root:['SsyVer'.EXE]
$ def/nolog ni New_root:['SsyVer'.INC]
$ def/nolog nl New_root:['SsyVer'.LIB]
$ def/nolog no New_root:['SsyVer'.DOC]
$ def/nolog nr New_root:['SsyVer'.CRA]
$ def/nolog ns New_root:['SsyVer'.SRC]
$ def/nolog nz New_root:['SsyVer'.CMZ]
$ if p2 .eqs. ""
$ then
$    say "Do you want to confirm operations for files or sections "
$   inquire/nopunc p2 "individually (y|n) [y]? "
$   if p2 .eqs. "N" then p2 = "NOCONFIRM"
$ endif
$ conf = p2 .nes. "NOCONFIRM"
$ if p1 .eqs. "CREATE" then goto CREATE
$ if p1 .eqs. "DELETE" then goto CLEAR
$ p1 = ""
$ goto ASK
$!
$ CREATE:
$ if .not. conf
$ then
$   inquire/nopunc rep -
      "Use PHOSIM.CAR or PHOSIM.CMZ as the source (car|cmz) [cmz]? "
$   if rep .eqs. "CAR" then CMZCAR = "CAR"
$   say "Operation will now proceed without requiring any confirmation."
$   rep = "Y"
$ endif
$ if conf
$ then
$   type sys$input:
The following sections create the VMS directory structure.  Directories
that already exist will not be deleted and recreated.
$   inquire/nopunc rep -
      "Do you want to create the new ''SsyVer' VMS directories (y|n) [n]? "
$ endif
$ if rep .nes. "Y" then goto MAKEPHOCERN
$ type sys$input:
 DO NOT USE CTRL/Y TO ABORT THIS PROCESS WHILE CREATING DIRECTORIES!
 IT MAY LEAVE THE DIRECTORY STRUCTURE INVALID AND REQUIRE SYSTEM
 PRIVILEGES TO CORRECT IT. INSTEAD, WAIT UNTIL IT COMPLETES, AND THEN
 USE THIS PROCEDURE'S "DELETE" OPTION TO DELETE THE DIRECTORIES.
$ if f$search("''NewBase'*.*") .eqs. "" then create/dir 'NewBase'
$ if f$search("New_root:[000000]''Ssy'.DIR") .eqs. "" then -
    create/dir New_root:['Ssy']
$ if f$search("New_root:[''Ssy']''Vers'.DIR") .eqs. "" then -
    create/dir New_root:['SsyVer']
$ if f$search("New_root:[''SsyVer']CMD.DIR") .eqs. "" then -
    create/dir nc
$ if f$search("New_root:[''SsyVer']CMZ.DIR") .eqs. "" then -
    create/dir nz
$ if f$search("New_root:[''SsyVer']CRA.DIR") .eqs. "" then -
    create/dir nr
$ if f$search("New_root:[''SsyVer']DAT.DIR") .eqs. "" then -
    create/dir nd
$ if f$search("New_root:[''SsyVer']DOC.DIR") .eqs. "" then -
    create/dir no
$ if f$search("New_root:[''SsyVer']EXE.DIR") .eqs. "" then -
    create/dir ne
$ if f$search("New_root:[''SsyVer']INC.DIR") .eqs. "" then -
    create/dir ni
$ if f$search("New_root:[''SsyVer']LIB.DIR") .eqs. "" then -
    create/dir nl
$ if f$search("New_root:[''SsyVer']SRC.DIR") .eqs. "" then -
    create/dir ns
$ say "VMS directories ",f$logical("New_root"),":[''SsyVer'...] created."
$!
$ MAKEPHOCERN:
$!
$ Csy = "CERN"
$ CVer = "PRO"
$ if conf then inquire/nopunc rep -
  "Do you want to create the new [''Csy'.''CVer' subdirectories (y|n) [n]? "
$ if rep .nes. "Y" then goto MAKECMZ
$ type sys$input:
 DO NOT USE CTRL/Y TO ABORT THIS PROCESS WHILE CREATING DIRECTORIES!
 IT MAY LEAVE THE DIRECTORY STRUCTURE INVALID AND REQUIRE SYSTEM
 PRIVILEGES TO CORRECT IT. INSTEAD, WAIT UNTIL IT COMPLETES, AND THEN
 USE THIS PROCEDURE'S "DELETE" OPTION TO DELETE THE DIRECTORIES.
$ if f$search("New_root:[000000]''Csy'.DIR") .eqs. "" then -
            create/dir New_root:['Csy']
$ if f$search("New_root:[''Csy']''CVer'.DIR") .eqs. "" then -
      create/dir New_root:['Csy'.'CVer']
$ if f$search("New_root:[''Csy'.''CVer']INC.DIR") .eqs. "" then -
      create/dir New_root:['Csy'.'CVer'.INC]
$ if f$search("New_root:[''Csy'.''CVer']LIB.DIR") .eqs. "" then -
      create/dir New_root:['Csy'.'CVer'.LIB]
$ if f$search("New_root:[''Csy'.''CVer']SRC.DIR") .eqs. "" then -
      create/dir New_root:['Csy'.'CVer'.SRC]
$ say "VMS directories ",f$trnlnm("New_root"),":[''Csy'.''CVer'...] created."
$!
$ MAKECMZ:
$!
$ if conf
$ then
$   type sys$input:
The following sections create, but do not fill, the CMZ libraries.
Libraries that already exist will not be deleted and recreated.
$   inquire/nopunc rep -
    "Do you want to create the new SIM CMZ library (y|n) [n]? "
$ endif
$ if rep .nes. "Y" then goto MAKEGC
$ say "Creating ''f$trnlnm("nz")'PHOSIM.CMZ and its subdirectories:"
$ 'cmzc'
* The Phobos SIM CMZ library:
  make nz:PHOSIM
  mdir COM
  mdir DOC
  mdir FOR
  mdir INC
  mdir KUMAC
  mdir MODCERN
  mdir TXT
  mdir $MOD_GEANX
  mdir $VERSION
  exit
$!
$ MAKEGC:
$!
$ if conf then inquire/nopunc rep -
  "Do you want to create the new GEANT GCDES CMZ library (y|n) [n]? "
$ if rep .nes. "Y" then goto MAKEGX
$ say "Creating ''f$trnlnm("ci")'GCDES.CMZ and subdirectory GCDES."
$ 'cmzc'
* The GEANT Common Descriptor CMZ library:
  make ci:GCDES
  mdir GCDES
  exit
$ MAKEGX: if conf then inquire/nopunc rep -
  "Do you want to create the new GEANT interactive CMZ library (y|n) [n]? "
$ if rep .nes. "Y" then goto COPY
$ say "Creating ''f$trnlnm("cz")'GEANX315.CMZ."
$ 'cmzc'
* The GEANX interactive GEANT CMZ library:
  make cz:GEANX315.CMZ
  exit
$!
$ COPY:
$ if conf
$ then
$   type sys$input:
The following sections fill the created CMZ libraries.
$   inquire/nopunc rep -
  "Do you want to fill the newly created CMZ libraries (y|n) [n]? "
$ endif
$ if rep .nes. "Y" then goto EXTRACT
$ user = p4
$ psw  = p5
$ cconsw = "/PROT=W:RE"
$ if conf then cconsw = "/PROT=W:RE/CONF"
$ if Access .nes. "LOCAL"
$ then
$   if user .eqs. ""
$   then
$     inquire/nopunc user "Please enter an access username if necessary: "
$   endif
$   if psw .eqs. ""
$   then
$     set term/noecho
$     inquire/nopunc psw "Please enter password; it will not echo: "
$     set term/echo
$   endif
$   if user .nes. "" then access = "''user' ''psw'"
$ endif
$! Define the remote source logicals oc: for SIM and cg: for CERN CAR files
$ if access .eqs. "LOCAL"
$ then
$   def/nolog oc New_root:[SIM.NEW.CMZ]
$   def/nolog cg cern:[PRO.SRC.CAR]
$ else
$   if access .nes. ""
$   then
$     def/nolog oc 'RemNode'"""''access'"""::'RemDisk':[PHOBOS.SIM.NEW.CMZ]
$     def/nolog cg 'RemNode'"""''access'"""::hans$dka100:[CERN.PRO.SRC.CAR]
$   else
$     def/nolog oc 'RemNode'::'RemDisk':[PHOBOS.SIM.NEW.CMZ]
$     def/nolog cg 'RemNode'::hans$dka100:[CERN.PRO.SRC.CAR]
$   endif
$ endif
$!
$ GETCAR:
$ if .not. conf .and. cmzcar .eqs. "CMZ" then goto GETCMZ
$ if conf then inquire/nopunc rep -
  "Do you want to copy the PHOSIM CAR file into the new directory (y|n) [n]? "
$ if rep .eqs. "Y"
$ then
$   say "Copying PHOSIM.CAR to ''f$trnlnm("ncar"):"
$   copy'cconsw' oc:PHOSIM.CAR ncar:
$   dir/da/siz ncar:*.CAR
$ endif
$ if conf then inquire/nopunc rep -
  "Do you want to fill the PHOSIM.CMZ library from PHOSIM CAR (y|n) [n]? "
$ if rep .nes. "Y" then goto GETCMZ
$ say "Filling library PHOSIM.CMZ from PHOSIM.CAR"
$ 'cmzc'
  file nz:PHOSIM
* Use the T option to preserve the date and time
  arc ncar:PHOSIM.CAR
  exit
$ goto GETGCZ
$!
$ GETCMZ:
$ if conf then inquire/nopunc rep -
  "Do you want to copy the contents of PHOSIM.CMZ from the source (y|n) [n]? "
$ if rep .nes. "Y" then goto GETGCZ
$ say "Copying CMZ libraries to ''f$trnlnm("nz")'.CMZ."
$ if access .nes. ""
$ then
$   def/nolog oz 'RemNode'"""''access'"""::'RemDisk':[PHOBOS.SIM.NEW.CMZ]
$ else
$   def/nolog oz 'RemNode'::'RemDisk':[PHOBOS.SIM.NEW.CMZ]
$ endif
$! Copy here could be a single CMZ statement; this allows selection.
$ 'cmzc'
  file nz:PHOSIM
  file oz:PHOSIM -r
  mess Master library oz:PHOSIM attached as PHOSIM_1.
  mess Copying command procedures to //PHOSIM/COM.
  copy //PHOSIM_1/COM/*  //PHOSIM/COM
  mess Copying documentation decks to //PHOSIM/DOC.
  copy //PHOSIM_1/DOC/*  //PHOSIM/DOC
  mess Copying source decks to //PHOSIM/FOR.
  copy //PHOSIM_1/FOR/*  //PHOSIM/FOR
  mess Copying include decks to //PHOSIM/INC.
  copy //PHOSIM_1/INC/*  //PHOSIM/INC
  mess Copying KUIP macros to //PHOSIM/KUMAC.
  copy //PHOSIM_1/KUMAC/*  //PHOSIM/KUMAC
  mess Copying unmodified GEANT interactive decks to //PHOSIM/GXINT.
  copy //PHOSIM_1/GXINT/*  //PHOSIM/GXINT
  mess Copying unmodified GEANT decks to //PHOSIM/GBASE.
  copy //PHOSIM_1/GBASE/*  //PHOSIM/GBASE
  mess Copying modified GEANT decks to //PHOSIM/MODCERN.
  copy //PHOSIM_1/MODCERN/*  //PHOSIM/MODCERN
  mess Copying text data decks to //PHOSIM/TXT.
  copy //PHOSIM_1/TXT/*  //PHOSIM/TXT
  mess Copying correction decks for GEANX to PHOSIM/$MOD_GEANX.
  copy //PHOSIM_1/$MOD_GEANX/*  //PHOSIM/$MOD_GEANX/
  mess Copying correction decks for GEANT to PHOSIM/$MOD_GEANT.
  copy //PHOSIM_1/$MOD_GEANT/*  //PHOSIM/$MOD_GEANT/
  exit
$!
$ GETGCZ: if conf then inquire/nopunc rep -
  "Do you want to copy the GEANT common sequences to GCDES.CMZ (y|n) [n]? "
$ if rep .nes. "Y" then goto EXTRACT
$ say "Copying GEANT common sequences to ''f$trnlnm("nz")'.CMZ."
$ 'cmzc'
  file ci:GCDES
  mess Copying GEANT common sequences to //GCDES/GCDES/blankdek.
  sel  type
  arc cg:GEANT315.CAR GCDES
* The GEANX315 interactive GEANT code is brought in below, in COMP4 ff,
* as when needed.  It could be brought in here, as part of lib creation.
  exit
$!
$ EXTRACT:
$ if conf
$ then
$   type sys$input:
The following sections extract ASCII files from the CMZ libraries,
overwriting any existing versions.
$   inquire/nopunc rep -
  "Do you want to make ASCII versions of the command procedures (y|n) [n]? "
$ endif
$ if rep .nes. "Y" then goto EXT2
$ say "Extracting command procedures into ''f$trnlnm("nc")'*.COM."
$ 'cmzc'
  file nz:PHOSIM -r
  cdir //PHOSIM/COM
  set  nc:*.COM -f text
  ctot *
$ EXT2: if conf then inquire/nopunc rep -
  "Do you want to make ASCII versions of the document decks (y|n) [n]? "
$ if rep .nes. "Y" then goto EXT3
$ say "Extracting document decks into ''f$trnlnm("no")'*.DOC."
$ 'cmzc'
  file nz:PHOSIM -r
  cdir //PHOSIM/DOC
  set  no:*.DOC -f text
  ctot *
$ EXT3:
$ if conf then inquire/nopunc rep -
    "Do you want to make ASCII versions of the INCLUDE files (y|n) [n]? "
$ if rep .nes. "Y" then goto EXT4
$ say "Extracting include files into ''f$trnlnm("ni")'*.INC."
$ 'cmzc'
  file nz:PHOSIM -r
  cdir //PHOSIM/INC
  set  ni:*.INC -f text
  ctot *
$ EXT4:
$ if conf then inquire/nopunc rep -
  "Do you want to make ASCII versions of the KUIP macros (y|n) [n]? "
$ if rep .nes. "Y" then goto EXT5
$ say "Extracting KUIP macros into ''f$trnlnm("nc")'*.KUMAC."
$ 'cmzc'
  file nz:PHOSIM -r
  cdir //PHOSIM/KUMAC
  set  nc:*.KUMAC -f text
  ctot *
$ EXT5:
$ if conf then inquire/nopunc rep -
  "Do you want to make ASCII versions of the text data files (y|n) [n]? "
$ if rep .nes. "Y" then goto EXT6
$ say "Extracting text data files into ''f$trnlnm("nd")'*.TXT."
$ 'cmzc'
  file nz:PHOSIM -r
  cdir //PHOSIM/TXT
  set  nd:*.TXT -f text
  ctot *
$ EXT6:
$!
$ COMPILE:
$ if conf
$ then
$   type sys$input:
The following sections compile the SIM source code, overwriting any
existing versions.
$   say -
    "Do you want to compile source decks into a non-debug version"
$   inquire/nopunc rep "object library (y|n) [n]? "
$ endif
$ if rep .nes. "Y" then goto COMP1
$ say "Creating compilable source decks in ''f$trnlnm("ns")'*.FOR"
$ say "Compiling source decks into non-debug version object library"
$ say "in ''f$trnlnm("ns")'PMC.OLB"
$ 'cmzc'
  file nz:PHOSIM -r
  file ci:GCDES -r
  sel type
  seq //PHOSIM/INC
  seq //GCDES/GCDES
  cdir //PHOSIM/FOR
  set  ns:*.FOR -F
  set  nl:PMC -L
  set  '$ for/obj=$COMPFILE.OBJ $COMPFILE' -C
  cdir //PHOSIM/FOR
  clib *
  exit
$!
$ COMP1:
$ if conf then say -
    "Do you want to compile source decks into a debug-version"
$ if conf then inquire/nopunc rep "object library (y|n) [n]? "
$ if rep .nes. "Y" then goto COMP2
$ say "Creating compilable source decks in ''f$trnlnm("ns")'*.FOR"
$ say "Compiling source decks into debug-version object library"
$ say "in ''f$trnlnm("nl")'PMC_DBG.OLB"
$ 'cmzc'
  file nz:PHOSIM -r
  file ci:GCDES -r
  sel type
  seq //PHOSIM/INC //GCDES/GCDES
  cdir //PHOSIM/FOR
  set  ns:*.FOR -F
  set  nl:PMC_DBG -L
  set  '$ for/debug/noopt/obj=$COMPFILE.OBJ $COMPFILE' -C
  cdir //PHOSIM/FOR
  clib *
  exit
$!
$ COMP2:
$ if conf then say -
    "Do you want to compile modified GEANT decks into a non-debug version"
$ if conf then inquire/nopunc rep "object library (y|n) [n]? "
$ if rep .nes. "Y" then goto COMP3
$ say "Creating compilable source decks in ''f$trnlnm("ns")'*.FOR"
$ say "Compiling modified interactive GEANT source decks into non-debug"
$ say "version object library ''f$trnlnm("nl")'PMC.OLB"
$ 'cmzc'
  file nz:PHOSIM
  file ci:GCDES -r
  sel  type
  seq  //GCDES/GCDES
  set  ns:*.FOR -F
  set  nl:PMC -L
  set  '$ for/obj=$COMPFILE.OBJ $COMPFILE' -C
* Save original GRUN in //PHOSIM/GBASE/, and modified in //PHOSIM/MODCERN/
* The patch containing GRUN is GBASE.
  cdir //PHOSIM
  arc cg:GEANT315.CAR GBASE/GRUN
  use_corr -p /$MOD_GEANT
  cdir GBASE
  update GRUN
  copy -B ../MODCERN/
  del GRUN
  mess Modified GRUN saved in //PHOSIM/MODCERN/.
* Save original GXCONT and GXFZ in //PHOSIM/GXINT/, modified in
* //PHOSIM/MODCERN/.  The patch containing them is GXINT.
  use .
  buf .
  cdir //PHOSIM
  arc cg:GEANX315.CAR GXINT/GXCONT GXINT/GXFZ
  use_corr -p /$MOD_GEANX
  cdir GXINT
  update GXCONT GXFZ
  copy -B ../MODCERN/
  del GXCONT GXFZ
  mess Modified interactive GEANT decks saved in //PHOSIM/MODCERN/.
  clib ../MODCERN/*
  mess Modified GEANT decks compiled.
  exit
$!
$ COMP3:
$ if conf then say -
    "Do you want to compile modified GEANX decks into a debug-version"
$ if conf then inquire/nopunc rep "object library (y|n) [n]? "
$ if rep .nes. "Y" then goto COMP4
$ say "Creating compilable source decks in ''f$trnlnm("ns")'*.FOR"
$ say "Compiling modified interactive GEANT source decks into debug-"
$ say "version object library ''f$trnlnm("nl")'PMC_DBG.OLB"
$! Note: this should not recopy the decks, only recompile as part
$! of the previous set-- change to query both and save flag.
$ 'cmzc'
  file nz:PHOSIM
  file ci:GCDES -r
  sel  type
  seq  //GCDES/GCDES
  set  ns:*.FOR -F
  set  nl:PMC_DBG -L
  set  '$ for/debug/noopt/obj=$COMPFILE.OBJ $COMPFILE' -C
  cdir //PHOSIM
  use_corr -p /$MOD_GEANT
  arc cg:GEANT315.CAR GBASE/GRUN
  cdir GBASE
  update $use
  copy -B ../MODCERN/
  del GRUN
  mess Modified GRUN saved in //PHOSIM/MODCERN/.
  use .
  buf .
  cdir //PHOSIM
  use_corr -p /$MOD_GEANX
  arc cg:GEANX315.CAR GXINT/GXCONT GXINT/GXFZ
  cdir GXINT
  update $use
  copy -B ../MODCERN/
  del GXCONT GXINT
  mess Modified interactive GEANT decks saved in //PHOSIM/MODCERN/.
  clib ../MODCERN/*
  mess Modified GEANT decks compiled.
  exit
$!
$ COMP4:
$ if conf then say -
    "Do you want to compile unmodified GEANX decks into a non-debug version"
$ if conf then inquire/nopunc rep "object library (y|n) [n]? "
$ if rep .nes. "Y" then goto COMP5
$ say "Creating compilable versions of unmodified interactive GEANT decks"
$ say "in ''f$trnlnm("ns")'GX*.FOR"
$ say "Compiling unmodified interactive GEANT source decks into non-debug"
$ say "version object library in ''f$trnlnm("cl")'GEANX315.OLB"
$ 'cmzc'
  file ci:GCDES -r
  file cz:GEANX315.CMZ
* Patch GXINT contains the Fortran code.
  arc cg:GEANX315.CAR GXINT
  seq  //GCDES/GCDES
  set  cs:*.FOR -F
  set  cl:GEANX315 -L
  set  '$ for/obj=$COMPFILE.OBJ $COMPFILE' -C
  clib *
  exit
$ say "The above Fortran informational messages about GXFZ may be ignored."
$!
$ COMP5:
$ if conf then say -
    "Do you want to compile unmodified GEANX decks into a debug-version"
$ if conf then inquire/nopunc rep "object library (y|n) [n]? "
$ if rep .nes. "Y" then goto COMP6
$ say "Creating compilable versions of unmodified interactive GEANT decks"
$ say "in ''f$trnlnm("ns")'GX*.FOR"
$ say "Compiling unmodified interactive GEANT source decks into debug-"
$ say "version object library in ''f$trnlnm("cl")'GEANX315_DBG.OLB"
$ 'cmzc'
  file ci:GCDES -r
  file cz:GEANX315.CMZ
* Patch GXINT contains the Fortran code.
  arc cg:GEANX315.CAR GXINT
  seq  //GCDES/GCDES
  set  cs:*.FOR -F
  set  cl:GEANX315_DBG -L
  set  '$ for/debug/noopt/obj=$COMPFILE.OBJ $COMPFILE' -C
  clib *
  exit
$ say "The above Fortran informational messages about GXFZ may be ignored."
$!
$ COMP6:
$ DEASSIGN: if f$logical("oc") .nes. "" then deassign oc
$ if f$logical("cg") .nes. "" then deassign cg
$ goto EXIT
$!
$ CLEAR:
$ if .not. conf then rep = "Y"
$ consw = ""
$! Delete ['SsyVer'.CMD] directory and its contents
$ if f$search("New_root:[''SsyVer']CMD.DIR") .nes. ""
$ then
$   if f$search("nc:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then say -
        "Do you want to delete all the files in ''f$trnlnm("nc")'"
$     if conf then inquire/nopunc rep -
        "without individual confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'      nc:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']CMD.DIR
$   del'consw'        New_root:['SsyVer']CMD.DIR;
$ endif
$!
$! Delete ['SsyVer'.CMZ] directory and its contents
$ if f$search("New_root:[''SsyVer']CMZ.DIR") .nes. ""
$ then
$   if f$search("nz:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("nz")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       nz:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']CMZ.DIR
$   del'consw'        New_root:['SsyVer']CMZ.DIR;
$ endif
$!
$! Delete ['SsyVer'.CRA] directory and its contents
$ if f$search("New_root:[''SsyVer']CRA.DIR") .nes. ""
$ then
$   if f$search("nr:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("nr")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     if conf then inquire/nopunc rep -
$     del'consw'       nr*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']CRA.DIR
$   del'consw'        New_root:['SsyVer']CRA.DIR;
$ endif
$!
$! Delete ['SsyVer'.DAT] directory and its contents
$ if f$search("New_root:[''SsyVer']DAT.DIR") .nes. ""
$ then
$   if f$search("nd:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("nd")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       nd:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']DAT.DIR
$   del'consw'        New_root:['SsyVer']DAT.DIR;
$ endif
$!
$! Delete ['SsyVer'.DOC] directory and its contents
$ if f$search("New_root:[''SsyVer']DOC.DIR") .nes. ""
$ then
$   if f$search("no:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("no")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       no:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']DOC.DIR
$   del'consw'        New_root:['SsyVer']DOC.DIR;
$ endif
$!
$! Delete ['SsyVer'.EXE] directory and its contents
$ if f$search("New_root:[''SsyVer']EXE.DIR") .nes. ""
$ then
$   if f$search("ne:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("ne")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       ne:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']EXE.DIR
$   del'consw'        New_root:['SsyVer']EXE.DIR;
$ endif
$!
$! Delete ['SsyVer'.INC] directory and its contents
$ if f$search("New_root:[''SsyVer']INC.DIR") .nes. ""
$ then
$   if f$search("ni:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("ni")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       ni:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']INC.DIR
$   del'consw'        New_root:['SsyVer']INC.DIR;
$ endif
$!
$! Delete ['SsyVer'.LIB] directory and its contents
$ if f$search("New_root:[''SsyVer']LIB.DIR") .nes. ""
$ then
$   if f$search("nl:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("nl")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       nl:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']LIB.DIR
$   del'consw'        New_root:['SsyVer']LIB.DIR;
$ endif
$!
$! Delete ['SsyVer'.SRC] directory and its contents
$ if f$search("New_root:[''SsyVer']SRC.DIR") .nes. ""
$ then
$   if f$search("ns:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("ns")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       ns:*.*;*
$   endif
$   set prot=(o:RWED) New_root:['SsyVer']SRC.DIR
$   del'consw'        New_root:['SsyVer']SRC.DIR;
$ endif
$!
$! Delete ['SsyVer'] directory
$ consw = ""
$ if conf then consw = "/conf"
$ if f$search("New_root:[''Ssy']NEW.DIR") .nes. ""
$ then
$   set prot=(o:RWED) New_root:['Ssy']NEW.DIR
$   del'consw'        New_root:['Ssy']NEW.DIR;
$ endif
$! Delete ['Ssy'] directory
$ if f$search("New_root:[000000]''Ssy'.DIR") .nes. ""
$ then
$   set prot=(o:RWED) New_root:[000000]'Ssy'.DIR
$   del'consw'        New_root:[000000]'Ssy'.DIR;
$ endif
$!
$! Delete [CERN.PRO.INC] directory and its contents
$ consw = ""
$ if conf then consw = "/conf"
$ if f$search("New_root:[CERN.PRO]INC.DIR") .nes. ""
$ then
$   if f$search("ci:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("ci")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       ci:*.*;*
$   endif
$   set prot=(o:RWED) New_root:[CERN.PRO]INC.DIR
$   del'consw'        New_root:[CERN.PRO]INC.DIR;
$ endif
$!
$! Delete [CERN.PRO.LIB] directory and its contents
$ consw = ""
$ if conf then consw = "/conf"
 if f$search("New_root:[CERN.PRO]LIB.DIR") .nes. ""
$ then
$   if f$search("cl:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("cl")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       cl:*.*;*
$   endif
$   set prot=(o:RWED) New_root:[CERN.PRO]LIB.DIR
$   del'consw'        New_root:[CERN.PRO]LIB.DIR;
$ endif
$!
$! Delete [CERN.PRO.SRC] directory and its contents
$ consw = ""
$ if conf then consw = "/conf"
$ if f$search("New_root:[CERN.PRO]SRC.DIR") .nes. ""
$ then
$   if f$search("cs:*.*") .nes. ""
$   then
$     consw = "/conf"
$     if conf then inquire/nopunc rep -
        "Delete files in ''f$trnlnm("cs")' without confirmation (y|n) [n]? "
$     if rep .eqs. "Y" then consw = ""
$     del'consw'       cs:*.*;*
$   endif
$   set prot=(o:RWED) New_root:[CERN.PRO]SRC.DIR
$   del'consw'        New_root:[CERN.PRO]SRC.DIR;
$ endif
$! Delete [CERN.PRO] directory
$ consw = ""
$ if conf then consw = "/conf"
$ if f$search("New_root:[CERN]PRO.DIR") .nes. ""
$ then
$   set prot=(o:RWED) New_root:[CERN]PRO.DIR
$   del'consw'        New_root:[CERN]PRO.DIR;
$ endif
$! Delete [CERN] directory
$ if f$search("New_root:[000000]CERN.DIR") .nes. ""
$ then
$   if conf then inquire/nopunc rep -
      "Do you want to delete the [CERN] directory? (y|n) [n]? "
$   if rep .eqs. "Y"
$   then
$     set prot=(o:RWED) New_root:[000000]CERN.DIR
$     del               New_root:[000000]CERN.DIR;
$   endif
$ endif
$ dir New_root:[000000]
$ say "If you wish to delete the root directory, you must now reset its"
$ say " protection and delete it by hand."
$ EXIT:
$ if f$search("lastcmz.kumac") .nes. "" then purge lastcmz.kumac
$ exit
+DECK,MCX  ,T=DATA.
*CMZU:  2.02/01 29/04/97  13.33.44  by  Phobos (R. Verdier)
*CMZU:  2.01/02 14/03/97  16.12.49  by  Phobos (R. Verdier)
*CMZU:  2.01/01 12/03/97  11.50.07  by  Phobos (R. Verdier)
*CMZU:  2.00/12 08/11/96  13.00.13  by  Phobos (R. Verdier)
*CMZU:  2.00/07 22/07/96  10.14.43  by  Phobos (R. Verdier)
*CMZU:  2.00/02 22/05/96  09.56.03  by  Phobos (R. Verdier)
*CMZ :  2.00/01 06/03/96  15.37.43  by  Phobos (R. Verdier)
*CMZU:  2.00/00 08/10/95  09.04.41  by  Phobos (R. Verdier)
*-- Author :
$! MCX.COM: Run definitions procedure file template for the Phobos MC
$ Exename == "pmc_exe:MCX.EXE" ! Version: X-windows, nodebug
$ Vers = "NEW"
$ def/nolog scratch disk$scratch:[USER]
$ def/nolog pmc_exe phobos_root:[SIM.'Vers'.EXEVMS]
$ def/nolog pmc_dat phobos_root:[SIM.'Vers'.DAT]
$ def/nolog rhdata scratch:CONTROL.TXT
$! End of run definitions procedure file
+DECK,CMZTOTXT  ,T=DATA.
*CMZU:  2.00/07 22/07/96  10.16.37  by  Phobos (R. Verdier)
*CMZU:  2.00/02 22/05/96  10.04.56  by  Phobos (R. Verdier)
*CMZU:  1.00/17 21/04/95  13.28.27  by  Phobos (R. Verdier)
*-- Author :
$! CMZTOTXT.COM: Extract files from the Phobos PHOSIM.CMZ lib into ASCII
$! Use: $ @cmztotxt <Type> <SourceFileNames> <OutputFileName>
$! Ex.: $ @cmztotxt for "gukine ugc?*" scratch:*.for
$! 14-Apr-95: CMZTOTXT created by modifying FORTOCAR (R. Verdier)
$!  7-Nov-93: FORTOCAR created by modifying FORTOMOR (R. Verdier)
$ if f$mode().eqs."BATCH" then set noverify
$! Define the SIM version subdirectory: NEW | PRO
$ Vers = "NEW"
$ SaveTempFiles = "NO"
$ say = "write sys$output"
$ FileType = p1
$ if p1 .eqs. ""
$ then
$   copy sys$input sys$output
 Use: $ @cmztotxt <Type> <SourceFileNames> <OutputFileName>
 Ex:  $ @cmztotxt for "gukine ugc?*" scratch:*.for
 where
 <Type> specifies the kind of file to extract:
     COM, DOC, FOR, GCDES, INC, KUMAC, or TXT.
   Except for gcdes, these must be PHOSIM.CMZ subdirectory names.
   For FOR, the SEQ's will be changed to equivalent INCLUDEs.
     The list of SEQ's is specific to the Phobos MC.
     The includes refer to the VMS logical "pmc_inc"
   For GCDES, the required syntax is  @cmztotxt gcdes * *.inc
     and the Geant Common Descriptors will be extracted from the
     library phobos_root:[CERN.PRO.INC]GCDES.CMZ, which CMZTOT assumes
     already exists.  If not, or if it is obsolete, it can be created
     by using the Phobos MAKEGCDES.COM procedure/.
 <SourceFileNames> is the name of a SIM file or set of files.
   A list of specifications should be enclosed in quotes, as "a b c"
   Wildcards are allowed, but CMZ required x?* instead of x*.
   Don't include extensions in the names.  Includes, type=inc,  must
     be prefixed with a dollar sign $, e.g., $ntuex   or  $n?*
 <OutputFileName> defaults to * which reproduces source names.
$   FileType = "FOR"
$   inquire/nopunct p1 "Please enter type [''FileType']: "
$   if p1 .nes. "" then FileType = p1
$ endif
$ SourceFileName = "*"
$ if p2 .eqs. "" then inquire/nopunct p2 -
    "Please enter source file name(s) [''SourceFileName']: "
$ if p2 .nes. "" then SourceFileName = p2
$ OutputFileName = "*.''FileType'"
$ if p3 .eqs. "" then inquire/nopunct p3 -
    "Please enter output file names [''OutputFileName']: "
$ if p3 .nes. "" then OutputFileName = p3
$ OutExt = "_SEQ"
$ if FileType .eqs. "FOR" then OutputFileName = OutputFileName + "''OutExt'"
$! The strange loop structure used here evolved because DCL
$! subroutine calls don't return information, and GOTOs can't see
$! return labels inside a conditional.
$!
$! Extract specified source files from the CMZ library
$ goto EXTRACT
$ EXTRACTRET:
$ Found = 0
$   OutFile = ""
$ LOOP:
$   Filename = ""
$!  Convert +SEQ... to INCLUDE in fortran files
$   if FileType .eqs. "FOR" then goto GETFILENAME
$   GETFILENAMERET:
$   if FileName .nes. ""
$   then
$      OutFile = FileName - "''OutExt'"
$!     say " Converting ", FileName, " to ", OutFile
$!     say " with SEQ -> INCLUDE:"
$!    Edit extracted files individually
$     goto SEQTOINC
$   endif
$   SEQTOINCRET:
$   if FileName .nes. "" then del 'FileName'
$   if Found .gt. 0 then goto LOOP
$ goto EXIT
$!
$ EXTRACT: ! SUBROUTINE to extract specified source files
$!          from the Phobos SIM CMZ library
$!
$   open/write ku CMZTOTXT_TMP.KUMAC
$   wk = "write ku"
$   if FileType .eqs. "GCDES"
$   then
$     wk "file phobos_root:[CERN.PRO.INC]GCDES.CMZ -r"
$     wk "sel TYPE"
$     wk "seq /''FileType'"
$     wk "seq -f ''OutputFileName'"
$     say "This will take some time..."
$   else
$     wk "file phobos_root:[SIM.''Vers'.CMZ]PHOSIM -r"
$     wk "cd ''FileType'"
$     wk "set ''OutputFileName' -f text"
$     wk "ctot ''SourceFileName'"
$   endif
$   wk "return"
$   close ku
$   cmz
    exe CMZTOTXT_TMP
    exit
$   if SaveTempFiles .eqs. "NO" then del CMZTOTXT_TMP.KUMAC;
$   del LASTCMZ.KUMAC;,CMZSAVE.DAT;
$ goto EXTRACTRET
$!
$ GETFILENAME: ! SUBROUTINE to return all filenames in a directory
$!               specification
$!
$   if Found .gt. 0 then goto NEXTFILE
$!  Create a directory file listing all the specified files:
$!  Add since=today for a little protection-- probably unnecessary
$   InFile = "''OutputFileName'/since=today"
$   DirFile = "GETCMZDIR_TMP.LIS"
$   dir/out='DirFile' 'InFile'
$   open/read din 'DirFile'
$   DirLine = ""
$   Found = 0
$   NEXTFILE:
$   if DirLine .eqs. ""
$   then
$     read din DirLine / end = FEOF
$     DirLine = F$EDIT(DirLine, "TRIM,COMPRESS")
$     goto NEXTFILE
$     FEOF: if Found .eq. 0 then -
        say "No files found that matched the specification ''p1'."
$     Found = -1
$     close din
$   if SaveTempFiles .eqs. "NO" then del 'DirFile';
$     goto GETFILEEND
$   endif
$   if F$EXTRACT(0,10,DirLine) .eqs. "Directory "
$   then
$     DirName = F$EXTRACT(10, F$LENGTH(DirLine), DirLine)
$!   say "Directory name is ", DirName
$     DirLine = ""
$     goto NEXTFILE
$   endif
$   if F$LOCATE(";", DirLine) .ge. F$LENGTH(DirLine)
$   then
$     DirLine = ""
$     goto NEXTFILE
$   endif
$!  Extract the next file name and remove it from the line
$   lbl = F$LOCATE(" ", DirLine)
$   FileName = "''DirName'" + F$EXTRACT(0, lbl, DirLine)
$!  say "FileName is ", FileName
$   DirLine = F$EXTRACT(lbl+1, F$LENGTH(DirLine), DirLine)
$   Found = Found + 1
$   ls = F$LOCATE(";", FileName)
$ GETFILEEND: goto GETFILENAMERET
$!
$ SEQTOINC: ! SUBROUTINE to convert +SEQ to INCLUDE for the Phobos
$!            SIM system
$!
$ edit/edt/out='OutFile' 'FileName'
  s/+SEQ,BANGC./      include 'pmc_inc:BANGC.INC'/w/not
  s/+SEQ, BANGC./      include 'pmc_inc:BANGC.INC'/w/not
  s/+SEQ, CARDS./      include 'pmc_inc:CARDS.INC'/w/not
  s/+SEQ, CYFLDC./      include 'pmc_inc:CYFLDC.INC'/w/not
  s/+SEQ,FLAG./      include 'pmc_inc:FLAG.INC'/w/not
  s/+SEQ, FLAG./      include 'pmc_inc:FLAG.INC'/w/not
  s/+SEQ,GCBANK./      include 'pmc_inc:GCBANK.INC'/w/not
  s/+SEQ, GCBANK/      include 'pmc_inc:GCBANK.INC'/w/not
  s/+SEQ, GCBANK./      include 'pmc_inc:GCBANK.INC'/w/not
  s/+SEQ, GCCUTS./      include 'pmc_inc:GCCUTS.INC'/w/not
  s/+SEQ, GCDRAW./      include 'pmc_inc:GCDRAW.INC'/w/not
  s/+SEQ,GCFLAG./      include 'pmc_inc:GCFLAG.INC'/w/not
  s/+SEQ, GCFLAG./      include 'pmc_inc:GCFLAG.INC'/w/not
  s/+SEQ, GCFLAX./      include 'pmc_inc:GCFLAX.INC'/w/not
  s/+SEQ,GCKINE./      include 'pmc_inc:GCKINE.INC'/w/not
  s/+SEQ, GCKINE./      include 'pmc_inc:GCKINE.INC'/w/not
  s/+SEQ,GCKING./      include 'pmc_inc:GCKING.INC'/w/not
  s/+SEQ, GCKING./      include 'pmc_inc:GCKING.INC'/w/not
  s/+SEQ,GCLIST./      include 'pmc_inc:GCLIST.INC'/w/not
  s/+SEQ, GCLIST./      include 'pmc_inc:GCLIST.INC'/w/not
  s/+SEQ, GCMATE./      include 'pmc_inc:GCMATE.INC'/w/not
  s/+SEQ,GCNUM./      include 'pmc_inc:GCNUM.INC'/w/not
  s/+SEQ, GCNUM./      include 'pmc_inc:GCNUM.INC'/w/not
  s/+SEQ, GCONST./      include 'pmc_inc:GCONST.INC'/w/not
  s/+SEQ, GCPHYS./      include 'pmc_inc:GCPHYS.INC'/w/not
  s/+SEQ,GCSETS./      include 'pmc_inc:GCSETS.INC'/w/not
  s/+SEQ, GCSETS./      include 'pmc_inc:GCSETS.INC'/w/not
  s/+SEQ,GCSTAK./      include 'pmc_inc:GCSTAK.INC'/w/not
  s/+SEQ, GCTMED./      include 'pmc_inc:GCTMED.INC'/w/not
  s/+SEQ,GCTRAK./      include 'pmc_inc:GCTRAK.INC'/w/not
  s/+SEQ, GCTRAK./      include 'pmc_inc:GCTRAK.INC'/w/not
  s/+SEQ, GCUNIT./      include 'pmc_inc:GCUNIT.INC'/w/not
  s/+SEQ,GCVOLU./      include 'pmc_inc:GCVOLU.INC'/w/not
  s/+SEQ, GCVOLU/      include 'pmc_inc:GCVOLU.INC'/w/not
  s/+SEQ, GCVOLU./      include 'pmc_inc:GCVOLU.INC'/w/not
  s/+SEQ, GCVOL2./      include 'pmc_inc:GCVOL2.INC'/w/not
  s/+SEQ,HST./      include 'pmc_inc:HST.INC'/w/not
  s/+SEQ, HST./      include 'pmc_inc:HST.INC'/w/not
  s/+SEQ,IO./      include 'pmc_inc:IO.INC'/w/not
  s/+SEQ, IO./      include 'pmc_inc:IO.INC'/w/not
  s/+SEQ,MUPEP./      include 'pmc_inc:MUPEP.INC'/w/not
  s/+SEQ, MUPEP./      include 'pmc_inc:MUPEP.INC'/w/not
  s/+SEQ, MUPEPD./      include 'pmc_inc:MUPEPD.INC'/w/not
  s/+SEQ,NTU./      include 'pmc_inc:NTU.INC'/w/not
  s/+SEQ, NTU./      include 'pmc_inc:NTU.INC'/w/not
  s/+SEQ, NTUD./      include 'pmc_inc:NTUD.INC'/w/not
  s/+SEQ, NTUEX./      include 'pmc_inc:NTUEX.INC'/w/not
  s/+SEQ, NTUEXD./      include 'pmc_inc:NTUEXD.INC'/w/not
  s/+SEQ, RHSIL./      include 'pmc_inc:RHSIL.INC'/w/not
  s/+SEQ,RHSIL./      include 'pmc_inc:RHSIL.INC'/w/not
  s/+SEQ, RHSILD./      include 'pmc_inc:RHSILD.INC'/w/not
  s/+SEQ, RHSYS./      include 'pmc_inc:RHSYS.INC'/w/not
  s/+SEQ,UHITS./      include 'pmc_inc:UHITS.INC'/w/not
  s/+SEQ, UHITS./      include 'pmc_inc:UHITS.INC'/w/not
  s/+SEQ,UJKBUF./      include 'pmc_inc:UJKBUF.INC'/w/not
  s/+SEQ, UJKBUF./      include 'pmc_inc:UJKBUF.INC'/w/not
  s/+SEQ, ZBBFLD./      include 'pmc_inc:ZBBFLD.INC'/w/not
  ! s/+SEQ, XX./      include 'pmc_inc:XX.CMN'/w/not ! template
  ! s/+SEQ, XX./	include 'pmc_inc:XX.CMN'/w/not  ! template with tab
  ! d'	integer function';d'	IMPLICIT NONE'
  ! s/	1/	/w/not
  exit
$ goto SEQTOINCRET ! ENDSUBROUTINE
$ EXIT: exit
+DECK,MCG  ,T=DATA.
*CMZU:  2.01/01 12/03/97  11.50.56  by  Phobos (R. Verdier)
*CMZU:  2.00/12 08/11/96  13.00.31  by  Phobos (R. Verdier)
*CMZU:  2.00/07 22/07/96  10.15.28  by  Phobos (R. Verdier)
*CMZU:  2.00/02 22/05/96  09.57.06  by  Phobos (R. Verdier)
*CMZ :  2.00/01 06/03/96  15.38.14  by  Phobos (R. Verdier)
*CMZU:  2.00/00 08/10/95  09.04.40  by  Phobos (R. Verdier)
*-- Author :
$! MCG.COM: Run definitions procedure file template for the Phobos MC
$ Exename == "pmc_exe:MCG.EXE" ! Version: GKS, nodebug
$ Vers = "NEW"
$ def/nolog scratch disk$scratch:[USER]
$ def/nolog pmc_exe phobos_root:[SIM.'Vers'.EXEVMS]
$ def/nolog pmc_dat phobos_root:[SIM.'Vers'.DAT]
$ def/nolog rhdata scratch:CONTROL.TXT
$! End of run definitions procedure file
+DECK,MCGD  ,T=DATA.
*CMZU:  2.02/01 29/04/97  13.34.22  by  Phobos (R. Verdier)
*CMZU:  2.01/02 14/03/97  16.13.47  by  Phobos (R. Verdier)
*CMZU:  2.01/01 12/03/97  11.51.24  by  Phobos (R. Verdier)
*CMZU:  2.00/12 08/11/96  13.01.06  by  Phobos (R. Verdier)
*CMZU:  2.00/07 22/07/96  10.15.50  by  Phobos (R. Verdier)
*CMZU:  2.00/02 22/05/96  09.57.18  by  Phobos (R. Verdier)
*CMZ :  2.00/01 06/03/96  15.38.31  by  Phobos (R. Verdier)
*CMZU:  2.00/00 08/10/95  09.04.41  by  Phobos (R. Verdier)
*-- Author :
$! MCGD.COM: Run definitions procedure file template for the Phobos MC
$ Exename == "pmc_exe:MCGD.EXE" ! Version: GKS, debug
$ Vers = "NEW"
$ def/nolog scratch disk$scratch:[USER]
$ def/nolog pmc_exe phobos_root:[SIM.'Vers'.EXEVMS]
$ def/nolog pmc_dat phobos_root:[SIM.'Vers'.DAT]
$ def/nolog rhdata scratch:CONTROL.TXT
$! End of run definitions procedure file
+DECK,MCXD  ,T=DATA.
*CMZU:  2.02/01 29/04/97  13.34.03  by  Phobos (R. Verdier)
*CMZU:  2.01/02 14/03/97  16.13.18  by  Phobos (R. Verdier)
*CMZU:  2.01/01 12/03/97  11.50.31  by  Phobos (R. Verdier)
*CMZU:  2.00/12 08/11/96  13.01.30  by  Phobos (R. Verdier)
*CMZU:  2.00/07 22/07/96  10.15.07  by  Phobos (R. Verdier)
*CMZU:  2.00/02 22/05/96  09.57.46  by  Phobos (R. Verdier)
*CMZ :  2.00/01 06/03/96  15.38.00  by  Phobos (R. Verdier)
*CMZU:  2.00/00 08/10/95  09.04.41  by  Phobos (R. Verdier)
*-- Author :
$! MCXD.COM: Run definitions procedure file template for the Phobos MC
$ Exename == "pmc_exe:MCXD.EXE" ! Version: X-windows, debug
$ Vers = "NEW"
$ def/nolog scratch disk$scratch:[USER]
$ def/nolog pmc_exe phobos_root:[SIM.'Vers'.EXEVMS]
$ def/nolog pmc_dat phobos_root:[SIM.'Vers'.DAT]
$ def/nolog rhdata scratch:CONTROL.TXT
$! End of run definitions procedure file
+DECK,MAKECDES  ,T=DATA.
*CMZ :  2.00/00 02/03/96  23.47.29  by  Phobos (R. Verdier)
*-- Author :
$! MAKECDES.COM: Create KUIP macro files to extract a CERN common
$!   descriptor CMZ library from a CERN CAR file
$! Use: @makecdes [cerncar] [patch] [targetlib] [kumac]
$! Ex:  @makecdes cern:[pro.src.car]geant321.car scratch:gcdes.cmz
$! Cerncar   = CERN CAR file
$! Patch     = Patch or range of patches range to extract from the CAR file
$! TargetLib = created CDES CMZ library
$! Kumac     = name of created .KUMAC file
$! MAKECDES prompts for missing arguments.
$! Note that there is no automatic way to check when CERN changes the
$! standard version.
$! 02-Mar-96 Generalized to handle ZEBRA as well as GEANT libraries (RV)
$! 30-Mar-95 Extracted from NEWSIM.COM for stand-alone use in updating
$!           Phobos libraries to new CERN releases.  Several CMZ commands
$!           in NEWSIM no longer work and replacements are undocumented.
$!           (R. Verdier)
$!
$! Default filenames
$ gcar = "cern:[PRO.SRC.CAR]GEANT.CAR"
$ gcd = "phobos_root:[CERN.PRO.INC]GCDES.CMZ"
$ gkumac = "MAKEGCDES.KUMAC"
$ gpatch = "GCDES"
$ zcar = "cern:[PRO.SRC.CAR]ZEBRA.CAR"
$ zcd = "phobos_root:[CERN.PRO.INC]ZCDES.CMZ"
$ zkumac = "MAKEZCDES.KUMAC"
$ zpatch = "QCDE"
$!
$ say = "write sys$output"
$!
$ NEXT:
$ if p1 .eqs. ""
$ then
$   say -
    "Source CAR file containing common sequences:"
$   inquire/nopunc p1 "( g=''gcar' | z=''zcar' | CR=exit )? "
$ endif
$ if p1 .eqs. "" then goto END
$ if p1 .eqs. "G"
$ then
$   car = gcar
$   kumac = gkumac
$   newcd = gcd
$   patch = gpatch
$ else
$   if p1 .eqs. "Z"
$   then
$     car = zcar
$     kumac = zkumac
$     newcd = zcd
$     patch = zpatch
$   endif
$ endif
$ if p2 .eqs. "" then inquire/nopunc p2 -
    "Patch name (or ""names"") to extract from car file [''patch']? "
$ if p2 .nes. "" then patch = p2
$ if p3 .eqs. "" then inquire/nopunc p3 -
    "Created CMZ common descriptor library [''newcd']? "
$ if p3 .nes. "" then newcd = p3
$ newcdfile = f$search("''newcd'")
$ if newcdfile .nes. "" then say -
    "Note that the existing ''newcdfile' will be overwritten."
$ if p4 .eqs. "" then inquire/nopunc p4 "Created KUMAC file [''kumac']? "
$ if p4 .nes. "" then kumac = p4
$!
$ wk = "write ku"
$ open/write ku 'kumac'
$ wk "* This kumac was created by MAKECDES.COM"
$ wk "mess Create library ''newcd' containing"
$ wk "mess subdirectory ''patch' of ''car'."
$ wk "release *"
$ wk "sel ."
$ wk "create ''newcd'"
$ wk "mdir ''patch'"
$ wk "sel type"
$ wk "arc ''car' ''patch'"
$ wk "return"
$ close ku
$ say "You may now run CMZ and execute ''f$search(kumac)'"
$ say "to create library ''newcd' containing"
$ say "subdirectory ''patch' of ''car'."
$ p1 = ""
$ p2 = ""
$ p3 = ""
$ p4 = ""
$ goto NEXT
$ END: exit
+DECK,MODCERN  ,T=DATA.
*CMZ :  2.00/00 02/03/96  23.47.30  by  Phobos (R. Verdier)
*-- Author :
$! MODCERN.COM: Create KUIP macros to modify GEANT subroutine GRUN
$! or GXCONT or ZEBRA subroutine ZABEND or ZEND for Phobos
$! Use: @modcern [subr] [carfile] [cmzlib] [kumac]
$! Ex:  @modcern grun cern:[pro.src.car]geant.car pz:phosim.cmz modgrun.kumac
$! In CMZ, the statement exe modgrun will create a modified version of
$! GRUN in //PHOSIM/MODCERN in pz:PHOSIM.CMZ
$! Operations and arguments (MODCERN prompts for missing arguments):
$! Create a modified GRUN from patch GBASE of GEANT:
$!   $ @modcern grun [carfile] [cmzlib] [kumac]
$! Create a modified GXCONT from patch GXINT of GEANX:
$!   $ @modcern gxcont [carfile] [cmzlib] [kumac]
$! Create a modified ZABEND:
$!   $ @modcern zabend [carfile] [cmzlib] [kumac]
$! Create a modified ZEND:
$!   $ @modcern zend [carfile] [cmzlib] [kumac]
$!
$! subr    = name of subroutine to be modified
$! carfile = name of unmodified CERN ASCII Readable text file
$! cmzlib  = Phobos CMZ library filename
$! kumac   = created KUMAC filename
$! 2-Mar-96 Created following UPCMZ (R. Verdier)
$!
$! Defaults:
$ BaseDir  = "phobos_root:[SIM.TEST."
$ geantcar = "cern:[PRO.SRC.CAR]GEANT.CAR"
$ geanxcar = "cern:[PRO.SRC.CAR]GEANX.CAR"
$ geanzcar = "cern:[PRO.SRC.CAR]ZEBRA.CAR"
$ cmzlib   = "''BaseDir'CMZ]PHOSIM.CMZ"
$!
$ say = "write sys$output"
$ NEXT:
$ if p1 .eqs. "" then inquire/nopunc p1 -
    "Subroutine to be modified ( grun | gxcont | zabend | zend | CR=exit )? "
$ if p1 .eqs. "" then goto END
$ subr = p1
$!
$ GRUN: if f$extract(0,2,"''subr'") .eqs. "GR"
$ then
$!
$   carfile = geantcar
$   patch = "GBASE"
$   deck = "GRUN"
$   kumac   = "MOD''deck'.KUMAC"
$   job1 = "Modify subroutine ''deck' from CMZ ASCII Readable file"
$   job2 = "and insert it in CMZ library"
$   say job1
$   say job2
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "CMZ ASCII Readable file [''carfile']? "
$   if p2 .nes. "" then carfile = p2
$   if f$search("''carfile'") .eqs. ""
$   then
      say "''carfile' not found; note that the operation may fail unless"
      say "you correct the problem before executing the KUMAC."
$   endif
$   job1 = job1 + " ''carfile'"
$   if p3 .eqs. "" then inquire/nopunc p3 "CMZ library [''cmzlib']? "
$   if p3 .nes. "" then cmzlib = p3
$   job2 = job2 + " ''cmzlib'"
$   if p4 .eqs. "" then inquire/nopunc p4 "Created KUMAC file [''kumac']? "
$   if p4 .nes. "" then kumac = p4
$   create MOD'deck'_TMP.CRA
+ADD,GBASE,GRUN,0.
*CMZ :          28/02/96  12.41.37  by  Phobos (R. Verdier)
* 07-Aug-94  R. Verdier  Disable timeout if 0 cpu limit (="infinite")
+ADD,GBASE,GRUN,17.
* Additions for disabling timeout:
      COMMON /SLATE/ SYSTIME
      integer SYSTIME, TIMEOUT /0/
* End of timeout additions
+ADD,GBASE,GRUN,27.
* Set flag to disable timeout:
c VMS batch queues with INFINITE CMZ limit return 0 in SYS$GETJPI.
c TIMEL sets this to 9999, which is insufficient.
c The awkward solution here is to bypass the timeout if the sum of
c time used and time left is 9999.
         if (abs(SYSTIME * 0.01 + TIMINT - 9999.0) .lt. 0.01)
     &     TIMEOUT = 1
* End of timeout additions
+REP,GBASE,GRUN,53-55.
c Bypass timeout if flag is set:
            if (TIMEOUT .eq. 0) then
               WRITE(CHMAIL,10000)TIMEND
               CALL GMAIL(0,2)
               IEORUN = 1
            else
c Write once-only timeout bypass notice
               if (TIMEOUT .gt. 0) then
                  TIMEOUT = -TIMEOUT
                  write (CHMAIL,10001) SYSTIME * 0.01
                  CALL GMAIL(0,1)
               endif
               go to 10
            endif
+ADD,GBASE,GRUN,60.
10001 format (' GRUN: Bypassing normal job timeout at', f8.1,
     & ' CPU seconds remaining.')
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by MODCERN.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "seq ."
$   wk "create MOD''deck'_TMP.CMZ"
$   wk "arc ''carfile' ''patch'/''deck'"
$   wk "use MOD''deck'_TMP.CRA"
$   wk "update $use"
$   wk "mess Please check the following differences to make sure that the CERN"
$   wk "mess version of ''patch'/''deck' has not been changed since 1-Mar-96"
$   wk "dif ''patch'/''deck'"
$   wk "copy = yes"
$   wk "mess Copy the modified ''deck' to /MODCERN in ''cmzlib'? "
$   wk "read copy"
$   wk "if $upper($substring([copy],1,1)) = Y then"
$   wk "  file ''cmzlib'"
$   wk "  copy //MOD''deck'_TMP/''patch'/''deck' MODCERN/"
$   wk "endif"
$   wk "mess You can delete MOD''deck'_TMP.CMZ, MOD''deck'_TMP.CRA, and "
$   wk "mess MOD''deck'.KUMAC after exiting CMZ."
$   wk "return"
$ endif
$!
$ GXCONT: if f$extract(0,2,"''subr'") .eqs. "GX"
$ then
$!
$   carfile = geanxcar
$   patch = "GXINT"
$   deck = "GXCONT"
$   kumac   = "MOD''deck'.KUMAC"
$   job1 = "Modify subroutine ''deck' from CMZ ASCII Readable file"
$   job2 = "and insert it in CMZ library"
$   say job1
$   say job2
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "CMZ ASCII Readable file [''carfile']? "
$   if p2 .nes. "" then carfile = p2
$   if f$search("''carfile'") .eqs. ""
$   then
      say "''carfile' not found; note that the operation may fail unless"
      say "you correct the problem before executing the KUMAC."
$   endif
$   job1 = job1 + " ''carfile'"
$   if p3 .eqs. "" then inquire/nopunc p3 "CMZ library [''cmzlib']? "
$   if p3 .nes. "" then cmzlib = p3
$   job2 = job2 + " ''cmzlib'"
$   if p4 .eqs. "" then inquire/nopunc p4 "Created KUMAC file [''kumac']? "
$   if p4 .nes. "" then kumac = p4
$   create MOD'deck'_TMP.CRA
+ADD,GXINT,GXCONT,0.
*CMZ :          28/02/96  12.41.37  by  Phobos (R. Verdier)
* 1-Mar-96 Change TRIG handling to allow external batch loop control (RV)
+REP,GXINT,GXCONT,73.
c Following changed from original NEVENT = N for Phobos, 1-Mar-96,
c to use the number of events set in UGINIT in batch mode:
           IF (.NOT.BATCH) NEVENT = N
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by MODCERN.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "seq ."
$   wk "create MOD''deck'_TMP.CMZ"
$   wk "arc ''carfile' ''patch'/''deck'"
$   wk "use MOD''deck'_TMP.CRA"
$   wk "update $use"
$   wk "mess Please check the following differences to make sure that the CERN"
$   wk "mess version of ''patch'/''deck' has not been changed since 1-Mar-96"
$   wk "dif ''patch'/''deck'"
$   wk "copy = yes"
$   wk "mess Copy the modified ''deck' to /MODCERN in ''cmzlib'? "
$   wk "read copy"
$   wk "if $upper($substring([copy],1,1)) = Y then"
$   wk "  file ''cmzlib'"
$   wk "  copy //MOD''deck'_TMP/''patch'/''deck' MODCERN/"
$   wk "endif"
$   wk "mess You can delete MOD''deck'_TMP.CMZ, MOD''deck'_TMP.CRA, and "
$   wk "mess MOD''deck'.KUMAC after exiting CMZ."
$   wk "return"
$ endif
$!
$ ZABEND: if f$extract(0,2,"''subr'") .eqs. "ZA"
$ then
$!
$   carfile = geanzcar
$   patch = "QEND"
$   deck = "ZABEND"
$   kumac   = "MOD''deck'.KUMAC"
$   job1 = "Modify subroutine ''deck' from CMZ ASCII Readable file"
$   job2 = "and insert it in CMZ library"
$   say job1
$   say job2
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "CMZ ASCII Readable file [''carfile']? "
$   if p2 .nes. "" then carfile = p2
$   if f$search("''carfile'") .eqs. ""
$   then
      say "''carfile' not found; note that the operation may fail unless"
      say "you correct the problem before executing the KUMAC."
$   endif
$   job1 = job1 + " ''carfile'"
$   if p3 .eqs. "" then inquire/nopunc p3 "CMZ library [''cmzlib']? "
$   if p3 .nes. "" then cmzlib = p3
$   job2 = job2 + " ''cmzlib'"
$   if p4 .eqs. "" then inquire/nopunc p4 "Created KUMAC file [''kumac']? "
$   if p4 .nes. "" then kumac = p4
$   create MOD'deck'_TMP.CRA
+ADD,QEND,ZABEND,0.
*CMZ :          28/02/96  12.41.37  by  Phobos (R. Verdier)
* 1-Mar-96  R.V. Modified from ZEBRA.CAR to avoid dump at abend
+ADD,QEND,ZABEND,8.
+CDE, GCBANK.
+REP,QEND,ZABEND,10.
c*    *CALL ZPOSTM ('TCWM.')
      call DZSTOR (' GCBANK', IXSTOR)
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by MODCERN.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "seq ."
$   wk "create MOD''deck'_TMP.CMZ"
$   wk "arc ''carfile' ''patch'/''deck'"
$   wk "use MOD''deck'_TMP.CRA"
$   wk "update $use"
$   wk "mess Please check the following differences to make sure that the CERN"
$   wk "mess version of ''patch'/''deck' has not been changed since 1-Mar-96"
$   wk "dif ''patch'/''deck'"
$   wk "copy = yes"
$   wk "mess Copy the modified ''deck' to /MODCERN in ''cmzlib'? "
$   wk "read copy"
$   wk "if $upper($substring([copy],1,1)) = Y then"
$   wk "  file ''cmzlib'"
$   wk "  copy //MOD''deck'_TMP/''patch'/''deck' MODCERN/"
$   wk "endif"
$   wk "mess You can delete MOD''deck'_TMP.CMZ, MOD''deck'_TMP.CRA, and "
$   wk "mess MOD''deck'.KUMAC after exiting CMZ."
$   wk "return"
$ endif
$!
$ ZEND: if f$extract(0,2,"''subr'") .eqs. "ZE"
$ then
$!
$   carfile = geanzcar
$   patch = "QEND"
$   deck = "ZEND"
$   kumac   = "MOD''deck'.KUMAC"
$   job1 = "Modify subroutine ''deck' from CMZ ASCII Readable file"
$   job2 = "and insert it in CMZ library"
$   say job1
$   say job2
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "CMZ ASCII Readable file [''carfile']? "
$   if p2 .nes. "" then carfile = p2
$   if f$search("''carfile'") .eqs. ""
$   then
      say "''carfile' not found; note that the operation may fail unless"
      say "you correct the problem before executing the KUMAC."
$   endif
$   job1 = job1 + " ''carfile'"
$   if p3 .eqs. "" then inquire/nopunc p3 "CMZ library [''cmzlib']? "
$   if p3 .nes. "" then cmzlib = p3
$   job2 = job2 + " ''cmzlib'"
$   if p4 .eqs. "" then inquire/nopunc p4 "Created KUMAC file [''kumac']? "
$   if p4 .nes. "" then kumac = p4
$   create MOD'deck'_TMP.CRA
+ADD,QEND,ZEND,0.
*CMZ :          28/02/96  12.41.37  by  Phobos (R. Verdier)
* 1-Mar-96  Changed from ZEBRA.CAR to force abend on NOERR > 0 (RV)
+REP,QEND,ZEND,15-17.
c* +SELF, QTOABEND.
      CALL ABEND
c* +SELF.
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by MODCERN.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "seq ."
$   wk "create MOD''deck'_TMP.CMZ"
$   wk "arc ''carfile' ''patch'/''deck'"
$   wk "use MOD''deck'_TMP.CRA"
$   wk "update $use"
$   wk "mess Please check the following differences to make sure that the CERN"
$   wk "mess version of ''patch'/''deck' has not been changed since 1-Mar-96"
$   wk "dif ''patch'/''deck'"
$   wk "copy = yes"
$   wk "mess Copy the modified ''deck' to /MODCERN in ''cmzlib'? "
$   wk "read copy"
$   wk "if $upper($substring([copy],1,1)) = Y then"
$   wk "  file ''cmzlib'"
$   wk "  copy //MOD''deck'_TMP/''patch'/''deck' MODCERN/"
$   wk "endif"
$   wk "mess You can delete MOD''deck'_TMP.CMZ, MOD''deck'_TMP.CRA, and "
$   wk "mess MOD''deck'.KUMAC after exiting CMZ."
$   wk "return"
$ endif
$!
$ say "Created f$search(""MOD''deck'_TMP.CRA"")."
$ close ku
$ say "You may now run CMZ and execute ''f$search(kumac)'"
$ say "to ''job1'"
$ say "''job2'."
$ p1 = ""
$ p2 = ""
$ p3 = ""
$ p4 = ""
$ goto NEXT
$ END: exit
+DECK,UPCMZ  ,T=DATA.
*CMZU:  2.01/02 14/03/97  16.16.15  by  Phobos (R. Verdier)
*CMZU:  2.00/13 19/11/96  12.10.31  by  Phobos (R. Verdier)
*-- Author :
$! UPCMZ.COM: Create KUIP macro files for maintaining a CMZ library
$! Use: @upcmz [op] [file1] [file2] ... [kumac]
$! Ex:  @upcmz update pz:phosim d010116ban.cra pz:gcdes *.for mods mods_dbg d16
$! In CMZ, the statement exe d16.kumac will update the library.
$! Operations and arguments (UPCMZ prompts for missing arguments):
$! Create a new .CMZ library from a .CAR file:
$!   $ @upcmz cartocmz [carfile] [cmzlib] [kumac]
$! Create a new ASCII .CAR file from a .CMZ library:
$!   $ @upcmz cmztocar [cmzlib] [carfile] [kumac]
$! Compile Fortran source decks into object library and extract source files:
$!   $ @upcmz compile [cmzlib] [gcdes] [zcdes] [srcs] [olb] [debolb] [kumac]
$! Compile server source decks into object library and extract source files:
$!   $ @upcmz cserver [scmzlib] [pcmzlib] [gcdes] [srcs] [olb] [debolb] [kumac]
$! Extract .COM, .DAT, .DOC, .INC, and/or .KUMAC data files from CMZ library:
$!   $ @upcmz extract [cmzlib] [coms] [dats] [docs] [incs] [kumacs] [kumac]
$! Update a CMZ library from a delta corrections (.CAR) file:
$!   $ @upcmz update [cmzlib] [corrs] [kumac]
$!
$! carfile = name of CMZ ASCII Readable text file equivalent to cmzlib
$! cmzlib  = Phobos CMZ library filename
$! coms    = extracted .COM filenames
$! corrs   = Delta corrections filename
$! dats    = extracted text data filenames
$! debolb  = created debug-version object library filename
$! docs    = extracted text document filenames
$! gcdes   = Geant common descriptor CMZ library filename
$! incs    = extracted INCLUDE filenames
$! kumac   = created KUMAC filename
$! kumacs  = extracted .KUMAC filenames
$! olb     = created production object library filename
$! pcmzlib = Phobos CMZ library filename
$! scmzlib = Server CMZ library filename
$! sel1..3 = default CMZ select options.  These should be selectable from
$!           the command line but compile already has 8 parameters.
$! sdebolb = created server debug-version object library filename
$! solb    = created server production object library filename
$! srcs    = created FORTRAN source filenames
$! zcdes   = ZEBRA common descriptor CMZ library filename
$! 05-Nov-96 Added CMZ selections and server compile (RV)
$! 02-Mar-96 Restructured and extended to perform a set of operations (RV)
$! 01-Apr-95 Extracted from NEWSIM.COM for updating Phobos libraries
$!          to new CERN releases (R. Verdier)
$!
$! Defaults:
$ Vers = "PRO"
$ BaseDir = "phobos_root:[SIM"
$ SBaseDir= "phobos_root:[MCSERV"
$ op      = ""
$ carfile = "''BaseDir'.''Vers'.CMZ]PHOSIM.CAR"
$ cmzlib  = "''BaseDir'.''Vers'.CMZ]PHOSIM.CMZ"
$ coms    = "''BaseDir'.''Vers'.CMD]*.COM"
$ corrs   = "''BaseDir'.''Vers'.CMZ]D010121RMC.CRA"
$ dats    = "''BaseDir'.''Vers'.DAT]*.TXT"
$ debolb  = "''BaseDir'.''Vers'.LIB]PMC_DBG.OLB"
$ docs    = "''BaseDir'.''Vers'.DOC]*.DOC"
$ gcdes   = "''BaseDir'.''Vers'.CMZ]GCDES.CMZ"
$ incs    = "''BaseDir'.''Vers'.INC]*.INC"
$ kumac   = "''op'.KUMAC"
$ kumacs  = "''BaseDir'.''Vers'.CMD]*.KUMAC"
$ olb     = "''BaseDir'.''Vers'.LIB]PMC.OLB"
$ pcmzlib = "''cmzlib'"
$ scmzlib = "''SBaseDir'.PRO.CMZ]SERVER.CMZ"
$ sel1    = "type"
$ sel2    = "vms"
$ sel3    = "noserv"
$ solb    = "''BaseDir'.''Vers'.LIB]SERVER.OLB"
$ sdebolb = "''BaseDir'.''Vers'.LIB]SERVER_DBG.OLB"
$ srcs    = "''BaseDir'.''Vers'.SRC]*.FOR"
$ zcdes   = "''BaseDir'.''Vers'.CMZ]ZCDES.CMZ"
$!
$ say = "write sys$output"
$ NEXT:
$ if p1 .eqs. ""
$ then
$   say "Operation (cartocmz | cmztocar | compile | extract | scomp |"
$   inquire/nopunc p1 "           update   | CR=exit )? "
$ endif
$ if p1 .eqs. "" then goto END
$ op = p1
$!
$ CARTOCMZ: if f$extract(0,2,"''op'") .eqs. "CA"
$ then
$!
$   job1 = "Create CMZ library"
$   job2 = "from CMZ ASCII Readable file"
$   kumac   = "CARTOCMZ.KUMAC"
$   say "''job1' ''job2'"
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "CMZ ASCII Readable file [''carfile']? "
$   if p2 .nes. "" then carfile = p2
$   if f$search("''carfile'") .eqs. ""
$   then
      say "''carfile' not found; note that the operation may fail unless"
      say "you correct the problem before executing the KUMAC."
$   endif
$   job2 = job2 + " ''carfile'"
$   if p3 .eqs. "" then inquire/nopunc p3 -
      "CMZ library to be created [''cmzlib']? "
$   if p3 .nes. "" then cmzlib = p3
$   job1 = job1 + " ''cmzlib'"
$   if p4 .eqs. "" then inquire/nopunc p4 -
      "Created KUMAC file [''kumac']? "
$   if p4 .nes. "" then kumac = p4
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by UPCMZ.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "create ''cmzlib'"
$   wk "arc ''carfile'"
$   wk "return"
$ endif
$!
$ CMZTOCAR: if f$extract(0,2,"''op'") .eqs. "CM"
$ then
$!
$   job1 = "Create CMZ ASCII Readable file"
$   job2 = "from CMZ library"
$   kumac   = "CMZTOCAR.KUMAC"
$   say "''job1' ''job2'"
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "CMZ library [''cmzlib']? "
$   if p2 .nes. "" then cmzlib = p2
$   job2 = job2 + " ''cmzlib'"
$   if f$search("''cmzlib'") .eqs. ""
$   then
      say "''cmzlib' not found; note that the operation may fail"
      say "unless you correct the problem before executing the KUMAC."
$   endif
$   if p3 .eqs. "" then inquire/nopunc p3 -
      "CMZ ASCII Readable file to be created [''carfile']? "
$   if p3 .nes. "" then carfile = p3
$   job1 = job1 + " ''carfile'"
$   if p4 .eqs. "" then inquire/nopunc p4 -
      "Created KUMAC file [''kumac']? "
$   if p4 .nes. "" then kumac = p4
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by UPCMZ.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "file ''cmzlib'"
$   wk "car ''carfile'"
$   wk "return"
$ endif
$!
$ COMPILE: if f$extract(0,2,"''op'") .eqs. "CO"
$ then
$!
$   job1 = "Compile FORTRAN source decks from CMZ library"
$   job2 = "and update object libraries"
$   kumac   = "COMPILE.KUMAC"
$   say "''job1' ''job2'"
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "Library [''cmzlib']? "
$   if p2 .nes. "" then cmzlib = p2
$   job1 = job1 + " ''cmzlib'"
$   if p3 .eqs. "" then inquire/nopunc p3 -
      "CMZ GEANT common descriptor library [''gcdes']? "
$   if p3 .nes. "" then gcdes = p3
$   if p4 .eqs. "" then inquire/nopunc p4 -
      "CMZ ZEBRA common descriptor library [''zcdes']? "
$   if p4 .nes. "" then zcdes = p4
$   if p5 .eqs. "" then inquire/nopunc p5 -
      "Created source files [''srcs']? "
$   if p5 .nes. "" then srcs = p5
$   if p6 .eqs. "" then inquire/nopunc p6 -
      "Created object library [''olb']? "
$   if p6 .nes. "" then olb = p6
$   if p7 .eqs. "" then inquire/nopunc p7 -
      "Created debug object library [''debolb']? "
$   if p7 .nes. "" then debolb = p7
$   job2 = job2 + " ''olb' and ''debolb'"
$   if p8 .eqs. "" then inquire/nopunc p8 -
      "Created KUMAC file [''kumac']? "
$   if p8 .nes. "" then kumac = p8
$   if f$search("''srcs'") .nes. "" then -
      say "Note that CMZ will overwrite existing ''srcs' files."
$   if f$search("''olb'") .nes. "" then -
      say "Note that CMZ will replace entries in ''olb' and ''debolb'."
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by UPCMZ.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "seq ."
$   wk "sel1 = ''sel1'"
$   wk "sel2 = ''sel2'"
$   wk "sel3 = ''sel3'"
$   wk "sel [sel1]"
$   wk "sel [sel2]"
$   wk "sel [sel3]"
$   wk "mess Note the CMZ compile options [sel1] [sel2] [sel3] are selected"
$! CMZ cannot delete sequences or use selected sequences, and cannot
$! be prevented from writing a warning about QTRACE*
$   wk "mess Please ignore the following CMZ QTRACEx override messages:"
$   wk "file ''zcdes' -r"
$   wk "seq /QCDE"
$   wk "file ''gcdes' -r"
$   wk "seq -O /GCDES"
$   wk "file ''cmzlib' -r"
$   if f$search("''srcs'") .nes. "" then -
      wk "mess Note that CMZ will overwrite existing ''srcs' files."
$   if f$search("''olb'") .nes. "" then -
      wk "mess Note that CMZ will replace entries in ''olb' and ''debolb'."
$   wk "seq /INC"
$   wk "set ''srcs' -F"
$   if olb .nes. "" .and. olb .nes. "n"
$   then
$     wk "set ''olb' -L"
$     wk "set  '$ for/obj=$COMPFILE.OBJ $COMPFILE' -C"
$!    The CMZ cmake command ignores corrections; here we do a full compile.
$     wk "clib FOR/*"
$     wk "clib MODCERN/*"
$   endif
$   if debolb .nes. "" .and. debolb .nes. "n"
$   then
$     wk "set ''debolb' -L"
$     wk "set  '$ for/debug/noopt/obj=$COMPFILE.OBJ $COMPFILE' -C"
$     wk "clib FOR/*"
$     wk "clib MODCERN/*"
$   endif
$   wk "return"
$ endif
$!
$ SCOMPILE: if f$extract(0,2,"''op'") .eqs. "SC"
$ then
$!
$   job1 = "Compile SERVER source decks from CMZ library"
$   job2 = "and update object libraries"
$   kumac   = "COMPSER.KUMAC"
$   say "''job1' ''job2'"
$   if p2 .eqs. "" then inquire/nopunc p2 -
      "Library [''scmzlib']? "
$   if p2 .nes. "" then scmzlib = p2
$   job1 = job1 + " ''scmzlib'"
$   if p3 .eqs. "" then inquire/nopunc p2 -
      "PMC Library (for includes) [''cmzlib']? "
$   if p3 .nes. "" then cmzlib = p3
$   if p4 .eqs. "" then inquire/nopunc p4 -
      "CMZ GEANT common descriptor library [''gcdes']? "
$   if p4 .nes. "" then gcdes = p4
$   if p5 .eqs. "" then inquire/nopunc p5 -
      "Created source files [''srcs']? "
$   if p5 .nes. "" then srcs = p5
$   if p6 .eqs. "" then inquire/nopunc p6 -
      "Created object library [''solb']? "
$   if p6 .nes. "" then solb = p6
$   if p7 .eqs. "" then inquire/nopunc p7 -
      "Created debug object library [''sdebolb']? "
$   if p7 .nes. "" then sdebolb = p7
$   job2 = job2 + " ''solb' and ''sdebolb'"
$   if p8 .eqs. "" then inquire/nopunc p8 -
      "Created KUMAC file [''kumac']? "
$   if p8 .nes. "" then kumac = p8
$   if f$search("''srcs'") .nes. "" then -
      say "Note that CMZ will overwrite existing ''srcs' files."
$   if f$search("''solb'") .nes. "" then -
      say "Note that CMZ will replace entries in ''solb' and ''sdebolb'."
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by UPCMZ.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "seq ."
$   wk "sel1 = ''sel1'"
$   wk "sel2 = ''sel2'"
$   wk "sel [sel1]"
$   wk "sel [sel2]"
$   wk "mess Note the CMZ compile options [sel1] [sel2] are selected"
$   wk "file ''gcdes' -r"
$   wk "seq -O /GCDES"
$   wk "file ''cmzlib' -r"
$   if f$search("''srcs'") .nes. "" then -
      wk "mess Note that CMZ will overwrite existing ''srcs' files."
$   if f$search("''solb'") .nes. "" then -
      wk "mess Note that CMZ will replace entries in ''solb' and ''sdebolb'."
$   wk "seq /INC"
$   wk "file ''scmzlib' -r"
$   wk "set ''srcs' -F"
$   if solb .nes. "" .and. solb .nes. "n"
$   then
$     wk "set ''solb' -L"
$     wk "set  '$ for/obj=$COMPFILE.OBJ $COMPFILE' -C"
$!    The CMZ cmake command ignores corrections; here we do a full compile.
$     wk "clib FOR/*"
$   endif
$   if sdebolb .nes. "" .and. sdebolb .nes. "n"
$   then
$     wk "set ''sdebolb' -L"
$     wk "set  '$ for/debug/noopt/obj=$COMPFILE.OBJ $COMPFILE' -C"
$     wk "clib FOR/*"
$   endif
$   wk "return"
$ endif
$!
$ EXTRACT: if f$extract(0,2,"''op'") .eqs. "EX"
$ then
$!
$   job1 = "Extract selected groups of text files"
$   job2 = "from CMZ library"
$   kumac   = "EXTRACT.KUMAC"
$   say "''job1' ''job2'"
$   if p2 .eqs. ""
$   then
$     say "CMZ library?"
$     inquire/nopunc p2 " [''cmzlib'] "
$   endif
$   if p2 .nes. "" then cmzlib = p2
$   job2 = job2 + " ''cmzlib'"
$   if p3 .eqs. ""
$   then
$     say "Created .COM command procedure files (n for none)?"
$     inquire/nopunc p3 " [''coms'] "
$   endif
$   if p3 .nes. "" then coms = p3
$   if p4 .eqs. ""
$   then
$     say "Created .TXT data files (n for none)?"
$     inquire/nopunc p4 " [''dats'] "
$   endif
$   if p4 .nes. "" then dats = p4
$   if p5 .eqs. ""
$   then
$     say "Created .DOC document files (n for none)?"
$     inquire/nopunc p5 " [''docs'] "
$   endif
$   if p5 .nes. "" then docs = p5
$   if p6 .eqs. ""
$   then
$     say "Created .INC include files (n for none)?"
$     inquire/nopunc p6 " [''incs'] "
$   endif
$   if p6 .nes. "" then incs = p6
$   if p7 .eqs. ""
$   then
$     say "Created .KUMAC macro files (n for none)?"
$     inquire/nopunc p7 " [''kumacs'] "
$   endif
$   if p7 .nes. "" then kumacs = p7
$   if p8 .eqs. ""
$   then
$     say "Name of .KUMAC file created to do extraction?"
$     inquire/nopunc p8 "  [''kumac'] "
$   endif
$   if p8 .nes. "" then kumac = p8
$!
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by UPCMZ.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "file ''cmzlib' -r"
$   if coms .nes. "N"
$   then
$     wk "set ''coms' -F text"
$     wk "ctot /COM"
$   endif
$   if dats .nes. "N"
$   then
$     wk "set ''dats' -F text"
$     wk "ctot /DAT"
$   endif
$   if docs .nes. "N"
$   then
$     wk "set ''docs' -F text"
$     wk "ctot /DOC"
$   endif
$   if incs .nes. "N"
$   then
$     wk "set ''incs' -F text"
$     wk "ctot /INC"
$   endif
$   if kumacs .nes. "N"
$   then
$     wk "set ''kumacs' -F text"
$     wk "ctot /KUMAC"
$   endif
$   wk "return"
$ endif
$!
$ UPDATE: if f$extract(0,2,"''op'") .eqs. "UP"
$ then
$!
$   job1 = "Update CMZ library"
$   job2 = "from delta corrections file"
$   kumac   = "UPDATE.KUMAC"
$   say "''job1' ''job2'"
$   if p2 .eqs. "" then inquire/nopunc p2 "Library [''cmzlib']? "
$   if p2 .nes. "" then cmzlib = p2
$   if p3 .eqs. "" then inquire/nopunc p3 "Corrections [''corrs']? "
$   if p3 .nes. "" then corrs = p3
$   if f$search("''corrs'") .eqs. ""
$   then
      say "''corrs' not found; note that the update may fail unless"
      say "you correct the problem before executing the KUMAC."
$   endif
$   job1 = job1 + " ''cmzlib'"
$   job2 = job2 + " ''corrs'"
$   if p4 .eqs. "" then inquire/nopunc p4 -
      "Created KUMAC file [''kumac']? "
$   if p4 .nes. "" then kumac = p4
$   wk = "write ku"
$   open/write ku 'kumac'
$   wk "* This kumac was created by UPCMZ.COM"
$   wk "mess ''job1'"
$   wk "mess ''job2'"
$   wk "release *"
$   wk "seq ."
$   wk "file ''cmzlib'"
$   wk "use ''corrs'"
$   wk "seq /INC"
$   wk "update $use"
$   wk "return"
$ endif
$!
$ close ku
$ say "You may now run CMZ and execute ''f$search(kumac)'"
$ say "to ''job1'"
$ say "''job2'."
$ p1 = ""
$ p2 = ""
$ p3 = ""
$ p4 = ""
$ p5 = ""
$ p6 = ""
$ p7 = ""
$ p8 = ""
$ goto NEXT
$ END: exit
+DECK,COMPILE  ,T=DATA.
*CMZU:  2.01/02 14/03/97  16.15.56  by  Phobos (R. Verdier)
*CMZU:  2.00/13 17/11/96  18.24.53  by  Phobos (R. Verdier)
*-- Author :
$! COMPILE.COM: Compile Phobos MC source programs into OpenVMS libraries
$! Use: compho [SrcFiles] [Mode] [Work] [ObjLib] [DebLib] [Report]
$! ex: @pc:compho 1 ? 1 1 0
$! SrcFiles is a set of source files with includes expanded, and may
$!     include defined logicals and wild cards.  Shorthand values:
$!   1 gives the standard PMC source files phobos_root:[SIM.NEW.SRC]*.FOR;
$!   2 gives the files from phobos_root:[MCSERV.PRO.SRC]*.FOR.
$! Mode selects actions to be performed on source files:
$!   m to compile files modified since library insertion [default];
$!   * to compile all;
$!   ? to confirm files individually.
$! Work is the scratch area.  Shorthand:
$!   0 uses the current default directory;
$!   1 uses the default disk$scratch:[USERNAME].
$! ObjLib is the object library; it will be created if necessary.  Shorthand:
$!   0 omits the compilation, for testing;
$!   1 puts the object files in library disk$scratch:[USERNAME]PMC.OLB;
$!   2 puts the object files in library disk$scratch:[USERNAME]SERVER.OLB;
$!   3 leaves the object files in the Work area.
$! DebLib is the debug-version object library, created if necessary. Shorthand:
$!   0 omits the debug compilation;
$!   1 puts the object files in library disk$scratch:[USERNAME]PMC_DBG.OLB;
$!   2 puts the object files in library disk$scratch:[USERNAME]SERVER_DBG.OLB;
$!   3 leaves the object files in the work area.
$! Report = 0 for none, 1 for filenames, 1 for more info [no prompt].
$! Ignore the informational message %SEARCH-I-NOMATCHES, no strings matched,
$! which is issued whenever a new module is entered into an object library.
$! 16-Nov-96: R. Verdier  Based on unix script compho, completely revised.
$! Work in progress:
$! (1) Eliminate Search info message for each module not in the library
$! (2) Search also gives an error when the filename is not = the module name
$! (3) Better shorthands?  Tokens like /n and /v have to be quoted, "/n",
$!     if used as arguments.
$!
$ Say = "write sys$output"
$! Define the default work area as disk$scratch:[USERNAME]
$ Work = f$trnlnm("sys$login")
$ Work = "disk$scratch:''f$extract(f$locate("[",Work),f$length(Work),Work)'"
$ Report = 1
$ if p6 .nes. "" then Report = p6
$!
$! Default standard source file set:
$ Vers = "PRO"
$ StdSrcs = "phobos_root:[SIM.''Vers'.SRC]*.FOR"
$! Default server source file set:
$ SrvSrcs = "phobos_root:[MCSERV.PRO.SRC]*.FOR"
$!
$! Default libraries for normal use:
$ StdLib = "''Work'PMC.OLB"
$ StdDebLib = "''Work'PMC_DBG.OLB"
$ SrvLib = "''Work'SERVER.OLB"
$ SrvDebLib = "''Work'SERV_DBG.OLB"
$! The following public versions should NOT be created in place; instead,
$! code managers should create and test scratch versions and then copy
$! them to the public areas, with proper ACL settings:
$! StdLib = "phobos_root:[SIM.''Vers'.LIB]PMC.OLB"
$! StdDebLib = "phobos_root:[SIM.''Vers'.LIB]PMC_DBG.OLB"
$! SrvLib = "phobos_root:[MCSERV.PRO.LIB]SERVER.OLB"
$! SrvDebLib = "phobos_root:[MCSERV.PRO.LIB]SERV_DBG.OLB"
$!
$ StdLibList = "''Work'tmplib.lis"
$ DebLibList = "''Work'tmpdeblib.lis"
$!
$! Delete old copies of the source and library directories, in case a
$! previous job crashed
$ if f$search("''Work'srcdir.lis") .nes. "" then del 'Work'srcdir.lis;*
$ if f$search(StdLibList) .nes. "" then del 'StdLibList';*
$ if f$search(DebLibList) .nes. "" then del 'DebLibList';*
$!
$! Ask for source files set if unspecified:
$ SrcFiles = StdSrcs
$ if p1 .eqs. ""
$ then
$   Say "Enter source filename set (wildcards & logicals OK), or"
$   Say "  1 = ''StdSrcs',"
$   Say "  2 = ''SrvSrcs',"
$   inquire/nopunct p1 "  CR = ''SrcFiles': "
$ endif
$ if p1 .nes. "" then SrcFiles = p1
$ if SrcFiles .eqs. "1" then SrcFiles = StdSrcs
$ if SrcFiles .eqs. "2" then SrcFiles = SrvSrcs
$! Separate the directory and filename parts, allowing logicals:
$ ldir = f$locate("]",SrcFiles) + 1
$ lco = f$locate(":",SrcFiles) + 1
$ len = f$length(SrcFiles)
$ if ldir .gt. len then ldir = lco
$ if ldir .gt. len then ldir = 0
$ SrcDir = f$extract(0,ldir,SrcFiles)
$ if Report .ge. 2 then Say "SrcFiles=", SrcFiles, ", SrcDir=", SrcDir
$!
$! Ask for action mode if unspecified:
$ Mode == "m"
$ if p2 .eqs. "" then inquire/nopunct p2 -
    "Compile all | selected | modified files (a | s | m) [''Mode']? "
$ if p2 .nes. "" then Mode == f$edit(p2,"LOWERCASE")
$!
$! Ask for work area if unspecified:
$ if p3 .eqs. ""
$ then
$   Say "Enter work directory name for created files, or"
$   Say "  0 = current default directory,"
$   inquire/nopunct p3 "  1 or CR = ''Work': "
$ endif
$ if (p3 .nes. "") .and. (p3 .nes. "1") then Work = p3
$ if Work .eqs. "0" then Work = ""
$!
$! Ask for object library if unspecified:
$ ObjLib = StdLib
$ if SrcFiles .eqs. SrvSrcs then ObjLib = SrvLib
$ if p4 .eqs. ""
$ then
$   Say "Enter object library name, or"
$   Say "  0 not to compile,"
$   Say "  1 = ''StdLib',"
$   Say "  2 = ''SrvLib',"
$   Say "  3 to leave object modules in the work directory,"
$   inquire/nopunct p4 "  CR = ''ObjLib': "
$ endif
$ if p4 .nes. "" then ObjLib = p4
$ if ObjLib .eqs. "1" then ObjLib = StdLib
$ if ObjLib .eqs. "2" then ObjLib = SrvLib
$!
$! Ask for debug object library if unspecified:
$ DebObjLib = StdDebLib
$ if ObjLib .eqs. SrvLib then DebObjLib = SrvDebLib
$ if p5 .eqs. ""
$ then
$   Say "Enter debug object library name, or"
$   Say "  0 not to compile,"
$   Say "  1 = ''StdDebLib',"
$   Say "  2 = ''SrvDebLib',"
$   Say "  3 to leave object modules in the work directory,"
$   inquire/nopunct p5 "  CR = ''DebObjLib': "
$ endif
$ if p5 .nes. "" then DebObjLib = p5
$ if DebObjLib .eqs. "1" then DebObjLib = StdDebLib
$ if DebObjLib .eqs. "2" then DebObjLib = SrvDebLib
$!
$ if Report .ge. 1
$ then
$   Say "You can safely ignore any informational messages of the form"
$   Say """%SEARCH-I-NOMATCHES, no strings matched"""
$ endif
$!
$! Get a directory of requested source files with revision dates
$ dir/date=mod/out='Work'srcdir.lis 'SrcFiles'
$!
$! Loop over lines in the listing getting file names and dates
$ open/read srcdir 'Work'srcdir.lis
$ Act == "y"
$ on CONTROL_Y then goto END
$ READDIR: read/end_of_file=ENDRD srcdir line
$! Does the line contain a file name, identified by ";"?
$   lsc = f$locate(";", line)
$   len = f$length(line)
$   if lsc .lt. len
$   then
$! Yes, extract the file name and the revision date, without .01 sec
$ if Report .ge. 2 then Say "Line= ", line, "*"
$     FileName = f$extract(0,lsc,line)
$     FullName = SrcDir + FileName
$     BaseName := 'f$extract(0,f$locate(".",FileName),FileName)'
$!     RevTime = f$edit(f$extract(lsc+3,len-lsc-6,line),"TRIM")
$     RevTime = f$extract(len-23,20,line)
$     if f$extract(0,1,RevTime) .eqs. " " then -
        RevTime = "0" + f$extract(1,19,RevTime)
$     if Report .ge. 2 then Say FullName, " modified ", RevTime, "."
$!
$! Compile the file
$     Cflags = ""
$     Label = ""
$     LibList = StdLibList
$     if ObjLib .nes. "0" then call CC "''ObjLib'" "''work'"
$     if DebObjLib .nes. "0"
$     then
$! Compile the source with debug
$       Cflags = "/debug/noopt"
$       Label = "debug version of "
$       LibList = DebLibList
$       call CC "''DebObjLib'" "''work'"
$     endif
$   endif
$   if Act .nes. "q" then goto READDIR
$ ENDRD: close srcdir
$ END:
$ if f$search("''Work'srcdir.lis") .nes. "" then del 'Work'srcdir.lis;*
$ if f$search(StdLibList) .nes. "" then del 'StdLibList';*
$ if f$search(DebLibList) .nes. "" then del 'DebLibList';*
$ exit
$!
$ CC: SUBROUTINE
$! Subroutine for conditional compilation into library
$! Use: cc olb work
$ on CONTROL_Y then Act == "q"
$ if (Act .eqs. "q") then exit
$!
$! Create library, if non-existent
$! Note: this should be deferred until we know we need it ***
$ if (f$search(p1) .eqs. "") .and. (p1 .nes. "3")
$ then
$   lib/create 'p1'
$   Say "Created ''p1'."
$ endif
$! Get module insertion date
$ InsDate = ""
$ if (p1 .nes. "0") .and. (p1 .nes. "3")
$ then
$   if f$search("LibList") .eqs. "" then lib/list='LibList'/full 'p1'
$   sear/out='Work'tmpmod.lis 'LibList' 'BaseName'
$   open/read insline 'Work'tmpmod.lis
$   read/end_of_file=EOF insline InsDate
$   EOF: close insline
$   del 'Work'tmpmod.lis;
$ endif
$ InsTime = f$extract(f$location("Inserted ", InsDate) + 9, 20, InsDate)
$ if Report .ge. 2 then Say BaseName, -
    " inserted into library on ..", InsTime, "."
$ if (Mode .eqs. "s")
$ then
$   inquire/nopunct reply -
      "Compile ''Label'''BaseName' ( y | n | a(ll) | q(uit)) [''Act']? "
$   if reply .nes. "" then -
      Act == f$edit(f$extract(0,1,reply),"LOWERCASE")
$   if (Act .eqs. "a") then Mode == "a"
$   if (Act .eqs. "q") then Mode == "0"
$ endif
$ if (Mode .eqs. "a") -
    .or. ((Mode .eqs. "m") .and. (RevTime .gts. InsTime)) -
    .or. ((Mode .eqs. "s") .and. (Act .eqs. "y"))
$ then
$   ObjName = "''p2'" + BaseName + ".OBJ"
$   if Report .ge. 1 then Say "Compiling ", Label, BaseName
$   for'Cflags' /obj='ObjName' 'FullName'
$   if p1 .nes. "3"
$   then
$     lib /replace 'p1' 'ObjName'
$     del 'ObjName';
$   endif
$ endif
$ exit
$ ENDSUBROUTINE
+PATCH,DOC.
*CMZ :  1.01/00 18/04/94  16.12.57  by  Phobos (R. Verdier)
+DECK,PMCUSER  ,T=DATA.
*CMZ :  2.00/01 04/03/96  11.12.05  by  Phobos (R. Verdier)
*-- Author :
PMCUSER.DOC

    Users' Guide to the Monte Carlo for the Phobos Detector at RHIC

          Robin Verdier, MIT/LNS [verdier@mitlns.mit.edu]

                     V1.3:  15 March, 1995
                     V1.2:  09 December, 1992


         1.  Overview
         2.  Demo Program
         3.  Phobos Directory Structure and Access at MIT
         4.  Input Geometry and Control File Specifications
	 5.  Input Geometry and Control Variables
         6.  Output File Specifications
         7.  Running Interactively
         8.  Running in Batch Mode
         9.  Differences Between Workstations
        10.  Present Status, Known Problems, and Future Plans
        11.  Linking a Standard Executable Module
        12.  Linking a Private Executable Module Without MMS
        13.  Copying the MC System to Another Site
	14.  History
	15.  Changes To the Standard Version for the Background Studies


	Appendix A: A Geometry Definition File
	Appendix B: A Control File
	Appendix C: The User Geometry and Control (UGC) System
	Appendix D: Directory of Phobos MC Files


         1.  Overview

The Phobos Monte Carlo (PMC) is a developing package whose goal is to
make full simulations of track production and propagation through a
detailed model of the Phobos Detector at RHIC.

Two event sources are provided at present:

o  A diagnostic generator, BANG, creates up to 100 particles of a
   specified type with a specified momentum distribution.

o  A track reader, in subroutine GUKINE, reads lists of particle
   types, production vertices, and momenta from an ASCII format
   text file.  This provides the interface for reading events
   created by the HIJet, Fritiof, Venus, and other ion-ion
   generators.

Secondary particles, produced through interactions of particles
with the detector materials (beam pipe, vertex detectors, silicon
planes, and cryostat) are also propagated and tracked.

A design goal of the PMC package is that all important geometrical
information about the detector is specified in ASCII text files.  In
addition to providing easy access to the geometry information, this
allows us to study alternative detector configurations without
recompiling and relinking the (ultimately very large) program.  We
also intend that the ease of comparing specification files will help
to ensure that studies carried out at different sites yield identical
results.

Outputs include

o  DST output, written to a PAW ntuple file, which can be used for
   subsequent interactive analysis and graphical output.

o  Histogram output, which can be produced during the run through
   HBOOK calls and saved via ZEBRA.

o  Zebra bank structures, saved on disk for use as input to separate
   reconstruction programs such as those for track finding and fitting.



         2.  Demo Program

To see the Phobos Monte Carlo in action, type

        $ def pc phobos_root:[sim.new.cmd]
        $ @pc:demo

and follow the instructions.  CAUTION: please do not set your default
directory to the pc subdirectory; this will leave any output that you
create, such as ntuples, in the phobos area.  If unexpected results
occur, it may be because you have existing logical name definitions,
such as cards$def, that conflict with those used in the demo; see the
last paragraph of Section 7 for more information.


         3.  Phobos Directory Structure and Access at MIT

The Phobos files are contained in a tree structure whose root is
PHOBOS_ROOT, defined system-wide at MIT/LNS by the DCL command

   $ def PHOBOS_ROOT _ARNOLD$DKA200:[PHOBOS.]

The Monte Carlo files are contained in the [SIM] part of the
structure:

 Phobos_root:[SIM]  [DOC]           Documentation
                    [PRO]  [CMD]    Command procedures, usually *.COM
                           [CMZ]    CERN code management files, usually *.CMZ
                           [CRA]    CMZ correction cradles
                           [DAT]    Data files, usually *.TXT or *.DAT
                           [DOC]    Documentation files, usually *.DOC
                           [EXE]    Executable files, usually *.EXE
                           [INC]    Include files, usually *.CMN
                           [LIB]    Libraries, usually *.OLB
                           [SRC]    Source code, usually *.FOR
                    [NEW]  [Same substructure as for PRO]

For example, the geometry initialization subroutine in use now is
phobos_root:[sim.new.src]UGINIT.FOR.   Most references to Phobos
files are expected to be made by logical definitions; for example, to
run the X-windows version of the executable module, MCXD.EXE, you
could execute

  $ def pmc_exe phobos_root:[sim.new.exe]
  $ run pmc_exe:mcxd

As we shall see in the following sections, this would not be
sufficient unless other names defining the geometry, magnetic field
map, control options, and output files were also defined; normally
they would also use logical definitions.  Procedures for defining the
standard logical names exist and are described in Sections 5 and 6.

We have exercised some care in drawing the distinction between the
DEVELOPMENT, NEW, and PRO versions:

  DEVELOPMENT is the designation of new code that is being written in
  the developer's private user area.  Using it is a matter of private
  agreement between developer and user.

  NEW is the area into which DEVELOPMENT code migrates once it has
  reached the 'no known bugs' stage.  It provides a holding area
  where new or corrected code can be further tested by general users.
  Proposed code changes in the NEW area normally require a written
  notice in the appropriate VAXNotes conference (underway but not yet
  operating) at least one week prior to the change.

  PRO is the current standard working version of the system, into
  which NEW code migrates at irregular intervals.
  Proposed code movement into the PRO area normally requires a
  written notice in the appropriate VAXNotes conference at least two
  weeks prior to the change.

The implementation details of this version structure may change
slightly when we enable the VMS code management system, CMS.

Access to Phobos files is via an Access Control List.  All files have
read and execute privileges for all users; write and delete privileges
are limited to those on the Access Control List.  As this access
carries a significant burden, namely the implied responsibility to
ensure that files are not inadvertently deleted, and because deleting
public code should be necessary only at well-publicized times, the
Access Control List is intended normally to include only persons
charged with maintaining (as opposed to creating) code, including
subsystem code managers.



         4.  Input Geometry and Control File Specifications


All files are opened by Fortran statements specifying logical names.
If the logical name has not been assigned to a file, VMS will attempt
to open a file named <LogicalName>.dat.  Input files are opened in
subroutine UFILES, using parameterized logical unit numbers.  This
system will be replaced by a file server, which will assign units
dynamically and also concentrate the code most likely to change in
porting to other operating systems.

Five input files are required, each specifying a different kind of
information about the detector.  The geometry and control files can
be combined for convenience into a single file; they may in future
be further split.  The purpose of splitting them is to reduce the
possiblity of changing the detector description by mistake.

Sample standard input files are provided in the area pmc_dat,
defined as phobos_root:[sim.new.data], and are also reproduced in
the Appendices to this document.


a. The input geometry file, identified by logical name GCDEFS, is a
   text file that completely specifies the geometry, materials, and
   tracking media of Phobos, including the number, locations,
   orientations and granularities of the silicon detector planes.
   This file is in a free format specifed by the User Geometry and
   Control (UGC) system, which was developed for the Phobos analysis.
   Appendix D describes the UGC format in some detail, and Appendix A
   lists examples of inputs.  The steering routine for UGC is UGCIN.
   A few examples will serve to illustrate the concept: the line

   GS MATE 4 SILICON$   28.09   14.0    2.33    9.36    45.5    0  0

   defines silicon as the fourth material known to Geant, with A, Z,
   density, ... listed.  The form is exactly that of the arguments to
   the Geant subroutine GSMATE, and in fact the UGC system simply
   parses the input line and passes the specified values to GSMATE.
   Similarly,
!          # Name       Mat         Bmax MSmx DEmx   Eps  StMn
   GS TMED 2 BERYLLIUM$ 2  0 0  0.  5.0  0.5  0.20  .001  0.40  0  0

   defines beryllium as tracking medium # 2;

   GS ROTM  32  90.  0.    0.  0.  90.  270.

   defines rotation matrix # 32, and

   GS VOLU  SPEC  TRD1  3  0.  1.7  19.05  3.5  16.15   ! Virtual vol

   defines a trapezoid named SPEC, with the listed half-dimensions.
   The volume shape parameters can be given as a vector; see the
   Appendix for details.

   GS SET NBITSH  24  24  24  24  24  16  16  16  16   ! Bit packing

   defines detector plane packing properties, and

   ! Silicon plane parameters (dimensions may be redundant at present):
   !         Pl#  Hdim  Hpix  Vdim  Vpix    Thk  D2IP  Hoff  Angl
   GS SET SLP  1   7.5  0.15   3.4  0.15  0.030  11.0    0.    0.

   defines the resolution properties of detector plane #1, for use by
   the Phobos hit encoding routines.

   The important point is that the Phobos geometry is defined
   entirely by the contents of this file, so that new structures can
   be added with no additional coding.

b. The input control file, identified by logical name RHDATA, is a
   text file specifying the variables that control the operation of
   the program.  This file is read and parsed by subroutine UGINIT,
   and then re-read by Geant subroutine GFFGO, from logical unit
   USRIN, parameterized as 4 in the include file IO.CMN.  This file
   may contain both standard CERN free-format input, for example

   XOFF  20.0

   and silicon plane definitions, such as

   SILD  1  7.5 0.15 3.4 0.15 0.03
   SILP  1  11.0 0.0 0.0

   pmc_dat:GEOCON.TXT is an example of an input control file; a
   copy appears in Appendix B.

c. Another control text file, identified by logical name CARDS$DEF,
   allows the user to specify control variables interactively.  This
   file is equivalent to the input control file in b.  It is read by
   subroutine GFFGO, which is called by subroutine EUCARD, on logical
   unit 15 (this number is hard-coded in EUCARD).  Because this
   facility is rarely used, it is called only if CARDS$DEF is
   connected to an actual file.

   Note that the geometrical and detector plane information can be
   supplied through either GCDEFS or RHDATA, to preserve backwards
   compatibility.  Each facility can read all cards, but will process
   only the information prefixed by keywords that it recognizes.
   Thus, a single file that contains both geometry and control input
   can be used; both RHDATA and GCDEFS should be defined as the
   combined file.  This approach has the advantage that all the input
   data is listed in the log file at the end of the job.

d. The optional input event data file, identified by logical name
   GENEVS, is a text file listing tracks to be propagated.  This file
   is read by subroutine GUKINE only if the  control file specifies
   GEN=5. An file containing 100 200 Gev/u HIJET Gold-Gold events is
   irene$dka300:[TEMPORARY.WOZNIAK]AUAU_HIJET_CENTR_100.ADAT


e. The magnetic field map, identified by logical name FLDMAP, is a
   text file specifying values of the field at an arbitrary set of
   spatial points.  It is read in, sorted once, and used to provide
   values at requested points, by subroutine GUFLD.  GUFLD contains
   a description of the data format and restrictions.
   The standard Phobos field map is in pmc_dat:FLDMAP.DAT.  In the
   future, GUFLD may be replaced by GCFLD, which will read the
   field map in from a Zebra bank.


	 5.  Input Geometry and Control Variables

There is considerable self-documentation in both the geometry and
control files, as the examples in the Appendices show.  Some
additional notes follow:

GEANT units are cm, kGauss (not Tesla), GeV/c, and degrees.
In the master coordinate system, Z is along the beam directed so that
the projection of the coil center is at positive Z; Y is vertical,
directed up; and X completes a right-handed coordinate system.

The Sxxx variables control output; in particular,
  SHDO = 1/0 turns histograms in the log output on/off
  SNTU = 1/0 turns ntuple output on/off

Three "geometry type" variables are specifiable:
  FANG, the angle of the spectrometer arm in degrees
  BFLD, the maximum magnetic field in kG
  XOFF, the lateral distance of the coil center from the beamline.
These variables are used by GUFLD and by the diagnostic generator,
BANG.

Three additional variables control special forms of the field:
  TMAG is 0/1. for normal / perfect dipole field [default 0].
  RFLD is the radius of the dipole field, if TMAG = 1 [20.]
  ZOFF is the distance of the center of the dipole field from the i.p.
       along the beam direction.

The field map has the following format: each line contains ASCII
values for Bx, By, Bz, x, y, z.

GEN specifies the type of event generated; see BANG and UGINIT for
details, but note that GEN is BANG's MODE + 1:

GEN=1 is for a fixed track;
    2 is for tracks distributed in momentum and position, pointing
      approximately at the detector planes regardless of production z;
    3 is like 2 but not adjusted for production z, so many tracks will
      miss the detector;
    4 gives a flat rapidity distribution and exponentially falling pt
      distribution.
    5 reads events from a text file; it is used to study events
      produced by the Fritiof generator.

Owing to a mix-up in calling sequences, GEN = 4 actually gives
sequentially stepping momenta and/or angles; this will be incorporated
into type 1, and GEN=4 reinstated as described here.  Variables PLOW,
PHIGH, and RMAG are parameters of the distributions for GEN = 2 and 3.


         6.  Output File Specifications


Three output files are optionally created, in addition to the log
file if running in batch mode:

6.1. The Zebra-format histogram file, identified by logical name RHHST.
     This file is created if the input control variable SHBO is nonzero.

6.2. An ASCII text output file, identified by logical name RHASC.  This
     file contains requested diagnostic output, such as hits and ntuple
     contents.  It also contains printed histograms if control variable
     SHDO is non-0.  The diagnostic output is controlled by variables
     DEBUG and SWITCH; see GEOCON.DAT for examples.


6.3. An RZ-format ntuple output file, identified by logical name RHNTU.
     This file is created if control variable ANAL = 1.0.

Any of the output files can also be suppressed by defining it as
the  null  device, nl:; for example, $ def RHASC nl:

Eventually, the full set of Zebra banks describing the entire event
will optionally be written out for use as input to the pattern
recognition programs.



         7.  Running Interactively


A standard procedure called RMC.COM, in phobos_root:[sim.new.cmd],
can be used to run the Phobos Monte Carlo interactively.

Running the MC is unavoidably complicated by the large number of files
and operating conditions that must be specified:

o  X-windows graphics support, VAXstations or X-emulators,
   vs. GKS, for Tektronix emulators or workstation windows, including
     VersaTerm PRO on the Macintosh and DECterm on a VAXstation;

o  Source debuging (with debug code linked in although not necessarily
     used)
   vs. non-debug code (potentially faster);

o  Test version code
   vs. production version.

In addition, we must specify the geometry and control data files, the
field map, the track input file (if used), and the names of output
files discussed in the previous section.

The system we have implemented for dealing with these choices
specifies them by using logical names.  The standard procedures expect
these names to be defined in a user definition command procedure, or
UDCP, whose filename is specified as an argument to the procedures.

If you are a minimalist, and are using all standard data files, your
UDCP need only specify "scratch", the area which is to receive
any created files.

$! RMCDEFS.COM: Phobos definitions
$ def/nolog scratch disk$scratch:[username]

In order to use this file, you must first copy it to your top-level
directory, then change "username" to your username.  Please DO NOT
edit the sample file in place; if you do so, and if you are on the
access control list, your version will become the public version.

If you use your own data files, then you will want to include lines
giving your versions precedence over the standard versions:

$ def/nolog pmc_dat disk$csc:[username], -   ! Use private data files
    phobos_root:[sim.new.data]

The search list defining pmc_dat looks first in the user area and then
in the standard area for any data files whose names are prefixed by
pmc_dat. The same technique can be used for logical definitions of
files of any type.

Finally, if you are developing code, you may want an extended set of
definitions such as the following:

$! PHODEFS.COM: Phobos definitions
$! Standard definitions:
$ def/nolog pmc_cmd  phobos_root:[sim.new.cmd]
$ def/nolog pmc_exe  phobos_root:[sim.new.exe]
$ def/nolog pmc_inc  phobos_root:[sim.new.inc]
$ def/nolog pmc_lib  phobos_root:[sim.new.lib]
$ def/nolog pmc_mms  phobos_root:[sim.new.cmd]
$ def/nolog pmc_src  phobos_root:[sim.new.src]
$ def/nolog pmc_dat  phobos_root:[sim.new.data]
$!
$! Definitions used only for linking new executables:
$ def/nolog cern_root  _$1$DUA8:[phobos.cern.new.]
$ def/nolog cernlib    cern_root:[lib]
$!
$! User definitions and overrides:
$ def/nolog scratch disk$scratch:[username]  ! Required to execute RMC
$ def/nolog pmc_src disk$csc:[username], -   ! Use modified source files
    phobos_root:[sim.new.src]
$ def/nolog pmc_inc disk$csc:[username], -   ! Use modified include files
    phobos_root:[sim.new.inc]
$ def/nolog pmc_dat disk$csc:[username], -   ! Use modified data files
    phobos_root:[sim.new.data]
$! End of phodefs file

RMC requires only that scratch be defined.  It also uses pmc_exe and
pmc_dat but defaults them, if they are not defined in PHODEFS, to
phobos_root:[sim.new.exe] and phobos_root:[sim.new.data].

If you do source debugging, pmc_src and pmc_inc should also be defined
to allow the debugger to locate the source code.  RMC defaults them
to phobos_root:[sim.new.src] and phobos_root:[sim.new.inc].

Assume that the standard link procedures described in section 9 have
already been carried out, so that executable modules with the standard
names exist.  These have the form

  MC{X|G}{D| }.EXE

where the first  alternative is X for the X-windows version (for
running on a  VAXstation) or G for running the GKS version (Tektronix
emulators, or VersaTerm PRO on a Macintosh).  The second alternative
is D for a version with debugging code linked in (it does not have to
be activated in running), or blank for a non-debug version.  The non-
debug versions do not exist at present, so the alternatives are MCGD
and MCXD.

For simplicity, first define a mnemonic for the command
area, for example,

          $ def pc phobos_root:[sim.new.cmd]

You can now run the MC by typing

          $ @pc:rmc <exename> <outname> <debug>

example:  $ @pc:rmc  mcxd  Fritiof3

where

  <exename>, in area pmc_exe, is the name of the executable program;
    the example will run pmc_exe:MCXD.EXE

  <outname> is the name given to the created files, in area scratch:;
    in the example, these would be SCRATCH:FRITIOF3.ASC, FRITIOF3.NTU,
    FRITIOF3.LOG, ...

  <debug>, if non-blank, causes the MC to run under control of the VMS
    debugger.

The RMC procedure also defines the symbol RMC as a string that will
rexecute RMC with the previously specified parameters.  Thus once
you have executed it interactively, you can run again simply by
entering the command

        $ 'rmc

Note the apostrophe, which is necessary to cause DCL to translate the
string.  We have used this technique rather than defining rmc as a
foreign command because the foreign command processor always runs the
image in debug mode.

If the program was linked with the debugger and the run command does
not contain the qualifier /nodebug, the debugger will receive control
and will prompt for input with DBG>.  Online help for debugging is
available here by typing h or help.  To start the run, type  go  or
g  at this point.

The program will now display some GEANT output, and then ask what type
of workstation you are using.  There are several possibilities here:

If you are running the X-windows version of the Monte Carlo on a
VAXstation in a DecTerm window, choose 1 for the workstation type.
In this case you must previously have given the DCL command

        $ set display/create/user/node=<yournodename>

possibly with the addition of the qualifier /trans={decnet | tcpip},
and you must also have used the session manager ... security menu to
authorize yourself to write to the VAXstation.  Incidentally, once
you have done this, you can write on the VAXstation screen from any
VAX session, and so can any other authorized user, which could be
confusing.

If you are running the GKS version of the Monte Carlo in a DecTerm
window on a VAXstation, choose 211 for the workstation type.

If you are running the GKS version of the Monte Carlo on a Macintosh
using VersaTerm PRO, choose 82 for Tektronix 4107 color emulation, 72
for Tektronix 4010 monochrome emulation, or 14 for a VT200 ASCII
terminal.

After you have chosen the workstation type, the next prompt will come
from GEANT; the reply

  trig n

will cause the program to run for n events.

An interactive display of the entire Phobos detector can be created
by typing

  draw outs 80. 90. 90. 10. 10. 0.12 0.12

The first three arguments are viewing angles in degrees; the next
two specify the center of the picture, and the last two its x- and
y-  scale factors.  Once this is done, subsequent tracks will be
displayed as  they propagate through the detector.  A more
elaborate drawing of the detector, with different segments in
color, may be created by executing the KUIP macro DRAWPHOB.KUMAC:

  exe pc:drawphob

If this is done before generating an event, the display will show the
hits as the tracks propagate through the detector.

Type

  next

at the Geant > prompt to clear the display.

You can get Geant help by typing ? as the response to its prompt.

At the end of the job, type exit to finish.  Quit will abort  the job
immediately, but it will leave the output ntuple unusable, as will
aborting the job at any point by typing <ctrl-Y> (sometimes you must
do this twice to get the job to stop).

A word of caution is in order, about the persistence of logical name
definitions when used interactively.  If you execute  RMC, and
PHODEFS defines pmc_dat, for example, as a special subdirectory, this
definition will carry over into all subsequent work, until you log
out.  Conversely, if logicals used by RMC, such as pmc_dat, pmc_exe,
RHDATA, GCDEFS, CARDS$DEF, FOR037, FLDASC or FLDZBR are already
defined, and are not redefined in your PHODEFS.COM, the previous
definitions will override the defaults in RMC. This allows users to
make special definitions without having to edit command files, which
can be useful; but if the user is unaware of the previous definitions,
for example those made in a login or setup procedure, it can lead to
very confusing results.  This may eventually lead us to deassign the
logical names at the end of the procedure.  See pmc_cmd:RMC.COM for
the complete list of logicals that it uses.



         8.  Running in Batch Mode

The standard command procedure SMC.COM, in pmc_cmd, submits RMC to
run the Phobos MC as a batch job.  SMC requires the same logicals as
RMC.  It also uses pmc_cmd, but defaults it to
phobos_root:[sim.new.cmd].

          $ @pc:smc <exename> <outname> <queuename>
example:  $ @pc:smc  mcxd  Fritiof3 long

where
  <exename> and <outname> have the same significance as for rmc,
  and queuename defaults to "medium".

In particular, the log file will be found in scratch:<outname>.log.

The SMC procedure also requires files to start the debugger and
to specify the number of events; these are called PMCDEBUG.TXT and
PMCBATCH.TXT, respectively, and are looked for in the pmc_dat area.

For example, if the files PMCDEBUG.TXT and PMCBATCH.TXT contain

! PMCDEBUG.TXT: debug commands for running the Phobos MC in batch mode
GO
QUIT

and

* PMCBATCH.TXT: command file to run Phobos MC in batch mode
TRIG 100
EXIT

the MC will run for 100 events.  The version of PMCBATCH in the
standard data area is set for 10 events; to change this you can define
pmc_dat by a search list, as in Section 5, to allow your own version
to take precedence over the system version.

There is also a COMIS-based procedure, called SETBATCH, that can be
invoked to set batch mode without using a batch command file.



         9.  Differences Between Workstations

The VAXstations using DECwindows require the set display command
already noted above:

        $ set display/create/user/node=<your workstation>

in order that the graphics information will be sent to your
workstation.  There are still some mysterious occurences under
DECwindows; this situation may improve soon, when the graphical
interface Motif is introduced.

A Macintosh running the GKS version under VersaTerm PRO works
reasonably, displaying the graphics in a second window. You must click
on the text window to type normally into it; if you try to type blind,
you must use shift-space instead of space.  If you try to display an
event with more than about one hundred tracks, VersaTerm beeps and
loses tracks, and the display is corrupted.  This is probably a result
of saving tracks for re-drawing; we do not know of a remedy.

The Next runs the GKS display with no known problems.  We are
investigating the X-windows version on the Next.

We have not run the PMC on any other platforms yet.



        10.  Present Status, Known Problems, and Future Plans


An existing problem in some of the code is its use of VAX extensions
to ANSI Fortran.  We may pay heavily for these powerful conveniences
when we try to port to other operating systems.

The use of commons with the same file name (COMMON.NTU, COMMON.HST)
and with the same file name as a subroutine (BANG.CMN, BANG.FOR)
is apparently unacceptable for the text libraries required for the
code management system; these names will be changed.

The angle of the spectrometer arms, FANG, is not as easy for surveyors
to use as the Z-position of the cryostat center, ZC, which is
calculated in the programs; ZC will replace FANG as the primary
definition.

The standard field map contained 8 bad values = -4E10; there is a
hand-corrected version in pmc_dat:FLDMAP.DAT.  The GUFLD reading of
text values will shortly be replaced by the Zebra bank version, read
by GCFLD.

The output stage should be changed so that both geometry and control
datasets can be written into the output.

Two Ntuples should be written, one containing only truth information
and updated for every track, the other containing also hits
information and updated only for tracks with hits.

GUSTEP.FOR, and others including GCKING.CMN, require the compiler
/ext switch, because GCKING has a line longer than 72 characters;
this line should be split.



        11.  Linking a Standard Executable Module


Standard link and build procedures are available in the pmc_cmd
area, primarily for use by code writers and maintainers.

o  MAKEMC.COM: updates the MC library and links an executable image
o  LINKMC.COM: links private modules with the Phobos system
o  PMC.MMS:    Phobos MMS description file invoked by MAKEMC.

MAKEMC creates the executable image by using the DEC MMS, or Module
Management System, using the MMS description file PMC.MMS.  MAKEMC
requires pmc_mms, pmc_exe, and pmc_lib, plus the requirements of
PMC.MMS, namely pmc_src, pmc_inc, pmc_cmd, cern_root, and cernlib. It
defaults them to the standard definitions in the extended example of
PHODEFS.COM given in Section 7.

LINKMC requires pmc_src, pmc_inc, pmc_exe, pmc_lib, cern_root, and
cernlib. It defaults pmc_src and pmc_inc to the standard definitions
of the example.

The standard links in PMC.MMS and LINKMC.COM have no undefined
references.

MAKEMC can also be used to test new code within the Phobos MC. To
check whether the system is up-to-date, i.e., that program sources or
include files called in by them  have been changed since the programs
were last compiled, and whether any object files have changed since
the executable image was made, or to update the library or make a new
executable:

          $ @pc:makemc <w> <d> [exe] [lib] [test]

example:  $ @pc:makemc x d

where

  w   is x for the x-windows version or g for the GKS version

  d   is d for the debug version

  exe is non-blank to check the executable, or "MAKEEXE" to remake
      the executable image

  lib is non-blank to check the library, or "MAKELIB" to remake the
      object library

  test is the full name of linker options file that can contain
      linker instructions to include user development object modules,
      followed by /opt

example:  $ @pc:makemc x d makeexe "" disk$csc:[user]TEST.OPT/opt

where TEST.OPT might contain the linker directives

  pmc_lib:pmc_dbg.olb/include=(gephob,gufld,guout,gustep,gutrev)
  disk$csc:[user]gukine,guinit

and you have already compiled your test versions using for example
  $ for/debug/noopt gukine

Warning: anybody on the Phobos access control list can execute the
MAKEMC procedure using the default logical definitions
phobos_root:[sim.new.lib] for pmc_lib and
phobos_root:[sim.new.exe] for pmc_exe,
and inadvertently incorporate their private code into the public
library and/or add a new executable image.  Therefore, please exercise
EXTREME CAUTION in using the MAKEMC procedure.  If you do use it to
create a private executable image and/or a private library on scratch
disk, make sure that pmc_exe  and pmc_lib are defined as
disk$scratch:[your_username] in your PHODEFS.COM file.  Alternatively,
as long as you do not use the passwords "makeexe" and "makelib", the
procedure is perfectly safe.  If unsure how to use MAKEMC, you can use
LINKMC, as described in the next section.



        12.  Linking a Private Executable Module Without MMS


A simpler procedure, called LINKMC, allows users to create test
versions of the Monte Carlo without the complexities of MMS. To link a
test version of the system, make a copy of pc:LINKMC.COM in your area,
change the module name (BANG, in the example) as desired, add lines
for other new subroutines to be tested, and then execute

          $ @pc:linkmc {x|g}

where x will create pmc_exe:MCXD.EXE, and g will create
pmc_exe:MCGD.EXE.

The actual link used by LINKMC is the functional equivalent of that in
PMC.MMS, with slight differences in the logical and macro syntax; the
string 'dbg' is either blank or "_DBG" depending on the version
required, p1 is X or G, and 'Vers' is "NEW" or "PROD":

    $ def/nolog cern_root   _$1$DUA8:[PHOBOS.CERN.NEW.]
    $ def/nolog cernlib     _$1$DUA8:[PHOBOS.CERN.NEW.LIB]
    $ def/nolog phobos_root _$1$DUA8:[PHOBOS.]
    $ def/nolog geantlib    cernlib:GEANT315'dbg'.OLB
    $ def/nolog grafdgks    cernlib:GRAFDGKS'dbg'.OLB
    $ def/nolog graflib     cernlib:GRAFLIB'dbg'.OLB
    $ def/nolog grafx11     cernlib:GRAFX11'dbg'.OLB
    $ def/nolog pmclib      phobos_root:[SIM.'Vers'.LIB]PMC'dbg'.OLB
    $ def/nolog pmc_cmd     phobos_root:[SIM.'Vers'.CMD]
    $ def/nolog packlib     cernlib:PACKLIB'dbg'.OLB
    $ def/nolog kernlib     cernlib:KERNLIB'dbg'.OLB
    $ def/nolog pawlib      cernlib:PAWLIB'dbg'.OLB
    $ def/nolog streamlib   cern_root:[LOCAL.lib]stream'dbg'.OLB
    $! Choose X-windows or GKS graphics support:
    $ def/nolog glib grafx11
    $ gsharelib = "pmc_cmd:X11/opt"
    $ if p1 .eqs. "G"
    $ then
    $   def/nolog glib grafdgks
    $   gsharelib = "sys$share:GKSFORBND/lib"
    $ endif
    $! Note the link order determines whether Geant, Phobos, or private
    $! versions of modules are used.
    $! Force Phobos modules rather than Geant dummies to be taken:
    $ Incs = "/inc=(GUFLD,GUKINE,GUOUT,GUSTEP,GUTREV)"
    $ LINK'MapOpt'/exe='Exename' -
      pmclib/inc=(GEPHOB), -
      pmc_obj:BANG, -
      pmclib/lib'Incs', -
      geantlib/lib, -
      pawlib/lib, -
      graflib/lib, -
      packlib/lib/inclu=RZKEYD, -
      glib/lib, -
      kernlib/lib, -
      streamlib/lib, -
      'gsharelib', -
      pmc_cmd:GEPHOB/opt

The easiest way to use this procedure is to define your scratch disk
as pmc_exe.  Add to your LMCDEFS.COM file the definitions

   $ def pmc_exe disk$scratch:[your username]
   $ def pmc_src [your area for new source files]
   $ def pmc_inc [your area for new .CMN files, if any], -
       phobos_root:[sim.new.inc]

and execute your modified copy of LINKMC; for example,

   $ @linkmc g

to link the GKS (Tektronix) version; with the g replaced by x, or
omitted altogether, this will link the X-windows version.

You should then be able to run the MC by executing

   $ @pmc_cmd:rmc [outfilename] [rmcdefs]
or
   $ @pmc_cmd:smc [outfilename] [rmcdefs] [queue]

as previously discussed.


        13.  Copying the MC System to Another Site


You can always run the MC from a remote workstation used solely as a
graphics display device, as discussed in section 7, Running
Interactively.  If communications between MIT and the other site are
too slow or noisy to be usable, you can also copy the essential parts
of the Phobos software system to the other site.  As the total Phobos
disk usage is presently about 280 k blocks (140 MB) and 1800 files,
much of which is for packages such as Isajet and Garfield that are not
used by the Phobos MC, copying should be selective, and we will
describe three packages which one might want to copy.  Soon, we will
back up the whole Phobos system on 8 mm. tape, which can also be used
for transporting the system.

In this section we will use the following standard logical names for
brevity, with <vers> = "new" or "prod" as desired:

  phobos_root = _$1$dua8:[PHOBOS.]
  cern_root   = phobos_root:[cern.new.]
  cernlib     = cern_root:[lib]
  pmc_cmd     = phobos_root:[sim.<vers>.cmd]
  pmc_dat     = phobos_root:[sim.<vers>.data]
  pmc_exe     = phobos_root:[sim.<vers>.exe]
  pmc_inc     = phobos_root:[sim.<vers>.inc]
  pmc_lib     = phobos_root:[sim.<vers>.lib]
  pmc_src     = phobos_root:[sim.<vers>.src]


13.1.  A Minimal Package

In case you want to run the standard procedures, modifying the control
and possibly the geometry and event input files, but not changing the
programs, you should copy the following:

Command procedures in pmc_cmd:

  DEMO.COM, DRAWPHOB.COM, PHODEFS.COM, RMC.COM, SMC.COM

Control files in pmc_data:

  GEOCON.TXT, GEOCODEMO.TXT, UGCDATA.TXT

An optional sample data file of tracks from 200 Gev/u Gold-Gold
peripheral collisions, generated by CGP using the Fritiof event
generator, in phobos_root:[GEANT.FRITIOF]:

  SIM_10E_AU_AU_200GEV_7P5_8P5.DAT

Executable image(s) in pmc_exe:

  MCGD.EXE, for GKS graphics support (Macintosh with VersaTerm PRO)
  MCXD.EXE, for X-windows graphics support (VAXstation DECterm window)

To use the standard procedures, you must copy PHODEFS.COM into your
highest-level directory and change it to define the logical "scratch"
to point to the directory in which you want your output files to be
created.  If you have not replicated the Phobos directory structure
described in Section 3, your PHODEFS.COM must also define pmc_cmd,
pmc_dat, and pmc_exe in accordance with your directory structure.

If you do not use the standard procedures, you must define the logical
names listed in Sections 4 and 5 to specify the necessary input and
output files.

There are two limitations to this approach.  First, the executable
images are larger than 6 MB, and the transfer may be difficult if the
lines are noisy or erratic.  Second, the VAX debugger cannot display
source code unless the source code is available.


13.2.  A Development Package

If you want to do source code debugging or to create private
development versions of programs, you will need to copy, in addition
to the standard command and control files listed in the previous
subsection, but not including the executable images, the following
standard files, where 'dbg' is _DBG or blank as described in Section
12:

Command procedures in pmc_cmd:

  LINKMC.COM, MAKEMC.COM

Control files in pmc_data:

  PMC.MMS

Source code in pmc_src, for source debugging or development:

  *.FOR

Include files in pmc_inc, for source debugging or development:

  *.CMN, COMMON.*

CERN libraries in cernlib:

  GEANT315'dbg'.OLB, GRAFDGKS'dbg'.OLB, GRAFLIB'dbg'.OLB,
  GRAFX11'dbg'.OLB, KERNLIB'dbg'.OLB, PACKLIB'dbg'.OLB,
  PAWLIB'dbg'.OLB

CERN library in cern_root:[LOCAL.lib]:

  STREAM'dbg'.OLB

VAX Fortran bindings for GKS (not needed for the X-windows version):

  sys$share:GKSFORBND.OLB

Shareable image for GKS support, satisfying nine unused undefined weak
references FREE, LSEEK, MALLOC, OPEN, PERROR, QNEXT, READ, USLAST, and
WRITE, to eliminate linker error condition (not needed for the
X-windows version):

  sys$library:VAXCRTL.OLB

Shareable image for X-window support, brought in by X11.OPT (not
needed for the GKS version):

  sys$share:DECW$XLIBSHR.EXE

Linker option files (X11 is not needed for the GKS version):

  pmc_cmd:X11.OPT, pmc_cmd:GEPHOB.OPT

You can now use the MAKEMC and/or LINKMC procedures described
previously, to link standard and private versions of the MC.

While the source code is presently less than 200 kB, the object
libraries are relatively large: GEANT315.OLB is 2.1 MB, PAW.OLB 1.2
MB, and PACKLIB 2.5 MB.  The debug versions (GEANT315_DBG.OLB, etc.,
are 40 to 80% larger than the non-debug versions.  A useful
alternative, therefore, is to copy the source code and procedures from
MIT but to use a set of CERN libraries that already exists at the
remote site.


13.3.  A Complete Package

Sometimes the only way to find out what Geant is actually doing is to
consult the source code.  Since these instances are rare, and since
the source code is kept in Patchy .CAR format, it should normally be
consulted by logging into the MIT VAX cluster, or any other institution
that keeps copies of the source code.  If you are nevertheless
determined to maintain copies of the sources, they can be found in
directory cern_root:[src.car] as GEANT315.CAR, KERNFOR.CAR, PAW.CAR,
ZEBRA.CAR, ...  These are not in a form to be compiled direcly; one
has to use Patchy for that.  They range from .5-3 kblocks (.2-1.5 MB)
in length.


	14.  History

The Geant - Phobos package was created by Don McLeod at UIC in 1991
and 1992.  He released the first fully functional version, containing
one arm of Phobos with simplified detector planes and a beam tube, in
April 1992, when it was brought to MIT.  This document has its genesis
in  Don McLeod's original notes from that period.

In May, 1992, Chuck Parsons restructured the description, adding user
hooks and the ability to read data generated by other generators such
as the Fritiof ion-ion generator.  He also brought the newest CERN
libraries, GEANT, and PAW to MIT, produced pictures of Fritiof events,
and set up the DEC CMS code management system, with MMS, for future
use in maintaining code.

Subsequently, Jing Shea added the cryostats and second arm, and made
macros for drawing the detector, Krzysztof Wozniak produced code for
the test magnetic field and detector noise and efficiency, and Henryk
Dabrowski ran studies of secondary production with the Venus generator
for O-O collisions.  Chuck Parsons and Robin Verdier added facilities
to handle secondary hadronic production and add secondary tracks to
the output ntuples, and changed the geometry to agree more closely
with the LOI.  Parsons also introduced segmented final planes, and
produced hit distribution pictures.  This system was used to do the
calculations for the Phobos Proposal.

Following the decision taken at the collaboration software meeting of
October 25, Verdier added the UGC text geometry and control input
system, McLeod improved the BANG diagnostic generator distributions,
and Dave Woodruff corrected the undefined weak reference problem in
the GKS link.



	15.  Changes To the Standard Version for the Background Studies

GUOUT.FOR: CSAVE, IZEB, USRZEB, and IER were defined.  INCLUDEs for
IO.CMN and FLAG.CMN were added to define USRZEB and IZEB, with  local
definitions of CSAVE and IER, and set IZEB to 0; this may need a more
permanant correction.

GUKINE, BANG, and PH_OUT were modified to agree with the original GPH;
new common UJKBUF.CMN was added for the user words in JKINE;
COMMON.HST was copied from the standard area.


	Appendix A: A Geometry Definition File

The following is a copy of the standard version of pmc_dat:UGCDATA.TXT:

! Geometry and material definitions for Phobos
! VER 1.1, 20-Nov-92
!
! Material definitions:
!                    A       Z       Dens    Lrad    Labs    U Nu
GS MATE 1 VACUUM$    1.e-16  1.e-16  1.e-16  1.e+16  1.e+16  0  0
GS MATE 2 BERYLL$    9.01    4.00    1.848   35.3    36.7    0  0
GS MATE 3 HELIUM$    4.00    2.00    1.91e-4 4.94e5  3.41e5  0  0
GS MATE 4 SILICON$   28.09   14.0    2.33    9.36    45.5    0  0
GS MATE 5 IRON$      55.85   26.0    7.87    1.76    17.1    0  0
GS MATE 6 ALUMINUM$  26.98   13.0    2.7     6.0     70.0    0  0
!         Mixture:   A(1)  A(2)   Z(1)  Z(2)  Dens  #  W(1) W(2)
GS MIXT 7 NbTi$      92.9  47.9   41.0  22.0  6.55  2  0.5  0.5
!
! Tracking medium definitions (all media initially taken equal):
!       # Name       Mat Is If Bmax  Tmax MSmx DEmx   Eps  StMn  U Nu
GS TMED 1 VACUUM$    1   0  0  0.    5.0  0.5  0.20  .001  0.40  0  0
GS TMED 2 BERYLLIUM$ 2   0  0  0.    5.0  0.5  0.20  .001  0.40  0  0
GS TMED 3 HELIUM$    3   0  1  45.0  5.0  0.5  0.20  .001  0.40  0  0
GS TMED 4 SILICON$   4   1  1  45.0  5.0  0.5  0.20  .001  0.40  0  0
GS TMED 5 IRON$      5   0  1  45.0  5.0  0.5  0.20  .001  0.40  0  0
GS TMED 6 ALUMINUM$  6   0  1  45.0  5.0  0.5  0.20  .001  0.40  0  0
GS TMED 7 COIL$      7   0  1  45.0  5.0  0.5  0.20  .001  0.40  0  0
!
! Geometry definitions:
! The dimension parameters for the master volume are defined as follows:
! xmins = swid(1)/2  =  3.75;  zmins = srad(1)  = 11.0;
! xmaxs = swid(11)/2 = 19.05;  zmaxs = srad(11) = 43.3;  ymaxs = 3.5
! cryostat: half height YCRH = 20.0, half vertical separation YGAP = 6.0,
!   wall thickness THCR = 0.25
! spectrometer arm polar angle w.r.t. beam axis FANGL = 40.0 degrees
! distance of coil center from beamline XOFF = 20.0
!
! Used by the BANG generator and by GUFLD:
GS SET FANG  40.0 ! Spectrometer arm polar axis, degrees
GS SET XOFF  20.0 ! Distance from beamline to coil center, cm.
! Used by GUFLD:
GS SET BFLD  45.0 ! Scale factor multiplying the field map values
!
! xmmax = zmaxs * sin(fangl) + xmaxs * cos(fangl) + 0.1 = 42.5258449
! zmmax = xmaxs * sin(fangl) + zmaxs * cos(fangl) + 0.1 = 45.5148317
! ymmax = ygap + 2 * ycrh + 0.1 = 46.1
! To facilitate benchmarking previous results, we temporarily specify the
! dimensions with non-sensible accuracy and use 57.2958 deg/radian.
!
!             Half-width    Half-height    Half-length
GS SET SPARS  {xmmax=}42.53   {ymmax=}46.1  {zmmax=}45.51
GS SET SPARS          42.5258449      46.1          45.5148317
GS VOLU  OUTS  'BOX '  3  SPARS  3                 ! Phobos master volume
!
!          Name  Shape  Med Hctr  Hrad  HL    #p
! GS VOLU  BMVC   TUBE   1  0.    4.00  45.51  3   ! Beam tube vacuum
GS SET SPARS  0.  4.0  45.5148317
GS VOLU  BMVC   TUBE   1  SPARS  3                 ! Beam tube vacuum
!        Name Cpy Mother x   y   z  Irot Srch
GS POS   BMVC  1  OUTS   0.  0.  0.  0   ONLY
!
! GS VOLU  BMTB   TUBE   2  4.00  4.07  45.5  3    ! Beam tube
GS SET SPARS  4.0  4.07  45.5148317
GS VOLU  BMTB   TUBE   2  SPARS  3
GS POS   BMTB  1  OUTS   0.  0.  0.  0   ONLY
!
! par(1) = xmins, (2) = xmaxs, (3) = ymaxs, (4) = (zmaxs-zmins)/2 = 16.15
GS VOLU  SPEC  TRD1  3  3.75  19.05  3.5  16.15  4 ! Virt vol for Si planes
GS ROTM  30  130.  0.  90.  90.  40.  0.
GS ROTM  40   50.  0.  90.  90.  40.  180.
! x, z = 0.5*(zmins+zmaxs) * (sin, cos)(fangl) = 17.45168, 20.79811
! GS POS   SPEC  1  OUTS   17.45  0.  20.80  30  ONLY
! GS POS   SPEC  2  OUTS  -17.45  0.  20.80  40  ONLY
GS POS   SPEC  1  OUTS   17.4516784  0.    20.7981110  30  ONLY
GS POS   SPEC  2  OUTS  -17.4516784  0.    20.7981110  40  ONLY
!
!        Nr  Theta1 Phi1 Theta2 Phi2 Theta3 Phi3  in DEGREES
GS ROTM  31    90.   0.   180.   0.    90.   90.
GS ROTM  32    90.   0.     0.   0.    90.  270.
!
! p(1) = 0., (2) = xoff - thcr, (3) = thcr/2
GS VOLU  CRYB  TUBE  5  0.  19.75  0.125  3        ! Cryostat bottom
! p(1) = xoff, (2) = ygap + thcr/2, (3) = xoff / tan(fangl) = 23.8350839
! GS POS   CRYB  1  OUTS   20.0   6.125  23.84  31  ONLY
! GS POS   CRYB  2  OUTS   20.0  -6.125  23.84  32  ONLY
! GS POS   CRYB  3  OUTS  -20.0   6.125  23.84  31  ONLY
! GS POS   CRYB  4  OUTS  -20.0  -6.125  23.84  32  ONLY
GS POS   CRYB  1  OUTS   20.0   6.125  23.8350839  31  ONLY
GS POS   CRYB  2  OUTS   20.0  -6.125  23.8350839  32  ONLY
GS POS   CRYB  3  OUTS  -20.0   6.125  23.8350839  31  ONLY
GS POS   CRYB  4  OUTS  -20.0  -6.125  23.8350839  32  ONLY
!
! p(1) = xoff - thcr, (2) = xoff, (3) = ycrh
GS VOLU  CRYS  TUBE  5  19.75  20.0  20.0  3       ! Cryostat sides
! p(1) = +-xoff, (2) = +-(ycrh + ygap), (3) = xoff / tan(fangl)
! GS POS   CRYS  1  OUTS   20.0   26.    23.84  31  ONLY
! GS POS   CRYS  2  OUTS   20.0  -26.    23.84  32  ONLY
! GS POS   CRYS  3  OUTS  -20.0   26.    23.84  31  ONLY
! GS POS   CRYS  4  OUTS  -20.0  -26.    23.84  32  ONLY
GS POS   CRYS  1  OUTS   20.0   26.    23.8350839  31  ONLY
GS POS   CRYS  2  OUTS   20.0  -26.    23.8350839  32  ONLY
GS POS   CRYS  3  OUTS  -20.0   26.    23.8350839  31  ONLY
GS POS   CRYS  4  OUTS  -20.0  -26.    23.8350839  32  ONLY
!
GS VOLU  COIL  TUBE  7  0.     15.0  7.50  3       ! Coil
! GS POS   COIL  1  OUTS   20.0   18.5   23.84  31  ONLY
! GS POS   COIL  2  OUTS   20.0  -18.5   23.84  32  ONLY
! GS POS   COIL  3  OUTS  -20.0   18.5   23.84  31  ONLY
! GS POS   COIL  4  OUTS  -20.0  -18.5   23.84  32  ONLY
GS POS   COIL  1  OUTS   20.0   18.5   23.8350839  31  ONLY
GS POS   COIL  2  OUTS   20.0  -18.5   23.8350839  32  ONLY
GS POS   COIL  3  OUTS  -20.0   18.5   23.8350839  31  ONLY
GS POS   COIL  4  OUTS  -20.0  -18.5   23.8350839  32  ONLY
!
! Define the Silicon planes:
!
GS SET NPLANES 11
GS SET IUDET  'SP01SP02SP03SP04SP05SP06SP07SP08SP09SP10SP11' ! Names
GS SET NBITSH  24   24   24   24   24   16   16   16   16    ! Bit packing
GS SET FACT    1.e3 1.e3 1.e3 1.e3 1.e3 1.e7 5.e3 1.e4 1.e0  ! Scales
GS SET ORIG    50.  50.  50.  50.  50.   0.  -1.   0.   0.   ! Positions
GS SET NAMESH 'X   Y   Z   XP  YP  DE  CT  E   TRAK'         ! Hit pnames
!
GS VOLU  SP01 'BOX '  4  3.75  1.7  .015  3            ! Plane
! The following spec is necessary only if the plane angle is non-0:
! GS ROTM    1  90.{+sang}  0. 90.   90.  0.{=sang}  0.
GS POS   SP01  1  SPEC   0.     0.   -16.15   0   ONLY
! p(3) for GSPOS = srad(i) - (zmins+zmaxs)/2 = srad(i) - 27.15
! where srad is the distance from the IP to the projection of the plane
! center on the spectrometer symmetry axis.
GS DET   SDET  SP01  1  SILD  16  1  12000  1000  ISET 1  IDET 1
! The vector indices after ISET and IDET specify the elements into which
! the values returned by GSDET are to be stored; a future syntax may
! reference the vector elements directly
GS DETH  SDET  SP01  9  NAMESH  NBITSH  ORIG  FACT
!
! Silicon plane parameters (dimensions may be redundant at present):
!         Pl#  Hdim  Hpix  Vdim  Vpix    Thk  D2IP  Hoff  Angl
GS SET SLP  1   7.5  0.15   3.4  0.15  0.030  11.0    0.    0.
GS SET SLP  2  10.0  0.20   4.1  0.20  0.030  13.6    0.    0.
GS SET SLP  3  13.0  0.20   4.9  0.20  0.030  16.2    0.    0.
GS SET SLP  4  15.0  0.20   5.5  0.20  0.030  18.0    0.    0.
GS SET SLP  5  16.5  0.20   5.9  0.20  0.030  19.3    0.    0.
GS SET SLP  6  18.0  0.20   6.3  0.20  0.030  20.6    0.    0.
GS SET SLP  7  19.5  0.20   6.7  0.20  0.030  21.9    0.    0.
GS SET SLP  8  21.0  0.025  7.0  2.50  0.030  23.2    0.    0.
GS SET SLP  9  26.4  0.025  7.0  2.50  0.030  31.3    0.    0.
GS SET SLP 10  38.1  0.025  7.0  2.50  0.030  42.8    0.    0.
GS SET SLP 11  38.1  0.30   7.0  0.30  0.030  43.3    0.    0.
!
GS VOLU  SP02 'BOX '  4  5.00  2.05  .015  3
GS POS   SP02  1  SPEC   0.     0.   -13.55   0   ONLY
GS DET   SDET  SP02  1  SILD  16  2  12000  1000  ISET 2  IDET 2
GS DETH  SDET  SP02  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP03 'BOX '  4  6.50  2.45  .015  3
GS POS   SP03  1  SPEC   0.     0.   -10.95   0   ONLY
GS DET   SDET  SP03  1  SILD  16  3  12000  1000  ISET 3  IDET 3
GS DETH  SDET  SP03  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP04 'BOX '  4  7.50  2.75  .015  3
GS POS   SP04  1  SPEC   0.     0.    -9.15   0   ONLY
GS DET   SDET  SP04  1  SILD  16  4  12000  1000  ISET 4  IDET 4
GS DETH  SDET  SP04  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP05 'BOX '  4  8.25  2.95  .015  3
GS POS   SP05  1  SPEC   0.     0.    -7.85   0   ONLY
GS DET   SDET  SP05  1  SILD  16  5  12000  1000  ISET 5  IDET 5
GS DETH  SDET  SP05  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP06 'BOX '  4  9.00  3.15  .015  3
GS POS   SP06  1  SPEC   0.     0.    -6.55   0   ONLY
GS DET   SDET  SP06  1  SILD  16  6  12000  1000  ISET 6  IDET 6
GS DETH  SDET  SP06  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP07 'BOX '  4  9.75  3.35  .015  3
GS POS   SP07  1  SPEC   0.     0.    -5.25   0   ONLY
GS DET   SDET  SP07  1  SILD  16  7  12000  1000  ISET 7  IDET 7
GS DETH  SDET  SP07  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP08 'BOX '  4  10.50  3.50  .015  3
GS POS   SP08  1  SPEC   0.     0.    -3.95   0   ONLY
GS DET   SDET  SP08  1  SILD  16  8  12000  1000  ISET 8  IDET 8
GS DETH  SDET  SP08  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP09 'BOX '  4  13.20  3.50  .015  3
GS POS   SP09  1  SPEC   0.     0.     4.15   0   ONLY
GS DET   SDET  SP09  1  SILD  16  9  12000  1000  ISET 9  IDET 9
GS DETH  SDET  SP09  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP10 'BOX '  4  19.05  3.50  .015  3
GS POS   SP10  1  SPEC   0.     0.    15.65   0   ONLY
GS DET   SDET  SP10  1  SILD  16  10  12000  1000  ISET 10  IDET 10
GS DETH  SDET  SP10  9  NAMESH  NBITSH  ORIG  FACT
!
GS VOLU  SP11 'BOX '  4  19.05  3.50  .015  3
GS POS   SP11  1  SPEC   0.     0.    16.15   0   ONLY
GS DET   SDET  SP11  1  SILD  16  11  12000  1000  ISET 11  IDET 11
GS DETH  SDET  SP11  9  NAMESH  NBITSH  ORIG  FACT
!
GS CLOS    ! Close geometry banks
! End of UGC dataset


	Appendix B: A Control File

* GEOCON.TXT: standard combined geometry and control option input
* file for Phobos simulation studies
*  17-Nov-92: New standard version = modified GEPHOB.DAT, with
*             geometry specifications disabled, to allow them to
*             be provided by the UGC text input system (RV)
*  06-Aug-92: new plane sizes and locations to agree with LOI;
*             beam pipe .7 mm thick (RV)
*  00-May-92: creation date (DM)
*
*  ----------------GEANT standard data cards:--------------------
*
TRIG     201
*   number of events to run (cutoff only if reading events)
*   This value is ignored in the interactive versions; for batch
*   running, TRIG must be specified in the MCBATCH.TXT file.
SAVE 'KINE' 'JXYZ' 'VERT' 'HITS'
*   Banks to be saved.  For large events in batch, remove JXYZ.
RUNG     13
*   run number (used in printout, histogram labels etc.)
MULS     1
*   multiple scattering type: 0 = none,
*   1 = Gaussian (default), 2 = Moliere
DCAY     1
*   decay in flight: 0 =none, 1 = make secondaries,
*   2 = ignore secondaries.  (1 = default)
LOSS     2
*   1 = no fluctuations, 2 = Landau dist'n, 0 = no energy loss
HADR     1
*   0 = no hadronic interactions
RNDM    12144 232
*   seeds for random number generator
DEBUG    1  10  1
*   Debug flag; DEBUG NFIRST NLAST DN prints debug information for
*   events NFIRST, NFIRST+DN, ..., NLAST
SWITCH   0  1  0  1
*   Governs what's printed during debug; 0 disable, 1 enable...
*   1st = kine bank print
*   2nd = Ntuple print
*   3rd = bank prints
*   4th = gustep diagnostics
*
*   ----------------------GPH control cards:---------------------------
PIXL     1
*   0 = exact coord. on track, 1 = set to center of nearest pad
ANAL     1
*   1 = generate Ntuples, 2 = calculate errors
SHBO     0
*   1 = .HST binary plot output (for PAW), 0 = suppressed
SHDO     1
*   1 = HISTDO is called to output plots in GPH.OUT, 0 = suppressed
SNTU     1
    1 = Ntuples are output to (filename).NTU RZ file
STRA     1
    1 = secondary particles from interactions are tracked
***DRAW     1
*   1 = draw apparatus, 2 = draw hits also, 0 or missing = no draw
DISP     0
*   1 = book and fill "event display" scatterplots
*
*   ------------Configuration of PHOBOS system:---------------------------
*   >>NOTE: Units in GEANT are cm., kilogauss, Gev/c, degrees
* BMTB     4.00
*   beam tube inside radius in centimeters
* BERT     0.070
*   beryllium wall thickness
FANG     40.0
*   angle of detector system relative to beam
BFLD     45.0
*   full magnetic field magnitude
XOFF     20.0
*   x offset for the center of the cryostat
* YGAP     6.0
*   half the gap between the upper and lower cryostats
* YCRH     20.0
*   half of the height of the cryostat
* THCR     0.25
*   thickness of the stainless (iron) shell for the cryostat
*
*-------------Silicon plane parameters:--------------------------
* These specifications have been commented out to allow values from
* the UGC system to be effective.
*  Format is two cards per plane:
*  SILD SNUM SWID SHOR SHGT SVER STHK then
*  SILP SNUM SRAD SOFF SANG
* SNUM is plane #, of dimensions SWID x SHGT, with pixels SHOR x SVER
* & STHK thick, SRAD from the beam, SOFF displaced from the spectrometer
* axis and at an angle SANG to this axis (SANG = 0 for all but outer planes)
* SILD  1  7.5 0.15 3.4 0.15 0.03
* SILP  1  11.0 0.0 0.0
* SILD  2  10.0 0.2 4.1 0.2 0.03
* SILP  2  13.6 0.0 0.0
* SILD  3  13.0 0.2 4.9 0.2 0.03
* SILP  3  16.2 0.0 0.0
* SILD  4  15.0 0.2 5.5 0.2 0.03
* SILP  4  18.0 0.0 0.0
* SILD  5  16.5 0.2 5.9 0.2 0.03
* SILP  5  19.3 0.0 0.0
* SILD  6  18.0 0.2 6.3 0.2 0.03
* SILP  6  20.6 0.0 0.0
* SILD  7  19.5 0.2 6.7 0.2 0.03
* SILP  7  21.9 0.0 0.0
* SILD  8  21.0 0.025 7.0 2.5 0.03
* SILP  8  23.2 0.0 0.0
* SILD  9  26.4 0.025 7.0 2.5 0.03
* SILP  9  31.3 0.0 0.0
* SILD  10 38.1 0.025 7.0 2.5 0.03
* SILP  10 42.8 0.0 0.0
* SILD  11 38.1 0.3 7.0 0.3 0.03
* SILP  11 43.3 0.0 0.0
*
* ----------  event generator control cards ----------------------------
GEN      2
*   1 = fixed track, 2 = BANG aimed at det., 3 = random BANG,
*   4 = momentum, pos'n or angle incremented, 5 = Text input
RMOM    0.05 1.5
*  For GEN = 1 there is only one entry i.e. the momentum; GEN = 2,3 (BANG):
*  Range of flat momentum distribution; if PLOW is within 0.001 Gev/c
*  of PHIGH, fixed momentum. If PLOW > PHIGH, "spikes" at PLOW, PLOW-PHIGH,
*  PLOW - 2*PHIGH, ..... provided > 0.
RMUL    40
*  Multiplicity of each event (irrelevant if not BANG generator)
RANG    40.0
*  Polar angle wrt beam (GEN = 1,4) or angle range both sides of FANG,
*  (symmetric) if GEN = 2. The particles are  distributed flat in cos(theta).
RPHI    0.0
*  Azimuth (GEN = 1,4) or range of azimuth (GEN = 2)
RBXX    0.0
RBYY    0.0
RBZZ    40.0
*  These are the particle origin relative to beam center (GEN = 1)
*  For BANG (GEN = 2,3) RBZZ is the length of the intersection diamond in cm.
*  For text event data (GEN = 5), RBZZ is the default vertex z position
RBXY    0.0450
*  Projected width of intersection region. The events are Gaussian
*  distributed about x, y = 0 (only relevant for BANG)
RMAG    15.0
*  nominal radius of field, for GEN = 3
RPAR    8
*  Particle ID.  This is fixed i.e. all particles in an event.  ID = Geant code.
DANG    0.1
*  increment for stepping polar angle (if GEN = 4)
DXX     0.4
*  likewise for position
DMOM    0.02
*  likewise for momentum
*
* -----------HBOOK control cards----------------------------
*  HIST ID TAGNAME  (short form.. default bins and interval)
*    TAGNAME can be Ntuple tag name or e.g. #35 for 35th entry
*  HIST ID TAGNAME NCHANNELS XMIN XMAX is the long form.
*  HIST ID TAGX NX XMI XMA TAGY NY YMI YMA  scatterplot, args as HBOOK2
*  (The number of arguments distinguishes these three formats.)
* The following three histograms are intended for standard benchmarking:
HIST 14 NHITSL
HIST 15 TP
HIST 17 TTHETA
* The following four are omitted in standard runs:
* HIST 11 XPROD
* HIST 12 YPROD
* HIST 13 IDPART
* HIST 16 TPHI
*
* End of geometry and control file


	Appendix C: The User Geometry and Control (UGC) System

          The Phobos geometry and control text input system

                   Nov. 6, 1992     Robin Verdier

     Summary:

A first version of the Phobos text input system is now available.


     Description:

The Phobos collaboration meeting of October 24 - 25 took a decision
to implement a system that had been proposed nearly a year earlier.
This decision required that the Phobos geometry and materials be
specified entirely by information contained in one or more text input
files.  The advantages of this procedure are several:

C.1. It helps to ensure that all computations done for Phobos use
     identical descriptions of the detector regardless of the site
     where or computer system on which they are carried out.

C.2. It provides a numerical database of materials and dimensions
     that can readily be transmitted to groups involved in detector
     construction.

C.3. It will avoid the time expense of re-linking the entire package
     to accomodate changes in the geometry, and the danger that errors
     in the necessary code changes will cause major failures of the
     system.  The importance of this aspect will increase as the
     full simulation system develops.

It also has disadvantages that impose additional requirements:

C.4. Since it is easy to change the geometry, then it must be made
     possible to verify that the same description has been used for
     separate computations.

C.5. In the long term, user programs should access the geometry
     information from the Zebra data structures, rather than from the
     input text file, since the Zebra banks will be carried as the
     canonical computer-independent record of the actual geometry used.

C.6. To implement the previous point, we need subroutines that will
     extract the information from the Zebra banks, and, possible, are
     able to reconstruct a text file functionally equivalent to the
     original.

It became clear early in the development that the ability to define
symbols whose values would then be passed to the geometry routines
would be a considerable aid to preparing and checking the input files.
A limited algebraic facility, for example, set zmmax (zmax + ymax) /
2, might also be useful; but it has the disadvantage that it is not
directly comparable with engineering and survey data.  As a
compromise, the first version of the system contains no symbolic
substitution; the second will include only symbol substitution, and we
do not plan  to implement algebraic substitution unless subsequent
developments strongly warrant it.

As a first application, we required a system that could be used to
reproduce the Letter-Of-Intent detector specifications, and to change
them as required for use in the optimization studies. That system is
now available and is briefly described below.

     Architecture:

The modules of this system have names that begin with UGC, for User
Geometry and Control.

Subroutine UGCIN, the control program for the system, reads data from
a text file with the logical name GCDEFS, using a Fortran logical unit
number specified in common IO as 19 and assigned in subroutine UFILES.
It calls subroutines UGCGET, UGCVAL, UGCDEF and UGCSET.
Subroutine UGCGET extracts tokens from the line, recognizing inline
and end-of-line comments, and, in version 2, symbolic names.
Subroutine UGCVAL evaluates the tokens from context rules.
Subroutine UGCDEF dispatches calls to the specified Geant subroutines.
Subroutine UGCSET is a user hook that allows local Phobos variables to
be set from the input values.  Ultimately, all Phobos-specific data
should be confined to UGCSET.

     Syntax:

An input line directed to UGC should begin, optionally after an
arbitrary amount of white-space consisting of spaces and tabs, with a
UGC identifier.  Two identifiers are presently recognized; they are
"GS" and "GC" (without the quotes), as mnemonics for Geometry
Specification and General Control, respectively.  At present UGC makes
no distinction between these.  Lines beginning with unrecognized
tokens are ignored by UGC.

The second token on an input line should be a recognized identifier from
one of the two following lists.

The first list includes "CLOS", "DET", "DETH", "MATE", "MIXT", "POS",
"ROTM", "TMED", and "VOLU", and upon recognizing one of them UGC will
call the Geant subroutine whose name is the identifier preceded by
"GS" (except for CLOS, when GGCLOS is called) with the arguments
specified in the remainder of the line, separated by white space.  Two
forms of VOLU are allowed; one specifies the dimension parameters
through a vector set by using SET, below, and the other form specifies
them in line.  We will add additional calls for functions such as
volume division as the need arises.

Here are some examples of valid geometry definitions:

GS VOLU OUTS 'BOX ' 3  44. 4.5  44.  3      ! Phobos master volume
 GS MATE 2 'BERYLL$ ' 9.01 4.0 1.848 35.3 36.7 0 0 ! Beampipe
GS  POS SPEC 39 OUTS 0. 0. 35.2 40{=rot mat #} ONLY  ! Plane envelope

The second list includes "DEF", "SET", and "END".  DEF and SET must be
followed by a third identifier giving the name of a variable.  SET
provides a means for specifying values for variables or vectors
required in Phobos in implementing the geometry specifications; the
values following the keyword SET are stored in successive locations
starting with the address of the named variable.  Only names specified
in a list coded into UGCSET will be processed.  DEF is reserved for
future use, to set local variables for subsequent symbolic reference
by UGC.  END is  followed by an integer argument, and causes UGC to
stop reading the input file and return the value of the argument in
its result flag.  This provides a way to control program flow, which
is presently used as follows: if the UGC dataset begins with GS END 1,
UGINIT will call UGEOM to set up the geometry in the way it was done
for the LOI, to test backwards compatibility.  NB: in this mode, the
SILP and SILD cards and the variables XOFF, BFLD, and FANG must be
present in RHDATA.

Here are examples of valid control definitions:

 GS   SET FANG 39.2
GS END 1

The types of the variables, and the values resulting from the
conversion, are determined by context: a variable is initially assumed
to be an integer; it is promoted to floating point if it contains an
e, an E, or a decimal point, and to a string if it contains anything
other than numerals, e, E, decimal point, or if it is surrounded by
apostrophes (').  Variables are separated by white space.  The parsing
has intentionally been kept simple.  There are no checks on the
rationality of the values given, although such a facility is feasible.
All strings are case-sensitive.

Note that GEANT names are all four characters long; shorter names, as
in the case of 'BOX ', below, require enclosing apostrophes (this may
be loosened in a later version), and shape names must be in UPPER
CASE.

Two kinds of comments are allowed.  The first is an exclamation point
(!); it is ignored, along with the remainder of the line.  The second
is an inline comment, contained within curly brackets ({}).  The use
of * at the start of a line to indicate that the line is a comment is
allowed, since one or more asterisks constitute an unrecognized
identifier.

Multi-line specifications are not yet allowed, nor can blocks of
specification lines be bypassed by the use of curly brackets.  These
facilities will be added, along with symbolic evaluation and the
ability to redefine the identifier keys and turn on a UGC VERIFY mode,
in the next major release. Strings containing embedded apostrophes are
not handled correctly. Suggestions for UGC development or modification
are welcome, provided that they are couched in polite terms.

Appendix A contains a full UGC data file specifying the LOI version of
Phobos.  Reference should be made to the Geant manual for more
detailed information about the subroutine calls.


	Appendix D: Directory of Phobos MC Files


Program Module Dictionary for the Phobos Monte Carlo       18-Nov-1992
* identifies modules no longer used

Filename           Date         Function

BANG.FOR           28-JUN-1992  Throw diagnostic primary tracks.
                                Calls: GSKINE, RAN, and trig functions.
                                Called by: GUKINE.
BANG.CMN                        Define common BANG: generator controls.
CARDS.CMN           1-JUL-1992  Define common CARDS: global geometric values.
COMMON.HST                      Define common RHHST: histogram controls.
COMMON.NTU                      Define common RHTUP: ntuple controls and tags.
CWK.CMN                         Define common CWK.
EUCARD.FOR         11-JUN-1992  Read GEANT commands from terminal or a file.
                                Calls FFSET, GFFGO, VAX-specific lib$ functions.
                                Called by: GUINIT.
* EVLABEL.FOR      27-APR-1992
* EZYLINK                       In GEPHOB, to link Phobos versions of subs
FINTE.FOR [1]      ??           Protect GUFLD from FINT error crashes
                                Called by: GUFLD.
FINTERR.FOR [1]    ??           Protect GUFLD from FINT error crashes.
                                Called by: GUFLD.
FLAG.CMN                        Define common FLAGS.
GCBANK.CMN                      Define common GCBANK.
GCCOMIS.CMN ???                 Define common GCCOMIS.
GCCUTS.CMN                      Define common GCCUTS.
GCDRAW.CMN                      Define common GCDRAW.
GCFLAG.CMN                      Define common GCFLAG.
GCFLAX.CMN                      Define common GCFLAX: extensions to GCFLAG.
GCKINE.CMN                      Define common GCKINE.
GCKING.CMN                      Define common GCKING.
GCLIST.CMN                      Define common GCLIST.
GCMATE.CMN                      Define common GCMATE.
GCNUM.CMN                       Define common GCNUM.
GCONST.CMN                      Define common GCONST.
GCPHYS.CMN                      Define common GCPHYS.
GCSETS.CMN                      Define common GCSETS.
GCTIME.CMN                      Define common GCTIME.
GCTMED.CMN                      Define common GCTMED.
GCTRAK.CMN                      Define common GCTRAK.
GCUNIT.CMN                      Define common GCUNIT.
GCVOL2.CMN                      Define common GCVOL2.
GCVOLU.CMN                      Define common GCVOLU.
GCXLUN.CMN                      Define common GCXLUN.
* GEANT_USER.FOR   26-OCT-1992
* GEASUBS.FOR       5-JUN-1992
GEPHOB.FOR          3-AUG-1992  Main program.
                                Calls: GDINIT, GEAMON, GINTRI, GZEBRA, HERMES,
                                       HLIMIT, HPLINT, IGINIT, IGSA, IGWKTY,
                                       KUARGS, KUEXEC (batch), KUEXIT, KUINIT,
                                       KUTERM, KUWHAG (inter), LNBLNK, TIMEL,
                                       TIMEST, UGINIT, VZERO.
* GE_ALL_THE_REST.FOR [2]       23-JUL-1992 Do general user functions.
* GPH.FOR          22-JUN-1992  Don McLeod's original Phobos MC package
* GRUN.FOR         30-APR-1992
GUFLD.FOR           7-JUL-1992  Calculate the magnetic field at any point.
                                Calls: SORTR.
                                Called by: GEANT.
GUKINE.FOR         29-JUN-1992  Steer primary track generation.
                                Calls: BANG, GPKINE, GPRINT, GPVERT, GSKINE,
                                       GSVERT, KUINQF, RANNOR
                                Called by: GTRIG.
GUOUT.FOR          25-JUN-1992  Do user end-of-event output procedures
                                Calls: GPRINT, GSAVE, UHTOC, USOUT.
                                Called by: GEANT.
GUSTEP.FOR          3-JUL-1992  Do user end-of-step procedures.
                                Calls: GDCXYZ, GSXYZ, USSTEP.
                                Called by: GEANT.
GUTREV.FOR          ??          User tracking control, takes no action.
                                Calls: GTREVE.
                                Called by: GEANT.
IO.CMN             15-NOV-1992  Define common IO: user input/output units.
PAWC.CMN                        Define common PAWC: storage for PAW banks.
PHCOMIS.FOR        29-JUN-1992  Define Phobos subroutines and commons to COMIS.
                                Calls: CSCOM, CSEXT, USCOMIS.
                                Called by: UGINIT.
PH_HIT.FOR         21-JUL-1992  Do user hit processing.
                                Calls: GSAHIT, GDTOM, GMTOD.
                                Called by: USSTEP.
PH_INIT.FOR         3-AUG-1992  Define histograms.
                                Calls: DATE, HBOOK1/2/N, HRFILE, TIME.
                                Called by: USINIT.
PH_LAST.FOR        29-JUN-1992  Output histograms and Ntuples at end of run.
                                Calls: HCDIR, HISTDO, HRPUT, HROUT, HREND.
                                Called by: USLAST.
PH_OUT.FOR         21-JUL-1992  Process hits and update ntuple at end of step.
                                Calls: GFHITS, GFKINE, HFN, HFILL, PRNTUP,
                                       USANAL, VZERO.
                                Called by: USOUT.
PH_USER.FOR [3]    29-JUN-1992  Defines size of commons GCBANK and PAWC.
                                Calls: PH_HIT.
                                Called by: ?.
PRNTUP.FOR         ??           Print Ntuple in useful format.
                                Calls: none.
                                Called by: PH_OUT.
PSKING.FOR         24-JUL-1992  Version of GSKING that adds user buffers to
                                KINE and VERT structures.
                                Calls: GSKINE, GSSTAK, GSVERT.
                                Called by: GUSTEP.
PTEMPLATE.FOR      27-OCT-1992  Template for Phobos code documentation.
RHBNG.CMN          ??           Define common RHBNG for PHCOMIS.
RHFLG.CMN          ??           Define common RHFLG for PHCOMIS.
RHSIL.CMN           8-JUL-1992  Define common RHSIL: silicon plane dimensions,
                                pixels, offsets, ...
RHSYS.CMN           7-JUL-1992  Define common RHSYS: general geometry
                                parameters.
SETBATCH.FOR       29-JUN-1992  Signal batch mode via COMIS & KUIP.
                                Called by: KUIP, if defined via PHCOMIS.
STEND.FOR          26-OCT-1992  Find end of string; called by STPARS.
STLEN.FOR          26-OCT-1992  Find length of string; called by STPARS.
STPARS.FOR         26-OCT-1992  Parse a string (Melanson / Ryan system).
                                Calls: STEND, STLEN, STRSTR, STTOIN, STTORL.
                                Called by: GUFLD, UGINIT.
STRSTR.FOR         26-OCT-1992  Find start of string; called by STPARS.
STTOIN.FOR         26-OCT-1992  Convert string to integer; called by STPARS.
STTORL.FOR         26-OCT-1992  Convert string to real; called by STPARS.
UFILES.FOR         15-NOV-1992  Open user input and output files.
                                Calls: none.
                                Called by: UGINIT.
UGCDEF.FOR         12-NOV-1992  Dispatch GEANT calls; called by UGCIN.
UGCGET.FOR          8-NOV-1992  Get next token; called by UGCIN.
UGCIN.FOR          17-NOV-1992  Steer UGC geometry and control input.
                                Calls: UGCDEF, UGCGET, UGCSET, UGCVAL.
                                Called by: UGINIT.
UGCSET.FOR         16-NOV-1992  Set Phobos variables; called by UGCIN.
UGCVAL.FOR          7-NOV-1992  Evaluate token by context; called by UGCIN.
UGEOM.FOR [4]       7-AUG-1992  Define materials and volumes for GEANT.
                                Calls: none external.
                                Called by: UGINIT.
UGINIT.FOR         16-NOV-1992  Control GEANT initialization and data input.
                                Calls: DATE, EUCARD, FFKEY, FFSET, GFFGO, GINIT,
                                       GOPEN, GPART, GPHYSI, GZINIT, STxxx,
                                       TIME, UFILES, UGCIN, UGEOM, USINIT,
                                       VZERO.
                                Called by: GEPHOB.
UGLAST.FOR         23-OCT-1992  Do end-of-run procedures.
                                Calls: GCLOSE [Zebra], GLAST, USLAST.
                                Called by: GEANT.
UHINIT.FOR [5]     26-OCT-1992  Define user histos; obsolete, replaced by USINIT
UJKBUF.CMN          3-JUL-1992  Define common UJKB: user buffer for JKINE banks.
USANAL             ??           User interface, null at present.
                                Calls: none.
                                Called by: PH_OUT.
USINIT.FOR         27-OCT-1992  User histo initialization interface.
                                Calls: PH_INIT.
                                Called by: UGINIT.
USLAST.FOR         27-OCT-1992  User end-of-run processing interface.
                                Calls: PH_LAST.
                                Called by: UGLAST.
USOUT.FOR          27-OCT-1992  User end-of-event processing interface.
                                Calls: PH_OUT.
                                Called by: GUOUT.
USSTEP.FOR [6]     27-OCT-1992  User end-of-step processing interface.
                                Calls: GPKINE, PH_HIT, PSKING.
                                Called by: GUSTEP.

        Notes:

[1] These are in GE_ALL_THE_REST.
[2] Contained parts of original GPH.FOR not yet separated into subroutines
[3] This file declares subroutines USSTEP, USINIT, USOUT, USLAST, USCOMIS,
    that call the PH_xxx routines; this needs to be split apart to follow
    the one-subroutine-per-file rule.
[4] UGEOM also contains geometry-definition subroutines BMTB, BMVC, COIL,
    CRYB, CRYS, FILL, OUTS, and SPEC, superceded by the UGC definitions
[5] Only UHINIT0 is presently available.
[6] USSTEP also declares the GCBANK and PAWC sizes, as does PH_USER; this is a
    conflict that must be fixed.

+DECK,STATUS  ,T=DATA.
*CMZ :  2.00/01 04/03/96  15.01.52  by  Phobos (R. Verdier)
*-- Author :
Status of files in phobos_root:[sim...]

5-Mar-96: (Robin Verdier)

A new version of the Phobos MC has been created on the LNS VAX
cluster, in directories phobos_root:[SIM.NEW...].  In a few
weeks, if no problems arise, it will replace the [SIM.PRO]
version.

This version, now called CMZ version # 2.00/00, is equivalent to
the  version in [SIM.TEST...] with all recent changes including
Adam  Trzupek's February 1996 geometry description in files
UGCDATA.TXT and UGCDENL.TXT, the latter having enlarged
spectrometer planes for occupancy studies.

The linkmc command procedure links to version 3.21 of Geant and
version 95A of the Cern libraries.  It contains both X-windows
and GKS versions, although the GKS version issues many annoying
color index error messages at initialization.

The CMZ library, PHOSIM.CMZ, has been slightly reorganized.  The
subdirectories /$MOD_GEANT and /$MOD_GEANX, which contained
correction cradles that modified GEANT subroutines GRUN and
GXCONT for Phobos use, and /GBASE and /GXINT, which contained the
unmodified versions, have been eliminated.  New procedures
MODCERN.COM and MAKECDES.COM now create CMZ .KUMACs that modify
the CERN originals and store them, along with modified versions
of ZABEND and ZEND, in patch /MODCERN.  A modified version of
GXFZ is no longer necessary.  New procedure UPCMZ.COM creates CMZ
.KUMACs to carry out essential code management tasks such as
updating, compiling, and extracting files; these tasks will be
necessary for GEANT and ZEBRA until CERN finally drops CMZ support.

DRAWSPEC.KUMAC is a PAW macro that displays scale drawings of the
Phobos spectrometer planes for new and old configurations.  It
calls SPECGEO.KUMAC, which has geometry data copied from UGCDATA
and which is also used by the acceptance study application.

The new PMC is run in the same way as previous versions.  You
can first define symbols for the new command and data directory
areas, say
  $ def pc phobos_root:[sim.new.cmd]
  $ def pd phobos_root:[sim.new.dat]
and then define your scratch area and set default there:
  $ def scratch disk$scratch:[<your username>]
  $ sd scratch
Copy the control file,
  $ copy pd:control.txt *
and edit it to specify the options you want, typically the number
of events (TRIG), the treatment of secondaries (SECT), and the
event source (GEN).
Copy the user definitions procedure to you area:
  $ copy pc:mcx.com *
and change the definitions therein to
  $ def scratch disk$scratch:[<your username>]
  $ def rhdata scratch:control.txt
To run interactively using the X-version, launch MacX if you're
running from a Mac, and
  $ set display/create/user/transport=tcpip/node=<your internet address>
If you are running a GKS version, you must do
  $ def gks$conid tt:
Now type
  $ @pc:rmc <OutputFilenames> mcx
where for example <OutputFilenames> might be hij20x12kzp10 for 20 events
(TRIG 20) from the standard HIJet event file (GEN 0), with vertex set to
+10 cm (RBZZ 10.).
Respond [CR] to the workstation type for the X-version, or 82 (Tektronix
4107 color emulation) or 72 (Tektronix 4010 monochrome emulation) if you
are running GKS.
You can make a simplified picture of the detector by typing
  exe pc:topview
and then
  trig 1
to see tracks.
For a full picture with all elements drawn, replace exe topview by
 draw outs 90 90 0 10 10 0.1 0.1
This version cannot use the usual PAW commands to save the picture in
a postscript metafile.  The reasons are being studied.

A run takes 50 cpu minutes on Hans if tracking secondaries (SECT 1),
9 cpu minutes otherwise (SECT 0).  The ntuple for SECT 0 uses 350 to
700 blocks per event (it is largest for the vertex at z = +10 cm).

It turns out useful to try a short run first, say TRIG 1 with
2000 tracks (NTPE 2000), to see that everything is working.

To submit a PMC run as a batch job,
  $ @pc:smc <OutputFilenames> mcx <QueueName>
where aage$long and hans$long are names of queues available for long
runs.

17-May-95: (Robin Verdier)  Version 1.01/18 is now in
  phobos_root:[SIM.ZTEST...].  It uses CERN V94b libraries and
  Geant 3.21, and has all changes through today.  The temporary
  working files for the most recent modifications are in
  phobos_root:[SIM.CURR].  The document BENCHMARKS.DOC in that
  area describes the benchmarks that will be applied to validate
  future modifications.

10-Nov-93: (Adam Trzupek)  A new version of the geometry text file
  UGCDATA.TXT is now available in phobos_root:[sim.test.data].
  See STATUS.DOC in that area for more information.

+DECK,INSTALL  ,T=DATA.
*CMZ :  2.03/00 04/08/97  17.01.54  by  Phobos (R. Verdier)
*-- Author :
       Instructions for installing the Phobos MC
            Robin Verdier, 25-Jul-1997

The procedures described in this note are fully operational under
DEC OSF and HP and IBM Unix.  Because CMZ is platform independent,
the extraction procedure, expho.kumac, runs also on SGI and Sun
platforms, and under VMS.  The unix compile and link scripts,
compho, linkmc, and lmcdefs, which will be replaced by makefiles
in the future, and the run scripts rmc and rmcdefs, are believed
to run on all of these platforms.  For VMS, the PMC should be
installed by using expho.kumac to extract the files and
COMPILE.COM, LINKMC.COM,  LMCDEFS.COM, RMC.COM, and RMCDEFS.COM to
compile, link, and run it.

The following discussion focuses on Unix installation; an older
document, LRSUSER.DOC, deals primarily with VMS.  Eventually these
documents will be merged into the basic guide, PMCUSER.DOC.

To use these procedures, you must have accounts at MIT or BNL and at
the target site, and you may need access to a text editor.

At BNL, you should log in to ribm01.rhic.bnl.gov (not ribm00), the
preferred BNL platform for running the MC.  The public BNL version
is in pr = /phobos/u/phobos/sim/pro...  New versions are usually
installed in /phobos/u/phobos/sim/new...

At MIT, you should log in to pierre.mit.edu.  The public version
is in /scratchp/phobos/sim/pro...  On the MIT Unix farm, the
standard but not yet public version is in /phobos/sim/pro...

1. Define a base path for the new files using set; for example

     setenv pr /scr01/rhphobos/$USER/test

   (Unix will replace $USER with your actual username).

2. Create subdirectories:

     mkdir $pr
     cd $pr
     mkdir awk cmd cmz dat doc exeaix inc libaix scr srcgen srcaix unix

   srcaix is necessary only if you are running on ibm; it is
   required because IBM's fortran 77 uses action = read instead
   of readonly.

   For DEC, create exeosf1 and libosf1 instead of exeaix and libaix.
   For HP, create exehp-ux and libhp-ux.
   Also create srcsrv if you plan to build the server instead of the
   normal version.
   In Sun Unix, it may be necessary to define $PR instead of $pr.

3. Import the cmz .car files and extract macro from MIT:

     cd $pr/cmz
     ftp irene.mit.edu
     user [your username]
     [enter your password]
     ascii
     cd phobos_root:[sim.new.cmz]
     mget *.car

   Respond y to the prompts for gcdes.car, phosim.car, and zcdes.car.
   Then do

     cd phobos_root:[sim.new.cmd]
     get expho.kumac ..cmd/expho.kumac

  and respond y to the prompt.  Finally, only if you plan to build the
  server version, which is no longer part of the standard package, do

     cd phobos_root:[mcserv.pro.cmz]
     mget *.car

   and again reply y to the prompt.  Finally, leave ftp by typing

     quit

   At BNL, the standard .car files are in $pr/cmz/ and expho.kumac is
   in $pr/cmd, where pr is defined as in Section 1.

4. Extract the source and data files by running the expho macro in cmz:

     cd ~
     /cern/new/bin/cmz
     exe $pr/cmd/expho

   Follow the prompting instructions.  If you defined the environment
   variable pr as above, you should be able to use $pr in answer to
   the optional pathname question.  You should extract the VMS command
   files only if you're on a VMS platform.

   Don't assume that environment variables in filenames will be
   correctly translated; full pathnames always work.

   When the macro has completed, type exit to leave cmz, or again
   type  exe $pr/cmd/expho  if you need to correct the previous run.
   On final completion, there should be 4 created .cmz files in
   $pr/cmz, and 136 files created from phosim.cmz.

5. Compile the archive libraries $pr/libxxx/libpmc.a and optionally
   the debug library libpmc_dbg.a and the server library libsrv.a,
   where xxx is aix, axp, hp-ux, osf1, vms, ..., by typing

     $pr/unix/compho

   and following the prompting instructions.  The f77 compiler does
   not translate environment variables, so you must enter the file
   pathnames in full, for example, when compiling the general files,
   you must type /phobos/u/phobos/sim/new/srcgen for the source
   directory, /phobos/u/phobos/sim/new/scr for the scratch directory,
   and /phobos/u/phobos/sim/new/libaix for the executable directory.
   You will have to execute compho once for the general files, once
   for the os-specific files, and, optionally, once for the server
   and files if you elect to build the server version.  At present,
   for the HP version, it is also necessary to use compho to
   create ezylink.o in the libhp-ux area.

   If you get the warning
     compho: Permission denied.
   type
     chmod +x $pr/unix/*
   to make the Unix scripts executable.


6. Link the MC from the archive libraries by copying $pr/unix/lmcdefs
   to your area and change the definitions of exedir, pmcdir, and
   srvdir as required by removing the initial # from the relevant
   lines and editing them; for example, to build your own executable,
   change the line in lmcdefs that defines exedir to

     set exedir = /scr01/rhphobos/<username>/test

   Execute the link by typing

     $pr/unix/linkmc

   and responding to the prompts; the defaults should be correct for
   an ibm link.

   The normal and server versions are functionally equivalent, but
   the server version writes messages whenever it opens or closes
   files.

   Different platforms produce different link error warnings; I am
   gradually correcting these.


7. You must either get a track file or use the standard one.  It is
   not part of the MC distribution, but a copy can be found at BNL in

     /u3/phobos/sim/pro/dat/au_au_hijet_centr_100.adat.

   This is the default in the rmc script described below.

8. Copy $pr/unix/rmcdefs to your work area and edit it to override the
   definitions of your scratch area and of the executable as necessary.
   The rmcdefs script contains examples of the scratch areas for
   different platforms.  For example, you might change the lines

     # set pr = /u3/phobos/sim/pro  # BNL standard version
   and
     # set scr = /scr01/rhphobos/$USER

   to

     set pr = /scr01/rhphobos/$USER/test
     set scr = /scr01/rhphobos/$USER/output

   assuming that you have created a version in that directory.  Having
   redefined the variable pr, you must also redefine every subsequent
   definition involving $pr.  For example, you must uncomment

     # set exe = $pr/exe$os/mcx.exe
     # set pmc_dat = $pr/dat

   and any further statements referring to $exe, $pr, $pmc_dat.  In
   general, if you redefine pr, you will need to uncomment most of
   the subsequent definitions.  This is unnecessary in the VMS equival-
   ent, where logical definitions are recursive.

   For standard running you should check that the relevant line for
   geometry definitions refers to the latest geometry file.  For
   example, at present,

     setenv GCDEFS $pmc_dat/ugccdata_v37.txt

   or, if you wish to run using symbolic links (see below)

     ln -f -s $pmc_dat/ugcdata_v37.txt  GCDEFS$slex

   and similarly for the magnetic field map:

     setenv FLDASC $pmc_dat/phomagv108.txt

   Normally, you will use your own version of the control.txt file;
   copy it from $pr/dat/control.txt, edit your copy, and change the
   line

     # setenv RHDATA $pmc_dat/control.txt

   in rmcdefs to, say,

     setenv RHDATA control.txt

   You must remove the comment indicator # from the start of each line
   that you want to activate.

   If you want X-windows graphics, you must also define your display
   by typing

     setenv DISPLAY <your display's IP name or address>:0

   Run the MC by typing

     rmc [label] [rmcdefs] [env] [vers]

   where

     label is the base label for created files, and defaults to "temp".
     rmc will prompt for label and rmcdefs if you do not specify them.

     rmcdefs is the name of your user definitions file, and defaults to
     "rmcdefs".

     env is e to use environment variables to specify file names; this
     is the default.  Any other value will use symbolic links, which
     are functionally equivalent but less convenient, and which do not
     allow you to run multiple background jobs from a single default
     directory in case you find a reason for doing that.

     vers is n to run the normal version, or s for the server; it
     defaults to "n".

   Reply to Geant's workstation? prompt by entering 1 for an X-display,
   7878 for a bad Falco Tektronix emulation, or 0 for no graphics.

   To display a top view of the detector, type

     exe phobos/u/phobos/sim/pro/cmd/topview

   in response to the Geant prompt; then type

     trig n

   to process n events.  You will have plenty of time for coffee now.
   Type exit at the prompt after processing is completed.  The
   ntuple[s] should be usable in paw; execute it after executing the
   setenv DISPLAY by typing

     /cern/new/bin/pawX11

   If the MC gives continual read or write error messages, it is likely
   that some input files do not exist, or output files already exist.
   Sometimes typing control-C will stop the run, but usually not;
   typing control-Z will put the run in the background, where you can
   use the kill command to kill it.  Otherwise, you'll have to
   disconnect and log in again.

   The existing output file problem often arises when when you kill a
   run and then re-execute it for the same filenames.  The cleanup
   script, executed by typing

     $pr/unix/cleanrmc s

   will delete all the soft links, which are deleted automatically at
   normal exit from the rmc script, from your current working
   directory.  You must also delete whatever actual files have been
   created, before re-running with the same filenames.

   If you get a "wrong architecture" message, you have probably defined
   the executable, variable exe in rmcdefs, for a platform different from
   the one on which you're running, for example,  $pr/exehp-ux/mcx.exe
   when you're running on an ibm platform.  The rmc script defines the
   variable $os to help ensure that $pr/exe$os will be correct.


9. To run the standard version on ribm01 at BNL, follow the above
   running instructions without redefining the executable; for
   example, if your current working directory contains your version of
   rmcdefs, called mcx, which defines the executable by the line

     set exe = /phobos/u/phobos/sim/new/exeaix/mcx.exe

   you can run the mc by typing

     set pc = /u3/phobos/sim/new/unix
     $pc/rmc hijet2 mcx

10. The most common failure of a PMC run has to do with file
   locations and status.  The open statements in ufile.f for an
   output file referenced by a symbolic link must specify the
   status as unknown on osf1 and hp-ux, new on vms and aix.  If
   the wrong version of ufile was used, you can hand-edit the
   version you extracted to change the status setting, which is
   internally documented.
     You must have write permission for the output directories.
   It's sometimes useful in checking a new link to isolate file
   access problems by turning off input reading by setting control
   file variables GEN to 1 and MAGT to 0, and output writing by
   setting SAOU, SNTU, and SZEB to 0, then turning them on one at
   a time.

11. To run in the background, end the rmc command line with &.  To
   make this work, you may need to create a file called, say,
   batch.txt containing the three lines

     0
     trig 10
     exit

   and give the command

     $pc/rmc hijet2 rmcdefs e n < batch.txt &

   We are continuing to study Unix batch facilities under Unix.
+PATCH,FOR.
*CMZ :  2.00/04 16/07/96  11.36.20  by  K.Wozniak
+DECK,ACCCHK.
*CMZ :  1.00/00 17/12/93  07.30.05  by  Phobos
*-- Author :
      REAL FUNCTION ACCCHK( TP, IDPART, PLANES, NAMES, NHITSL, LSTPLN)
************************************************************************
*                                                                      *
*   FUNCTION ACCCHK  - ACCEPTANCE CHECK                                *
*                                                                      *
*  9-AUG-93  MDB  Change the definition for e+/e- acceptance.          *
* 28-JUN-93  MDB  Initial Version                                      *
*                                                                      *
* A particle is accepted if it satisfies the following:                *
*                                                                      *
* p < 200 MeV         :  6/6  SPA-SPF  or  6/6  SNA-SNF                *
* 200 MeV < p < 1 GeV : 10/10 SPA-SPJ  or 10/10 SNA-SNJ                *
* p > 1 GeV           : 11/11 SPA-SPK  or 11/11 SNA-SNK                *
*                                                                      *
* SxH = SxH1 .OR. SxH2                                                 *
* SxI = SxI1 .OR. SxI2 .OR. SxI3 .OR. SxI4                             *
* SxJ = SxJ1 .OR. SxJ2 .OR. SxJ3 .OR. SxJ4                             *
* SxK = SxK1 .OR. SxK2 .OR. SxK3 .OR. SxK4                             *
*                                                                      *
* Exception: e+/e- must satisfy the following:                         *
*                                                                      *
* p < 200 MeV         :  7/7  SPC-SPI  or  7/7  SNC-SNI                *
* 200 MeV < p < 1 GeV :  8/8  SPC-SPJ  or  8/8  SNC-SNJ                *
* p > 1 GeV           :  9/9  SPC-SPK  or  9/9  SNC-SNK                *
*                                                                      *
* Input:                                                               *
*   TP        = momentum of particle (in GeV).                         *
*   IDPART    = GEANT Particle ID (Integer)                            *
*   PLANES(i) = .TRUE. iff Plane i was hit.                            *
*   NAMES(i)  = Name of plane i.                                       *
*   NHITSL    = # of silicon planes hit.                               *
*   LSTPLN    = Last plane hit.                                        *
*                                                                      *
* Output:                                                              *
*   ACCCHK    =  0.0 if the particle is NOT accepted at all.           *
*             =  1.0 if the particle is accepted in the POSITIVE wing. *
*             = -1.0 if the particle is accepted in the NEGATIVE wing. *
*             =  2.0 if the particle is accepted in the BOTH wings.    *
*                                                                      *
************************************************************************

      IMPLICIT NONE

C     Arguments
      CHARACTER*4 NAMES(*)
      REAL        TP, NHITSL
      LOGICAL     PLANES(*)
      INTEGER     LSTPLN, IDPART

C     Local variables
      INTEGER    NLAYER, NHITS
      PARAMETER (NLAYER=11)
      INTEGER    I, ILAYER
      LOGICAL POSIT(NLAYER), NEGAT(NLAYER)
      LOGICAL POS6,  POS10, POS11, NEG6,  NEG10, NEG11
      LOGICAL POS7E, POS8E, POS9E, NEG7E, NEG8E, NEG9E
      LOGICAL ACCPOS, ACCNEG, HITSOK, NRMMOD
      CHARACTER*1 SIDE, LAYER

C     First make sure that there are enough hits

      ACCCHK = 0.0

      NHITS = NINT( NHITSL )

      ACCPOS = .FALSE.
      ACCNEG = .FALSE.
      HITSOK = .FALSE.
      IF ( IDPART.GE.5 ) THEN
C        Normal Mode
         NRMMOD = .TRUE.
         HITSOK = ( (NHITS.GE.11)
     >         .OR. (NHITS.GE.10 .AND. TP.LE.1.0)
     >         .OR. (NHITS.GE.6  .AND. TP.LE.0.2) )
      ELSEIF ( IDPART.EQ.2 .OR. IDPART.EQ.3 ) THEN
C        Positron/Electron Mode
         NRMMOD = .FALSE.
         HITSOK = ( (NHITS.GE.9)
     >         .OR. (NHITS.GE.8 .AND. TP.LE.1.0)
     >         .OR. (NHITS.GE.7 .AND. TP.LE.0.2) )
      ENDIF

      IF (HITSOK) THEN

         DO 100, I = 1, NLAYER
            POSIT(I) = .FALSE.
            NEGAT(I) = .FALSE.
  100    CONTINUE

         DO 200 I = 1, LSTPLN
            IF (PLANES(I)) THEN
               IF (NAMES(I)(1:1) .EQ. 'S') THEN
                  SIDE   = NAMES(I)(2:2)
                  LAYER  = NAMES(I)(3:3)
                  ILAYER = ICHAR(LAYER)-64
                  IF (1.LE.ILAYER .AND. ILAYER.LE.NLAYER) THEN
                     IF (SIDE.EQ.'P') THEN
                        POSIT(ILAYER)=.TRUE.
                     ELSEIF (SIDE.EQ.'N') THEN
                        NEGAT(ILAYER)=.TRUE.
                     ENDIF
                  ENDIF
               ENDIF
            ENDIF
  200    CONTINUE


         IF (NRMMOD) THEN
            POS6  = ( POSIT(1) .AND. POSIT(2) .AND. POSIT(3) .AND.
     >                POSIT(4) .AND. POSIT(5) .AND. POSIT(6)      )
            POS10 = ( POS6 .AND. POSIT(7) .AND. POSIT(8)
     >                     .AND. POSIT(9) .AND. POSIT(10)      )
            POS11 = ( POS10 .AND. POSIT(11) )

            NEG6  = ( NEGAT(1) .AND. NEGAT(2) .AND. NEGAT(3) .AND.
     >                NEGAT(4) .AND. NEGAT(5) .AND. NEGAT(6)      )
            NEG10 = ( NEG6 .AND. NEGAT(7) .AND. NEGAT(8)
     >                     .AND. NEGAT(9) .AND. NEGAT(10)      )
            NEG11 = ( NEG10 .AND. NEGAT(11) )

            ACCPOS = ( POS11
     >             .OR. (POS10 .AND. TP.LE.1.0)
     >             .OR. (POS6  .AND. TP.LE.0.2) )

            ACCNEG = (      NEG11
     >             .OR. (NEG10 .AND. TP.LE.1.0)
     >             .OR. (NEG6  .AND. TP.LE.0.2) )

         ELSE

            POS7E = ( .NOT.POSIT(1) .AND. .NOT.POSIT(2) .AND. POSIT(3)
     >               .AND. POSIT(4) .AND. POSIT(5) .AND. POSIT(6)
     >               .AND. POSIT(7) .AND. POSIT(8) .AND. POSIT(9)     )
            POS8E = ( POS7E .AND. POSIT(10) )
            POS9E = ( POS8E .AND. POSIT(11) )

            NEG7E = ( .NOT.NEGAT(1) .AND. .NOT.NEGAT(2) .AND. NEGAT(3)
     >               .AND. NEGAT(4) .AND. NEGAT(5) .AND. NEGAT(6)
     >               .AND. NEGAT(7) .AND. NEGAT(8) .AND. NEGAT(9)     )
            NEG8E = ( NEG7E .AND. NEGAT(10) )
            NEG9E = ( NEG8E .AND. NEGAT(11) )

            ACCPOS = (   POS9E
     >             .OR. (POS8E .AND. TP.LE.1.0)
     >             .OR. (POS7E .AND. TP.LE.0.2) )

            ACCNEG = (   NEG9E
     >             .OR. (NEG8E .AND. TP.LE.1.0)
     >             .OR. (NEG7E .AND. TP.LE.0.2) )

         ENDIF

         IF (ACCPOS) THEN
            ACCCHK = 1.0
            IF (ACCNEG) THEN
               ACCCHK = 2.0
            ENDIF
         ELSEIF (ACCNEG) THEN
            ACCCHK = -1.0
         ELSE
            ACCCHK = 0.0
         ENDIF

      ENDIF

      RETURN
      END
+DECK,BANG.
*CMZU:  2.02/00 17/03/97  12.20.44  by  K. Wozniak
*CMZU:  2.00/10 19/09/96  13.54.35  by  Unknown
*CMZU:  2.00/04 16/07/96  11.36.20  by  Phobos (K. Wozniak)
*CMZU:  2.00/02 04/04/96  15.24.19  by  Phobos (R. Verdier)
*CMZU:  1.01/21 11/07/95  12.50.39  by  K.Wozniak
*CMZU:  1.01/17 13/04/95  08.05.02  by  K.Wozniak
*-- Author :    K.Wozniak   09/03/95
      SUBROUTINE BANG(MODE)
*Documentation_Block
*****************************************************************************
*
*   DESCRIPTION:
*   Generates events with random particles, they may have different
*   momenta, eta or cos(theta), phi, id, vertex position.
*   MODE = 1: The parameters describing particles are generated from flat
*             distributions (eta, P, phi)
*   MODE = 2: The emmision angle of the particles is selected to fit to
*             the spectrometer, other distributions are flat or fixed
*   MODE = 3: "Physical" distribution of particle momentum is used:
*             the distribution of tracks falls off exponentially
*             in transverse momentum as exp(-PT/REXP);
*             eta distribution has a trapezoidal shape.
*   MODE = 4,5:  temporarily undefined (for backward compatibility)
*   MODE = 6: flat distributions of: theta, 1/p, phi
*   MODE = 7: flat distributions of: eta, pt, phi
*   MODE = 8: flat distributions of: eta, 1/pt, phi
*   MODE = 9: not defined yet
*   MODE = 10: not defined yet
*       In modes 1 and 2, the momentum may be fixed, distributed flat over
*   an interval, or in a series of spikes according to the choice of PLOW
*   and PHIGH (see details below).
*       The angle range in mode 2 is determined by RSPX,RSPZ and RSPR
*       the position and the radius of the circle describing spectrometer
*   The particle id can be constant or change randomly(see details below)
*
*   ARGUMENTS:   MODE, see above.
*
*   CALLED BY:   GUKINE, depending on flags set for various event generators
*
*   CALLS:   GSVERT, GSKINE
*
*   Implicit inputs, outputs:  Parameters come through common blocks:
*   Parameters for the event generator are passed in /RHBNG/ & /RHSYS/
*   as shown in include blocks BANGC.CMN and RHSYS.CMN
* Mnemonic: Variable in /RHBNG/:             Meaning:
*  RMOM      RMOM(3)       Range of flat momentum distribution; if PLOW
*    (PLOW, PHIGH, PSTEP)  is within 0.001 Gev/c of PHIGH, fixed momentum.
*                          If PSTEP < 0.0001 GeV/c flat distribution between
*                          PLOW and PHIGH is used
*                          If PSTEP > 0.0001 GeV/c the momentum is distributed
*                          in spikes at PLOW, PLOW+PSTEP, PLOW+2*PSTEP,....
*                          PSTEP is ignored in mode 3; REXP governs it instead.
*                          PSTEP is ignored in modes 6,7,8
*  RMUL      IRMUL         Multiplicity of each BANG event event.
*  RARM      IRARM         If IRARM = 2 the particles will be send in both
*                          spectrometer arms
*  RANG      RANG(3)       Angle range - for mode = 6
*                          the particles are generated with theta between
*                          RANG(1) and RANG(2)
*  RPHI      RPHI(2)       Azimuth angle range
*                          the flat distribution between RPHI(1) and RPHI(2)
*                          and (in case IRARM=2 only) between RPHI(1)+180.0 and
*                          RPHI(2)+180.0 is used
*  RROT      RROT          phi rotation (not used here)
*  RBXX      RBXX          Central position of the intersection of beams
*  RBYY      RBYY
*  RBZZ      RBZZ
*  RBXY      RBXY          Projected width of intersection region in x-y plane
*                          events are Gaussian distributed arround x=RBXX,
*                          y=RBYY in projection, and azimuthally symmetric.
*                          If RBXY > 0 then RBDZ defines triangular distribution
*                          of z arround RBZZ
*  RBDX      RBDX          Range of the vertex positions arround
*  RBDY      RBDY          RBXX, RBYY, RBZZ for flat distributions
*  RBDZ      RBDZ          (only in case RBXY=0)
*  RPID      IRPID(2)      Particle ID (Geant code) generation:
*                           - fixed (IRPID(1)=IRPID(2))
*                           - generated flat between IRPID(1) and IRPID(2)
*                           - follow "physical" distribution
*                             for IRPID(1)=IRPID(2)=0 :
*                             20:20:1:1:1:1  (pi+ : pi- : K+ : K- : P : anpi p)
*  REXP      REXP          Mean transv. momentum, mode 3
*                       definition of spectrometer position (in MODE = 2 only)
*  RSPX      RSPX          Center of the spectrometer X - position
*  RSPZ      RSPZ          Center of the spectrometer Z - position
*  RSPR      RSPR          Radius of the circle covering the spectrometer
*
*     Output is event setup initiated through  GSVERT, GSKINE
*
*  History:
*  DATE        NAME      DESCRIPTION
*  17-Mar-97   K.W.      Forced STOP changed into a call to STOPER
*  20-SEP-96   K.W.      In MODE=2 new parameters independent of the magnetic
*                        field used: RSPX,RSPZ and RSPR (in place of MAGX,MAGZ)
*  16-Jul-96   K.W.      XOFF changed to MAGX
*  04-Apr-96   DMcL      RAN->RANF for OS independence
*  10-Jul-95   K.W.      New modes added
*  10-Apr-95   K.W.      Corrected error in the eta-theta transformation
*  10-Mar-95   K.W.      Changes in the modes of generation of the particles
*                        general changes in the code
*   1-Nov-93   R.V.      BANG.CMN -> BANGC.CMN to avoid MMS confusion
*  22-Nov-92   R.V.      Add pmc_inc: to includes; add UJKBUF.CMN; add space
*                          in GSKINE call for user buffer UBUF in JKINE
*  20-Nov-92   DMcL      Clean up, release
*  ~03/92      DMcL      Creation
****************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

+SEQ,BANGC.

+SEQ,FLAG.

+SEQ,RHSYS.

+SEQ,UJKBUF.

C Local:
      REAL VERT(3),PLAB(3),V,V1,V2,PP,PS,PHI
      REAL PLOW,PHIGH,PSTEP, CZ1,CZ2,Z, ETA, THETA
      REAL APLOW,APHIGH
      INTEGER ID,I,IR,NVERT,NT,NSPK,MODE
      LOGICAL MOMFLG,SPKFLG
      SAVE IR     !random number seed
      DATA IR/12347/
      REAL RANF
      EXTERNAL RANF
*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

      PLOW = RMOM(1)
      PHIGH = RMOM(2)
      PSTEP = RMOM(3)
      IF(MODE .EQ. 6)   THEN
        APLOW = PLOW    !   APLOW,APHIGH - for  1/p generation
        IF(APLOW .LT. 0.01)  APLOW = 0.01
        APLOW = 1.0/APLOW
        APHIGH = PHIGH
        IF(APHIGH .LT. 0.01)  APHIGH = 0.01
        APHIGH = 1.0/APHIGH
      ENDIF
      IF(MODE .EQ. 8)   THEN
        APLOW = 0.01    !   APLOW,APHIGH - for  1/pt generation
        APLOW = APLOW
        APHIGH = PHIGH
        IF(APHIGH .LT. 0.01)  APHIGH = 0.01
        APHIGH = ALOG(PHIGH)
      ENDIF


************************************************************************
* Generate beam intersection production point and tell GEANT about it  *
************************************************************************
      IF(RBXY .LT. 0.0001)  THEN   ! flat distribution of vertex position
        IF(RBDX .GT. 0.0001)  THEN
           VERT(1) = RBXX + RBDX * (2.0*RANF(IR)-1.0)
        ELSE
           VERT(1) = RBXX
        ENDIF
        IF(RBDY .GT. 0.0001)  THEN
           VERT(2) = RBYY + RBDY * (2.0*RANF(IR)-1.0)
        ELSE
           VERT(2) = RBYY
        ENDIF
        IF(RBDZ .GT. 0.0001)  THEN
           VERT(3) = RBZZ + RBDZ * (2.0*RANF(IR)-1.0)
        ELSE
           VERT(3) = RBZZ
        ENDIF

      ELSE    !  double Gaussian (x-y) and trianglular (z) distributions

    2   V1 = 2.0*RANF(IR) -1.0   !generate double Gaussian..
        V2 = 2.0*RANF(IR) -1.0   !see particle data booklet
        V = V1*V1 + V2*V2
        IF(V.GT.1.0) GOTO 2
        VERT(1) = RBXX + RBXY*V1*SQRT(-2.0*LOG(V)/V)
        VERT(2) = RBYY + RBXY*V2*SQRT(-2.0*LOG(V)/V)

C     Generate a triangular probability distribution for intersection z
        V1 = RANF(IR)
        V2 = RANF(IR)
        IF(V1.GT.V2) THEN
          VERT(3) = RBZZ + 0.5*RBDZ*(V1-1.0)
        ELSE
          VERT(3) = RBZZ + 0.5*RBDZ*V1
        ENDIF

      ENDIF   !   if(RBXY .GT. ...

      CALL GSVERT(VERT,0,0,0,0,NVERT)

************************************************************
*     Set up for various momentum distributions:
************************************************************
      MOMFLG = (ABS(PHIGH -PLOW).LT.0.001)
      SPKFLG = (PSTEP .GE. 0.0001)
      IF(MODE.EQ.3) THEN
        MOMFLG = .FALSE.
        SPKFLG = .FALSE.
      ENDIF
      IF(SPKFLG) NSPK = INT( (PHIGH-PLOW)/PSTEP ) + 1

***************************************************************
*     Set range (in cos theta) of track polar angles (MODE=2)
***************************************************************
      IF(MODE.EQ.2) THEN
         Z = VERT(3)
         ZC = RSPR
         RS = SQRT((ZC-Z)**2 + RSPX**2)
         CZ = (ZC-Z)*SQRT(RS**2-RSPR**2)/RS**2
         CZ2 = RSPX * RSPR/RS**2
         CZ1 = CZ + CZ2
         IF(CZ1.GE.0.9999) CZ1 = 0.9999
         CZ2 = CZ - CZ2
      ENDIF

************************************************************************
*  START LOOP OVER MULTIPLICITY                                        *
************************************************************************

      DO I = 1,IRMUL

********************************************
* Total momentum - MODE = 1, 2             *
********************************************
         IF(MOMFLG) THEN
            PS = PLOW
         ELSE IF(SPKFLG) THEN
            PS = PLOW + PSTEP*FLOAT( INT(FLOAT(NSPK)*RANF(IR)) )
            IF(PS.LT.0.010) PS = 0.010
         ELSE
            PS = PLOW + RANF(IR)*(PHIGH-PLOW)
         ENDIF

*********************************************************
*  Get random PLAB components:                          *
*    PS      = total momentum                           *
*    PLAB(3) = longitudinal component                   *
*    PLAB(1), PLAB(2) are calculated when phi is known  *
*********************************************************

         IF(MODE.EQ.1) THEN
           ETA = RETA(1) + RANF(IR)*(RETA(2)-RETA(1))
           PLAB(3) = PS*TANH(ETA)  !random pseudorapidity

         ELSE IF(MODE .EQ. 2)  THEN
           PLAB(3) = PS*(RANF(IR)*(CZ2-CZ1)+CZ1)   !random cosine theta

         ELSE IF(MODE .EQ. 3)   THEN

           IF(RETA(2)-RETA(1) .LT. 0.01)  THEN  ! fixed eta
              ETA = RETA(1)
           ELSE
             ETA = RETA(1) - 100.0
             DO  WHILE (ETA .LT. RETA(1) .OR. ETA .GT.RETA(2))
                IF(RANF(IR) .GE. 0.5)  THEN  !  flat central region
                   ETA = 4.0 * RANF(IR) - 2.0
                ELSE   !  triangular parts -6,-2  and  2,6
                   V1 = RANF(IR)
                   V2 = RANF(IR)
                   IF(V1 .GT. V2)  THEN   !  negative eta
                      ETA = -6.0 + 4.0 * V1
                   ELSE                   !  positive eta
                      ETA = 2.0 + 4.0 * V1
                   ENDIF
                ENDIF
              ENDDO
           ENDIF

           IF(PHIGH-PLOW .LT. 0.010)  THEN   !  fixed momentum
              PS = PLOW
           ELSE
C   Adding two values to make PP is supposed to distribute it as
C   PP*EXP(-PP/REXP) i.e. exponential falloff x phase space
              PS = PLOW - 1.0
              DO  WHILE (PS .LT. PLOW  .OR.  PS .GT. PHIGH)
                PP = -LOG(RANF(IR))*REXP
                PP = PP -LOG(RANF(IR))*REXP
                PP = PP / 2.0
                PS = PP / SQRT(1.0-TANH(ETA)**2)
                PLAB(3) = PS*TANH(ETA)  !random pseudorapidity
              ENDDO
           ENDIF

C---------------------         END  MODE = 3

         ELSE IF(MODE .EQ. 4  .OR.  MODE .EQ. 5)  THEN

            PRINT *, 'BANG:  GEN = 4  and  GEN = 5  have changed to',
     +               ' 11 and 0 respectively'
            CALL STOPER('BANG', 'ILLEGAL GEN MODE', 1)


         ELSE IF(MODE .EQ. 6)  THEN
            PS = 1.0 / ( APLOW + (APHIGH-APLOW)*RANF(IR) )
            THETA = RANG(1) + RANF(IR)*(RANG(2)-RANG(1))
            PLAB(3) = PS*COS(THETA/57.295779513)
C---------------------         END  MODE = 6

         ELSE IF(MODE .EQ. 7)   THEN
           ETA = RETA(1) + RANF(IR)*(RETA(2)-RETA(1))
           PS = PLOW - 1.0
           DO  WHILE (PS .LT. PLOW  .OR.  PS .GT. PHIGH)
                PP = RANF(IR) * PHIGH   !  flat Pt from 0.0 to PHIGH
                PS = PP / SQRT(1.0-TANH(ETA)**2)
                PLAB(3) = PS*TANH(ETA)  !random pseudorapidity
           ENDDO
C---------------------          END  MODE = 7

         ELSE IF(MODE .EQ. 8)   THEN
           ETA = RETA(1) + RANF(IR)*(RETA(2)-RETA(1))
           PS = PLOW - 1.0
           DO  WHILE (PS .LT. PLOW  .OR.  PS .GT. PHIGH)
              PP = 1.0 / ( APLOW + RANF(IR)*(APHIGH-APLOW) )
C                                  !  1/Pt  from 0.01 to PHIGH
              PS = PP / SQRT(1.0-TANH(ETA)**2)
              PLAB(3) = PS*TANH(ETA)  !random pseudorapidity
           ENDDO
C---------------------          END  MODE = 8

         ELSE
           PRINT *, 'BANG: undefined GEN: ', MODE
           CALL STOPER('BANG', 'UNDEFINED GEN MODE', 2)
         ENDIF         !      all  MODE  values


C  Generate the value of phi angle
         IF(RPHI(2)-RPHI(1) .LT. 0.01)  THEN  !  fixed phi
            PHI = RPHI(1) / 57.295779513
         ELSE
            PHI = RPHI(1) + (RPHI(2)-RPHI(1)) * RANF(IR)
            PHI = PHI / 57.295779513
         ENDIF
         IF(IRARM .GT. 1)  THEN   !  possible change of the arm
            IF(RANF(IR) .GT. 0.5)  THEN
               PHI = PHI + 3.14159265359
               IF(PHI .GT. 3.14159265359)  PHI = PHI - 6.28318530718
            ENDIF
         ENDIF
         PP = SQRT(PS*PS-PLAB(3)*PLAB(3))
         PLAB(1) = PP*COS(PHI)
         PLAB(2) = PP*SIN(PHI)

*****************************************
*     Generate the particle id          *
*****************************************
         IF(IRPID(1) .EQ. IRPID(2))  THEN
            ID = IRPID(1)
            IF(ID .EQ. 0)  THEN   !  select pi, K, p with ratios 20:1:1
              V = RANF(IR)
              IF(V .GE. 0.55)  ID = 8
              IF(V .GE. 0.1    .AND.  V .LT. 0.55 )  ID = 9
              IF(V .GE. 0.075  .AND.  V .LT. 0.10 )  ID = 11
              IF(V .GE. 0.05   .AND.  V .LT. 0.075)  ID = 12
              IF(V .GE. 0.025  .AND.  V .LT. 0.05 )  ID = 14
              IF(V .LT. 0.025)  ID = 15
            ENDIF
         ELSE
            ID = IRPID(1) +
     +             INT(FLOAT(IRPID(2)-IRPID(1)+1)*RANF(IR)*0.99999)
         ENDIF

         CALL VZERO(UBUF(1), NWUBMAX)
         CALL GSKINE(PLAB,ID,NVERT,UBUF,NWUBMAX,NT)

      ENDDO
      NTRK = IRMUL

      RETURN
      END
+DECK,BLOCKDATA.
*CMZU:  2.00/08 25/07/96  13.58.49  by  Phobos (R. Verdier)
*-- Author :    Phobos (R. Verdier)   25/07/96
       BLOCK DATA PMCBDAT
*Documentation_Block
************************************************************************
*
*  Description:
*  Block data for the Phobos MC.  Not executable.
*
*  Arguments:
*  none
*
*  Referenced by:
*  UGINIT, to force loading
*
*  Calls:
*  none
*
*  Implicit inputs, outputs, side effects:
*  ANSI-compliant method for setting default values of common variables
*
*  Filename: PMC_SRC:BLOCKDATA.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  25-Jul-96  R. Verdier Creation
************************************************************************
*End_Documentation_Block

+SEQ,MUPEP.
+SEQ,MUPEPD.
+SEQ,NTU.
+SEQ,NTUD.
+SEQ,NTUEX.
+SEQ,NTUEXD.
+SEQ,RHSIL.
+SEQ,RHSILD.

      end
+DECK,CYFLD.
*CMZ :  1.00/00 17/12/93  07.30.06  by  Phobos
*-- Author :
      SUBROUTINE CYFLD(R, V, BR, BV)
*Documentation_Block
************************************************************************
*
* Description:
*   Calculate the magnetic field from the two dimensional
*   cylindrical field map.
*   The map is stored in common block defined in CYFLDC.CMN
*   and read by GUFLD prior tothe first call to CYFLD
*
*   It is possible to use the magnetic field map calculated for the magnet
*   with smaller radius for other with the radius increased
*   by REXT (local parameter). In this case the field values for R < REXT are
*   identical with those for R=0 for the same value  V (in the original map)
*   This option should however be used only temporarily -
*   the magnetic field created this way is only aproximate
*
* Arguments:
*  *R   - radius of the requested point (cylindrical coordinate 1)
*  *V   - vertical position of the point (cylindrical coordinate 2)
*  BR*  - radial component of the field
*  BV*  - vertical component of the field
*
* Called by:
*  GUFLD
*
* Calls:
*  FINT
*
* Implicit inputs, outputs, side effects:
*  NONE
*
* Filename: CYFLD.FOR
*
* History:
* Date      Name       Description
* ----      ----       -----------
* 2-Dec-93  K.W.        Creation
************************************************************************
*End_Documentation_Block



      IMPLICIT NONE

+SEQ, CYFLDC.

      REAL R, V, BR, BV,  X(2), P, REXT
      PARAMETER (REXT=0.0)

      INTEGER NN(2)
      REAL FINT
      EXTERNAL FINT

      EQUIVALENCE (NN(1), NNR)

      X(1) = R - REXT
      IF(X(1) .LE. 0.0)  X(1) = 0.0

      X(2) = ABS(V)

      IF(R .LT. 0.0)  THEN
         WRITE(*,*) ' GUFLD: NEGATIVE  R  VALUE'
         GO TO 995
      ENDIF

      IF(X(1) .GT. 2.0*XTAB(NNR))   GO TO 995
      IF(X(2) .GT. 2.0*XTAB(NNR+NNV))   GO TO 995

      IF(X(1) .GT. XTAB(NNR))   X(1) = XTAB(NNR)
      IF(X(2) .GT. XTAB(NNR+NNV))   X(2) = XTAB(NNR+NNV)

      BR = FINT(2, X, NN, XTAB, BRTAB)
      BV = FINT(2, X, NN, XTAB, BVTAB)

      P = 1.0
      IF(R-REXT .GT. XTAB(NNR))  P = (2.0*XTAB(NNR)-R+REXT) / XTAB(NNR)
      IF(ABS(V) .GT. XTAB(NNR+NNV))   P = P *
     +                    (2.0*XTAB(NNR+NNV) - ABS(V)) / XTAB(NNR+NNV)
      BR = BR * P
      BV = BV * P

      IF(V .LT. 0.0)  BR = - BR

      GO TO 999

  995 CONTINUE
      BR = 0.0
      BV = 0.0

  999 CONTINUE
      RETURN
      END
+DECK,EUCARD,IF=EUCARD.
*CMZU:  2.00/02 18/07/96  10.43.10  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.06  by  Phobos
*-- Author :
C
C       ============================================================
        SUBROUTINE EUCARD
C       ============================================================
C
C       Description:-
C       =============
C          This is a utility routine for reading in GEANT control cards
C          during an interactive GEANT session. (It is therefore
C          written in VAX-specific code.)
C
C          The user is asked if card input is being supplied by a file.
C             YES ===> Give file name, or use default file
C             NO  ===> Supply cards interactively
C
C       Arguments:-
C       ===========
C         None
C
C       Implicit inputs, outputs, side effects:-
C       ========================================
C          See above.
C
C       Author:-
C       ========
C          WAZ
C
C       Creation Date: 11-Oct-1987
C       ===========================
C
C       Revisions:-
C       ===========
C           Date    Name  Description
C           ----    ----  ----------------------------------------
c  18-Jul-96  RV         Made conditional on CMZ select EUCARD
C  08-Jul-96  R. V.      Use lib$sys_trnlog if sel VMS, else KUQUINF
C     29-May-1992   CGP   Modified for PHOBOS
C
C       Global Specifications:-
C       =======================
        IMPLICIT NONE
+SEQ, GCLIST.
+SEQ, GCFLAG.
+SEQ, GCUNIT.
C
C       Local Specifications:-
C       ======================
C
      CHARACTER*1  reply             ! User input (Y/N)
      CHARACTER*63 GFFGO_file,       ! File for reading cards
     &             GFFGO_in          ! User-supplied file name
C
      INTEGER     LIN_save           ! For saving value of LIN
C
C       Executable statements:-
C       ========================
C
C-->    Ask where cards are to come from:
C
      WRITE ( LOUT, '(a,$)' )
     &              ' >>> Read cards from file?? (Y/N, Default=Y): <<<'
      READ  (    5, '(a1) ' )    reply
      If ( (reply .ne. 'N') .and. (reply .ne. 'n') ) Then
C
C-->     Save old value of LUN for input:
         LIN_save = LIN
         LIN      = 15
         CALL FFSET( 'LINP', 15 )
C
C-->     Get file name:
C
+SELF,IF=VMS.
         Call lib$sys_trnlog('CARDS$DEF',,GFFGO_file,,,)
+SELF,IF=-VMS.
c Use the KUIP file inquiry utility to get the actual file name
c This function fails, and actually sets LIN to 0
c*          call KUINQF (GFFGO_file, LIN)
         GFFGO_file = 'CARDS$DEF'
+SELF.
C
         WRITE ( LOUT, '(a,/,a,a)'   )
     &                 ' >>> Type in file for data cards:  <<<',
     &                 '     <CR> = ',    GFFGO_file
         READ  (    5, '(a)'         )    GFFGO_in
         If ( GFFGO_in .ne. ' '      )    GFFGO_file = GFFGO_in
C
         OPEN ( unit=15, file=GFFGO_file, status='OLD',READONLY)
         CALL GFFGO
         CLOSE( unit=15)
         CALL FFSET( 'LINP', LIN_save)
       Else
         WRITE( LOUT,15 )
         CALL GFFGO
      End If
C
C
15    FORMAT(
     &       ' >>> ENTER (UPPER-CASE !) DATA CARDS; ',
     &       'LAST ONE MUST BE "STOP" <<<'           )
C
C
C
      RETURN
      END
+DECK,EZYLINK.
*CMZU:  2.02/00 26/03/97  11.45.11  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.06  by  Phobos
*-- Author :
*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      Subroutine EZYLINK

c This file creates references to some modules so that the linker
c will load them from the Phobos library rather than GEANTxxx.OLB.
c It is unnecessary under VMS and most Unix systems.  It should
c never be called.

c 26-Mar-97: Unnecessary entries removed (R.V.)

      CALL GUSTEP
      CALL GUKINE
      CALL GUFLD
      CALL UGINIT
      CALL GUOUT
      End
+DECK,fill.
*CMZ :  1.00/00 17/12/93  07.30.21  by  Phobos
*--  Obsolete
*CMZ :          17/12/93  07.30.09  by  Phobos
*-- Author :
+DECK,FINTE.
*CMZ :  2.00/02 23/07/96  13.38.01  by  Phobos (R. Verdier)
*--  Obsolete
*CMZ :  1.00/00 17/12/93  07.30.06  by  Phobos
*-- Author :
+DECK,FINTERR.
*CMZ :  2.00/02 23/07/96  13.38.01  by  Phobos (R. Verdier)
*--  Obsolete
*CMZU:  1.00/00 22/11/93  15.48.57  by  R. Verdier
* Renamed to FINTERR as CMZ does not understand INTEGER*4 FUNCTION
*-- Author :
+DECK,GEPHOB.
*CMZU:  2.01/01 28/02/97  14.49.42  by  Phobos (R. Verdier)
*CMZU:  2.00/10 23/09/96  10.40.07  by  Unknown
*CMZU:  2.00/02 18/07/96  10.36.32  by  Phobos (R. Verdier)
*CMZU:  1.00/00 21/11/93  18.14.01  by  R. Verdier
* Removed obsolete GCFLAX include
*-- Author :
      PROGRAM GEPHOB
*Documentation_Block
************************************************************************
*
* Description:
*  This is the main program for the interactive version of the Phobos
*  Monte Carlo. It is copied from the GEANT interactive example program
*  with slight modifications.  Phobos-specific code is in the GUXXX
*  routines.
* File: pmc_src:GEPHOB.FOR
*
* Arguments: none
*
* Called by: system (main program)
*
* Calls:
*  GEANT/KUIP/HIGZ initialization routines KUARGS, GZEBRA, VZERO,
*  KUINIT, KUEXIT, KUTERM, GINTRI, IGINIT, IGWKTY, GEAMON, HPLINT,
*  HERMES, IGSA, UGINIT, GDINIT, TIMEST, TIMEL, KUEXEC, LNBLNK,
+SELF,IF=-NOSERV.
*  SERVER initialization and (UNIX) interrupts for "batch" (in UGSERV);
+SELF.
*  and UGCONS, and then passes control to KUWHAG or UGCONB.
*
* Implicit inputs, outputs, side effects:
*  Geometry definition file with logical name UGCDATA, read by UGCIN
*  Control file with logical name RHDATA, read by UGINIT
+SELF,IF=EUCARD.
*  Alternate control file with logical name CARDS$DEF, read by EUCARD
+SELF.
*  See phobos_root:[sim.doc]pmcuser.doc for specifications.
+SELF,IF=-NOSERV.
*  Added 10/95:  Logical names as above may still be used, (environment
*  variables in UNIX), but they may be specified instead by a SERVER input
*  file pointed to by SHELLCONTROL, i.e. a logical file name (VMS), or an
*  environment variable containing the file pathname (UNIX).  Such files
*  (usually named progname.ser) override "standard" logical names.  All
*  this is handled by UGSERV, called by GEPHOB.
*  See the SERVER documentation for more details on server files.
+SELF.

*  No conditions returned.
*
* History:
* Date       Name       Description
*  ----       ----       -----------
* 28-Feb-97  R.V.       Changed NWGEAN, 3.0->3.2M and NWPAW, .5->.4 M
* 23-Sep-96  K.W.       SIMVER initialization moved to UGINIT
* 14-Oct-95  DMcL       Added setup of SERVER data file, reading of
*                       other environment variables, UNIX signal
*                       monitor etc. with preprocessor switches on code,
*                       in routine UGSERV called below
* 21-Nov-93  RV         Removed obsolete GCFLAX include
* 02-Jun-93  RV         Added UGCONS and UGCONB calls to select batch
*                       or interactive mode if ModeSel = 0
* 01-Jan-93  RV         Increase GCBANK to 2.5M
* 02-Dec-92  RV         Changed GCFLAG and GCFLAX to includes; put in
*                       standard template with documentation block
* 03-Aug-92  R. Verdier Increased GCBANK size to 2.3M to run at B = 4.5 T
* 29-Jun-92  CGP        Added EZYLINK external statements to ease the
*                       link statement.
* 06-Jun-92  Chuck Parsons Creation from Geant example, with increased
*                       bank sizes: CHUCK@PIERRE.MIT.EDU
************************************************************************
*End_Documentation_Block
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       The interactive version of GEANT3                        *
C.    *       based on the KUIP command processor                      *
C.    *                                                                *
C.    *       See  KUIP User Guide  CERN/I202                          *
C.    *            R.Brun, P.Zanarini                                  *
C.    *                                                                *
C.    *       GXINT is currently implemented on                        *
C.    *             APOLLO                                             *
C.    *             VAX/VMS                                            *
C.    *             IBM/VM                                             *
C.    *             SUN/SPARC station                                  *
C.    *             DEC station 3100                                   *
C.    *             Silicon Graphics                                   *
C.    *                                                                *
C.    *           =====> IN GEANTDOC   GXINT  = ZINT001 <=====         *
C.    *       Authors:   R.Brun      **********                        *
C.    *                  P.Zanarini  **********                        *
C.    *                                                                *
C.    ******************************************************************
C.
      PARAMETER (NWGEAN=3200000,NWPAW=400000,NWKUIP=60000)
      COMMON/GCBANK/GEANT(NWGEAN)
      COMMON/PAWC/PAW(NWPAW)

+SEQ, FLAG2.
+SEQ, GCFLAG.
c
      COMMON/GCTIME/TIMINT,TIMEND,ITIME,IGDATE,IGTIME
      INTEGER ITIME,IGDATE,IGTIME
      REAL TIMINT,TIMEND

      COMMON/GCOMIS/ICOMIS,JUINIT,JUGEOM,JUKINE,JUSTEP,JUOUT,JULAST

      COMMON/GCXLUN/LUNIT(128)

      COMMON/CWK/IWK

      EXTERNAL UGLAST,IGTERM

      CHARACTER*80 BATCHF, GTLOG, LOGFIL

c Define the control mechanism:
c If ModeSel = 0, the logical filename CONTROL sets the mode:
c   if CONTROL = "I", the program runs in interactive mode; the user
c     enters GEANT-KUIP commands, in particular TRIG n to run for n
c     events, from the keyboard.
c   if CONTROL = "B", the program runs in batch mode; the number of
c     events is taken from the GCDEFS file.
c   if CONTROL = "anything.KUMAC", the program runs in batch mode,
c     using GEANT-KUIP commands, including TRIG n, taken from the
c     text file specified by CONTROL.
c If ModeSel = 1, the standard interactive GEANT technique is used,
c   in which the name of batch file containing GEANT-KUIP commands
c   is read from the command line in the form MCX/BATCHF=<filename>.
c   This mechanism fails when one attempts to run a program linked
c   with debug information, when an extra debugger input file is
c   required.

      integer ModeSel /0/
C  Local variables:
      INTEGER IERR, NH
*
*----------------------------------------------------------------------
C  executable code:
*
*            Batch or Interactive version ?
*
      BATCHF = ' '
      GTLOG = 'glogon.kumac'
C       Gets command line arguments e.g. MCX/BATCHF=commandfile
      CALL KUARGS('GEPHOB',GTLOG,BATCHF,LOGFIL,IERR)
      IF (IERR .NE. 0) GOTO 999
      NOLOG=.FALSE.
      BATCH=.FALSE.
      IF (BATCHF.NE.' ') BATCH = .TRUE.
      IF (GTLOG.EQ.' ')  NOLOG = .TRUE.
c Reset mode indicators if ModeSel = 0.  UGCONS calls CERNLIB INTRAC
c to see if batch or interactive; UNIX => redirected input implies batch
      if (ModeSel .eq. 0) call UGCONS (BATCH, BATCHF, NOLOG)
+SELF,IF=-NOSERV
*
*           Initialize SERVER, UNIX interrupts etc.
*
      CALL UGSERV
+SELF.
*
*           Initialize Memory Manager (ZEBRA)
*
      CALL GZEBRA(NWGEAN)
      NH=-NWPAW
      CALL HLIMIT(NH)
*
      CALL VZERO(ICOMIS,7)
      CALL VZERO(LUNIT,128)
      LUNIT(5)=6
      LUNIT(6)=6
      LUNIT(7)=6
      LUNIT(10)=8
      DO 5 I=11,18
         LUNIT(I)=6
   5  CONTINUE
      LUNIT(19)=8
      LUNIT(81)=7
      LUNIT(82)=7
      LUNIT(83)=7
      LUNIT(84)=7
      LUNIT(89)=7
      LUNIT(91)=8
      LUNIT(97)=7
*
*           Initialize Command Processor (KUIP)
*
      CALL KUINIT(NWKUIP)
      CALL KUEXIT(UGLAST)
      CALL KUTERM(IGTERM)
*
*           Define Menus and Commands
*
      CALL GINTRI
*
*
*           Initialize Graphics (HIGZ with GKS-GRAL and HPLOT)
*
      CALL IGINIT(0)
*
*
*           Request workstation type
*
      IF(BATCH)THEN
         IWK=0
      ELSE
         CALL IGWKTY(IWK)
      ENDIF
*
*            Initialise monitoring
*
      CALL GEAMON(0,' ')
*
*
*           Initialize HPLOT
*
      CALL HPLINT(IWK)
      CALL HERMES(6)
      IF(.NOT.BATCH)CALL IGSA(0)
*
*           Define User Geometry
*
      CALL UGINIT
*
*           Initialize GEANT graphics unless already done
*
      CALL GDINIT
*
*           Keep starting time
*
      IEVENT=0
      CALL TIMEST(1.E10)
      CALL TIMEL(TIMINT)
      CALL KUEXEC('SET/PROMPT ''GEANT >''')
*
*           Execute LOGON macro
*
      IF (.NOT.NOLOG) THEN
          LG=LNBLNK(GTLOG)
          CALL KUEXEC('EXEC '//GTLOG(1:LG))
      ENDIF
*
*            Reset history
*
      CALL KUEXEC('LAST 0')
*
      IF (BATCH) THEN

c Do standard or KUIP-macro batch processing
        if (BATCHF(1:1) .eq. ' ') then
          call UGCONB
        else
          CALL KUEXEC('EXEC '//BATCHF)
        endif
      ELSE
         CALL KUWHAG
      ENDIF
 999  CONTINUE
*
*            End monitoring
*
      CALL GEAMON(2,'GXINT')
*
      STOP
      END
+DECK,GUFLD.
*CMZU:  2.03/00 04/07/97  13.48.23  by  K. Wozniak
*CMZU:  2.00/10 23/09/96  12.29.47  by  Unknown
*CMZU:  2.00/06 21/07/96  21.40.50  by  Phobos (R. Verdier)
*CMZU:  2.00/04 16/07/96  11.28.57  by  Phobos (K. Wozniak)
*CMZU:  2.00/03 09/07/96  13.58.01  by  K.Wozniak
*CMZU:  1.01/21 10/07/95  13.49.21  by  K.Wozniak
*CMZ :  1.00/00 17/12/93  07.30.06  by  Phobos
*-- Author :
      SUBROUTINE GUFLD(VECT,B)
*DocumentationBlock
***********************************************************************
*                                                                     *
* Description:                                                        *
*  The Phobos-specific version of GUFLD which returns the magnetic    *
*  field B at any point VECT.  It has 3 modes, controlled by variables*
*  BFLD, RFLD, MAGT, MAGX, MAGZ and MOFF, in common RHSYS, which      *
*  can be specified on input cards:                                   *
*                                                                     *
*  BFLD is the field strength in kGauss.                              *
*  If you do not want to redefine the magnetic field values (strongly *
*  recomended for MAGT=3) BFLD=0.0 should be used.                    *
*  if it is different than 0.0 all field values will be multiplied by *
*  a factor equal:                                                    *
*     BFLD / Bcenter                                                  *
*  where Bcenter is the field strength at (MAGX, 0, MAGZ)             *
*                                                                     *
*  The position of the map can be changed by the MOFF parameter       *
*  the point VECT is THEN offset and  a point defined as:             *
*       VECTOFF = VECT - MOFF  (vector)                               *
*  is used as a position in the map.                                  *
*  THIS IS TRUE for standard PHOBOS map, however it is possible       *
*  for MAGT=2 to define a sub-map positioned absolutely               *
*                                                                     *
*  MAGT = 0:  no magnetic field at all                                *
*                                                                     *
*  MAGT = 1: Diagnostic mode                                          *
*   The field is a simple dipole field: Bx = Bz = 0,                  *
*   By = BFLD if r < RFLD, By = 0 otherwise,                          *
*   where rx = x - MAGX and rz = z - MAGZ.                            *
*                                                                     *
*  MAGT = 2: ASCII 3D-field map mode                                  *
*   At the first call, a map of the magnetic field components is read *
*   in.  First the values of the coordinates at grid points are read  *
*   Then there are the lines with the indexes coresponding to the     *
*   position of the point and the field vector (Bx,By,Bz).            *
*   The field values not exactly at the known point are linearly      *
*   interpolated using FINT for each of components Bx, By, Bz.  The   *
*   coordinates are transformed from the GEANT mother system to the   *
*   fieldmap system using information in COMMON.SYS.                  *
*                                                                     *
*  MAGT=3 The magnetic field is a superposition of two fields from    *
*   magnets. The field from each magnet is calculated in the case of  *
*   cylindrical symetry. Thus the magnetic field map is two dimensio- *
*   nal only. The map is read from an ASCII file with a similar format*
*   as for MAGT=2 (the difference is in the definition of points:     *
*   (x,y,z) for MAGT=2 and (r,v) for MAGT=3                           *
*   The field values from two-dimensional map are interpolated if     *
*   the point lies inside the boundaries. In the case of points       *
*   outside the boundaries the value from the closest point exactly   *
*   at the boundary is taken and multiplied by the factor lineary     *
*   decreasing with the distance from the boundary. It protects from  *
*   dangers of extrapolation of the field and avoids the sharp change *
*   of the field before it is set to zero                             *
*
*  Arguments:
*  *VECT: x = VECT(1)... = point at which B is to be evaluated   (input)
*  B*     B(1)...B(3) = field at point VECT                     (output)
*
*  Called by:
*  Geant tracking subroutines GHELIX or GRKUTA, called by GUSWIM
*
*  Calls:
*  Cern routine FINT to do linear interpolation
*  STOPER - in case of error in the map
*
*  Implicit inputs, outputs, side effects:
*  The field maps are read on unit Iusrmap, assumed to have been
*    opened in UGINIT; later, open will be done in GUFLD.
*  Initialization on local switch
*
*  History:
*  Date       Name        Description
*  ----       ----        -----------
*   2-Jul-97  K.W.        Unlimited number of sub-maps in MAGT=2 mode
*                         absolute and movable (by MOFF) sub-maps possible
*                         (PHOIND parameter)
*  20-Sep-96  K.W.        Reading of the map file:
*                          MAGV, MAGT - always modyfied
*                          MAGX, MAGZ, RFLD - changed only if it was 0.0
*                         Removed unused FANGL
*  21-Jul-96  R. V.       Removed unused zc, j, yneg
*  12-Jul-96  K.Wozniak   magnetic field center (MAGX,MAGZ) separated from
*                         the field offset (MOFF(3))
*  06-Jul-96  K.Wozniak   Removed ZEBRA map, added output of magnet
*                         information from the map to Ascii OUput file
*                         general reorganization of the code
*  03-Jul-96  A. Trzupek  Prepared map for the CDR magnet (MAGT=2)
*                         which comprises two maps precise one for
*                         spectrometer and less precise but larger
*                         in x and z for TOF. Changed gufld to allow for
*                         reading them.
*  10-Jul-95  K. Wozniak  Redefinition of the MAGT=2 mode
*  02-Mar-93  K. Wozniak  Added facility for cylindrical field map
*  09-Dec-92  C. Conner   Added facility for pre-sorted Zebra field map
*  17-Jun-92  C. Parsons  Extracted from GPH with unspecified changes
*  22-Mar-92  Don Mcleod  Initial version with Ascii field map, in GPH
************************************************************************
*EndDocumentationBlock

***********************************************************************

      IMPLICIT NONE

+SEQ, FLAG.
+SEQ, CYFLDC.
+SEQ, RHSYS.
+SEQ, IO.

C     Input variables

      REAL VECT(*)

C     Output variables

      REAL B(3)

C     Local variables

      REAL X(3)
      REAL VECTOFF(3)
      INTEGER NX,NY,NZ
      LOGICAL FIRSTC
      DATA FIRSTC /.TRUE./
      SAVE FIRSTC

C     External Functions
C     ------------------

      REAL FINT
      EXTERNAL FINT

C   ---- ASCII MAP DECLARATIONS --------------

      INTEGER I,K, IX,IY,IZ, IMAP, IEOF
      INTEGER NMAPMAX, MAXMAP, MAXGRID
******  maximum value allowed for NX*NY*NZ
      PARAMETER (MAXMAP=510000)
******  maximum value allowed for NX + NY + NZ
      PARAMETER (MAXGRID=300)
******  maximum value allowed for the number of maps
      PARAMETER (NMAPMAX=20)
      REAL A
      REAL BX,BY,BZ
      REAL BMAX2
      INTEGER NMAP, IPHOIND, IMPOS, IGPOS, NA
      COMMON /FLDMAP/ NMAP, IMPOS(NMAPMAX), IGPOS(NMAPMAX),
     1                IPHOIND(NMAPMAX), BMAX2(NMAPMAX),
     2                BX(MAXMAP),BY(MAXMAP),BZ(MAXMAP),
     3                A(MAXGRID), NA(3,NMAPMAX)

      CHARACTER*80 CBUF

C  -------- End of ASCII map declarations -------------


      REAL B1(3), B2(3), BR, BV, R1, R2, SINA, COSA, BMAX3
      INTEGER IR, IV
      INTEGER NLINES
      REAL MAGV, MAGNEW


*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C

      IF(.NOT. FIRSTC)  GO TO 200

        FIRSTC = .FALSE.

      IF(MAGT .EQ. 0 .OR. MAGT .EQ. 1)  THEN
        IF(ISAOU .GT. 0)  WRITE(IUSRAOU, '(A)' )
     +   ' *  Magnetic field set in the control file '
        IF(MAGT .EQ. 0)  THEN
          WRITE(*,*)  ' GUFLD - NO MAGNETIC FIELD'
          IF(BFLD .NE. 0.0)  WRITE(*,*) ' GUFLD - BFLD = ', BFLD,
     +          '   SET IN THE CONTROL FILE WAS IGNORED'
          WRITE(*,*)  ' GUFLD - BFLD = 0.0'
        ELSE IF(MAGT .EQ. 1)  THEN
          WRITE(*,*) ' GUFLD - MAGNETIC FIELD CONSTANT IN TWO CYLINDERS'
          WRITE(*,*) ' GUFLD - BFLD = ', BFLD
          IF(ABS(BFLD) .LT. 1.0E-10)
     +      WRITE(*,*)  ' GUFLD - USE  MAGT = 0  TO OBTAIN ZERO FIELD!'
        ENDIF
        GO TO 199
      ENDIF

*******************************************************
*   Read field map file in the first call             *
*******************************************************


      IF (MAGT .GE. 2)    THEN  !  read parameters of the map
c                               !  from the magnetic field map file

        IF(ISAOU .GT. 0)  WRITE(IUSRAOU, '(A)' )
     +   ' *  Magnetic field defined by the magnetic field map file'

        NX = 0   !  initialization for any kind of map
        NY = 0   !  zero denotes undefined field
        NZ = 0
        NNR = 0
        NNV = 0
        NLINES = 0
        NMAP = 0

   10  READ(IUSRMAP, '(A)', END=941)  CBUF
       NLINES = NLINES + 1
        IF(CBUF(1:1) .EQ. '*')  GO TO 10
        IF(CBUF(1:4) .EQ. 'MAGV')   THEN  !  magnetic field version number
           READ(CBUF(6:80), *, ERR=942)  MAGV
           GO TO 10
        ENDIF
        IF(CBUF(1:4) .EQ. 'MAGT')   THEN  !  redefinition of the field type
           READ(CBUF(6:80), *, ERR=942)  MAGT
           IF(MAGT .LT. 0  .OR.  MAGT .GT. 3)  GO TO 946  !  illegal value
           WRITE(*,*) ' GUFLD - MAP TYPE FOUND IN THE FILE = ', MAGT
           GO TO 10
        ENDIF
        IF(CBUF(1:4) .EQ. 'MAGX')   THEN  !  redefinition of magnet center
           READ(CBUF(6:80), *, ERR=942)  MAGNEW
           IF(MAGX .EQ. 0.0)  THEN
              MAGX = MAGNEW   !  MAGX changed only if it was zero
              WRITE(*,*) ' GUFLD - MAGX = ', MAGX
           ELSE
              WRITE(*,*) ' GUFLD - IGNORED MAGX FROM THE FILE:', MAGNEW
              WRITE(*,*) ' GUFLD - USED MAGX: ', MAGX
           ENDIF
           GO TO 10
        ENDIF
        IF(CBUF(1:4) .EQ. 'MAGZ')   THEN  !  redefinition of magnet center
           READ(CBUF(6:80), *, ERR=942)  MAGNEW
           IF(MAGZ .EQ. 0.0)  THEN
              MAGZ = MAGNEW   !  MAGZ changed only if it was zero
              WRITE(*,*) ' GUFLD - MAGZ = ', MAGZ
           ELSE
              WRITE(*,*) ' GUFLD - IGNORED MAGZ FROM THE FILE:', MAGNEW
              WRITE(*,*) ' GUFLD - USED MAGZ: ', MAGZ
           ENDIF
           GO TO 10
        ENDIF
        IF(CBUF(1:4) .EQ. 'RFLD')   THEN  !  redefinition of magnet radius
           READ(CBUF(6:80), *, ERR=942)  MAGNEW
           IF(RFLD .EQ. 0.0)  THEN
              RFLD = MAGNEW   !  RFLD changed only if it was zero
              WRITE(*,*) ' GUFLD - RFLD = ', RFLD
           ELSE
              WRITE(*,*) ' GUFLD - IGNORED RFLD FROM THE FILE:', MAGNEW
              WRITE(*,*) ' GUFLD - USED RFLD: ', RFLD
           ENDIF
           GO TO 10
        ENDIF
        IF(CBUF(1:2) .EQ. 'M ')   THEN  !  information to be copied to AOU file
           IF(ISAOU .GT. 0)  WRITE(IUSRAOU,'('' *'',A80)' ) CBUF(1:80)
           GO TO 10
        ENDIF

****************************************************************
*   End of general information - check the type of the field   *
****************************************************************

        IF(MAGT .EQ. 0)  GO TO 199
        IF(MAGT .EQ. 1)  GO TO 199
        IF(MAGT .EQ. 2)  GO TO 20
        IF(MAGT .EQ. 3)  GO TO 111
       GO TO 945

      ELSE

         GO TO 945   !  wrong type of the magnetic field

      ENDIF   !   MAGT .EQ. 2


*******************************************************
*  ASCII map method: field values given in a box      *
*******************************************************


*********************************************************************
*  Read the three-dimensional ASCII map (in a box)                  *
*  Format:                                                          *
*   - comments (starting with *) - description of the file contents *
*   - 'XAXIS:'  nx      - definition of the number of grids in      *
*                         x - direction                             *
*   - nx     values of X from 0.0 to maximum (sorted) - free format *
*   - comments (if any)                                             *
*   - 'YAXIS:'  ny      - definition of the number of grids in      *
*                         y - direction                             *
*   - ny     values of Y from 0.0 to maximum (sorted) - free format *
*   - comments (if any)                                             *
*   - 'ZAXIS:'  nz      - definition of the number of grids in      *
*                         z - direction                             *
*   - nz     values of Z from 0.0 to maximum (sorted) - free format *
*   - comments (if any)                                             *
*   - 'PHOMAG:' iphoind    - PHOBOS magnet flag:                    *
*      iphoind = 0   - map defined only in the area defined by AXIS *
*                      commands                                     *
*                      MOFF not valid for THIS PART OF the field    *
*      ipohind = 1   - definition for x>0 and y>0  extends to  all  *
*                      signs of x, y                                *
*                      field modified by MOFF                       *
*   - 'FIELD:'  bmax  - declaration of the begining of field values *
*                       bmax - maximal field for y=0                *
*   - field values in the nodes of the grid, one node per line:     *
*     ix  iy  iz   Bx  By  Bz      where:                           *
*     ix, iy, iz   - definition of the node point: (ix),Y(iy),Z(iz) *
*     Bx, By, Bz   - components of the field                        *
*  IT IS ASSUMED, THAT THE FIELD IS DEFFINED FOR:                   *
*        X >= 0,  Y >= 0,   Z in desired range                      *
*********************************************************************

   20 CONTINUE
       NMAP = NMAP + 1
       IF(NMAP .GT. NMAPMAX)  GO TO 956
       IMPOS(NMAP) = 0
       IGPOS(NMAP) = 0
       IF(NMAP .GT. 1)   THEN
          IMPOS(NMAP) = IMPOS(NMAP-1) + NX*NY*NZ
          IGPOS(NMAP) = IGPOS(NMAP-1) + NX + NY + NZ
       ENDIF
       NX = 0
       NY = 0
       NZ = 0
       IPHOIND(NMAP) = 1  !  standard - field from PHOBOS magnet
       GO TO 22

   21 CONTINUE
       READ(IUSRMAP, '(A)', END=941)  CBUF
       NLINES = NLINES + 1

   22  CONTINUE
       IF(CBUF(1:1) .EQ. '*')  GO TO 21
       IF(CBUF(1:6) .EQ. 'XAXIS:')  THEN
          READ(CBUF(7:80), *, ERR=942)  NX
          IF(NX .LT. 2 .OR. NX+NY+NZ+IGPOS(NMAP) .GT. MAXGRID)
     +                                                 GO TO 954
          READ(IUSRMAP, *, END=941, ERR=942)
     +                               (A(IGPOS(NMAP)+I), I=1,NX)
          NLINES = NLINES + 1
          GO TO 21
       ENDIF
       IF(CBUF(1:6) .EQ. 'YAXIS:')  THEN
          IF(NX .LT. 1)  GO TO 951
          READ(CBUF(7:80), *, ERR=942)  NY
          IF(NY .LT. 2 .OR. NX+NY+NZ+IGPOS(NMAP) .GT. MAXGRID)
     +                                                 GO TO 954
          READ(IUSRMAP, *, END=941, ERR=942)
     +                            (A(IGPOS(NMAP)+NX+I), I=1,NY)
          NLINES = NLINES + 1
          GO TO 21
       ENDIF
       IF(CBUF(1:6) .EQ. 'ZAXIS:')  THEN
          IF(NX .LT. 1)  GO TO 951
          IF(NY .LT. 1)  GO TO 952
          READ(CBUF(7:80), *, ERR=942)  NZ
          IF(NZ .LT. 2 .OR. NX+NY+NZ+IGPOS(NMAP) .GT. MAXGRID)
     +                                                 GO TO 954
          READ(IUSRMAP, *, END=941, ERR=942)
     +                          (A(IGPOS(NMAP)+NX+NY+I),I=1,NZ)
          NLINES = NLINES + 1
          GO TO 21
       ENDIF
       IF(CBUF(1:7) .EQ. 'MIRROR:')  THEN
          READ(CBUF(8:80), *, ERR=942)  IPHOIND(NMAP)
          IF(IPHOIND(NMAP) .NE. 0  .AND.
     +        IPHOIND(NMAP) .NE. 1)             GO TO 957
          GO TO 21
       ENDIF
       IF(CBUF(1:6) .EQ. 'FIELD:')  THEN
         IF(NX .LT. 1 .OR. NY .LT. 1 .OR. NZ .LT. 1)  GO TO 953
         IF(NX*NY*NZ+IMPOS(NMAP) .GT. MAXMAP)  GO TO 954
         READ(CBUF(7:80), *, ERR=942)  BMAX2(NMAP)  !  mominal maximum at y=0
         WRITE(*,*) ' GUFLD - MAXIMUM ABS(BY) IN Y=0 PLANE:',
     +                                             BMAX2(NMAP)
         IF(BFLD .NE. 0.0 .AND.  IPHOIND(NMAP) .NE. 0)  THEN
            WRITE(*,*) ' GUFLD - RESCALED VALUE = ', BFLD
         ELSE
            WRITE(*,*) ' GUFLD - NO RESCALING'
         ENDIF
         CALL VZERO(BX(IMPOS(NMAP)+1), NX*NY*NZ)
         CALL VZERO(BY(IMPOS(NMAP)+1), NX*NY*NZ)
         CALL VZERO(BZ(IMPOS(NMAP)+1), NX*NY*NZ)
         NA(1,NMAP) = NX
         NA(2,NMAP) = NY
         NA(3,NMAP) = NZ
   25    CONTINUE
          READ(IUSRMAP, '(A)', END=35, ERR=942)  CBUF
          NLINES = NLINES + 1
          READ(CBUF(1:80), *, ERR=31) IX,IY,IZ, B1(1),B1(2),B1(3)
          IF(IX .LT. 1  .OR.  IY .LT. 1  .OR.  IZ .LT. 1  .OR.
     +       IX. GT. NX  .OR.  IY. GT. NY  .OR.  IZ. GT. NZ) GO TO 959
          K = IMPOS(NMAP)  +  IX + NX * (IY-1 + NY*(IZ-1))
          BX(K) = B1(1)
          BY(K) = B1(2)
          BZ(K) = B1(3)
          IF(IX.EQ.NX.AND.IY.EQ.NY.AND.IZ.EQ.NZ) GO TO 30
          GO TO 25
       ENDIF

       GO TO 942  !   ERROR IN THE MAP

   30  CONTINUE
       READ(IUSRMAP, '(A)', END=35)  CBUF
       NLINES = NLINES + 1
   31  CONTINUE
       GO TO 20

   35 CONTINUE
ccc      CALL NEXTFILE(IUSRMAP, IEOF)
ccc      IF(IEOF .EQ. 0)  GO TO 30

  99  CONTINUE
      GO TO 199


*********************************************************************
*  Magnetic field is a superposition of two cylinrically symetrical *
*  fields from two magnets                                          *
*  2-dimensional ASCII map (IN cylindrical coordinates).            *
*  Format:                                                          *
*   - comments (starting with *) - description of the file contents *
*   - 'RADIAL:'  nnr   - definition of the number of grids in       *
*                        radial direction                           *
*   - nnr values of R from 0.0 to maximum (sorted) - free format    *
*   - comments (if any)                                             *
*   - 'VERTICAL:' nnv  - definition of the number of grids in       *
*                        vertical direction                         *
*   - nvv values of V from 0.0 to maximum (sorted) - free format    *
*   - comments (if any)                                             *
*   - 'FIELD:'      - declaration of the begining of field values   *
*   - field values in the nodes of the grid, one node per line:     *
*     ir iv  Br  Bv          where:                                 *
*     ir, iv - definition of the node point:  R(ir), V(iv)          *
*     Br  - radial component of the field                           *
*     Bv  - vertical component of the field                         *
*********************************************************************

  110  READ(IUSRMAP, '(A)', END=941)  CBUF
       NLINES = NLINES + 1
  111  IF(CBUF(1:1) .EQ. '*')  GO TO 110
       IF(CBUF(1:7) .EQ. 'RADIAL:')  THEN
          READ(CBUF(8:80), *, ERR=942)  NNR
          IF(NNR .LT. 2  .OR.  NNR .GT. NNRMAX)  GO TO 961
          READ(IUSRMAP, *, END=941, ERR=942) (XTAB(I), I=1,NNR)
          NLINES = NLINES + 1
          GO TO 110
       ENDIF
       IF(CBUF(1:9) .EQ. 'VERTICAL:')  THEN
          READ(CBUF(10:80), *, ERR=942)  NNV
          IF(NNV .LT. 2  .OR.  NNV .GT. NNVMAX)  GO TO 962
          READ(IUSRMAP, *, END=941, ERR=942)  (XTAB(NNR+I), I=1,NNV)
          NLINES = NLINES + 1
          GO TO 110
       ENDIF
       IF(CBUF(1:6) .EQ. 'FIELD:')  THEN
         IF(NNR .LT. 2  .OR.  NNV .LT. 2)   GO TO 963
         CALL VZERO(BRTAB(1), NNR*NNV)
         CALL VZERO(BVTAB(1), NNR*NNV)
  112    CONTINUE
          READ(IUSRMAP, '(A)', END=120, ERR=942)  CBUF
          NLINES = NLINES + 1
          READ(CBUF(1:80), *, ERR=942)  IR, IV, BR, BV
          IF(IR .LT. 1  .OR.  IV .LT. 1  .OR.
     +         IR. GT. NNR  .OR.  IV .GT. NNV)   GO TO 969
          BRTAB(IR+NNR*(IV-1)) = BR
          BVTAB(IR+NNR*(IV-1)) = BV
          GO TO 112
       ENDIF
       GO TO 942

  120  CONTINUE
**************************************************************************
*   Check if the map is completly filled (there should be no nods with   *
*   field equal zero)                                                    *
**************************************************************************
       DO  IR=1,NNR
          DO  IV=1,NNV
             IF(BRTAB(IR+NNR*(IV-1)) .EQ. 0.0  .AND.
     +                    BVTAB(IR+NNR*(IV-1)) .EQ. 0.0)   THEN
               WRITE(*,*) ' GUFLD - ZERO FIELD AT:',
     +                               XTAB(IR), XTAB(NNR+IV)
             ENDIF
          ENDDO
       ENDDO
       CALL  CYFLD(0.0, 0.0, B1(1), B1(2))
       CALL  CYFLD(2.0*MAGX, 0.0, BR, BV)
       B(1) = B1(1) - BR
       B(2) = B1(2) - BV
       BMAX3 = SQRT(B(1)**2 + B(2)**2)
       WRITE(*,*) 'MAGT = 3  BMAX = ', BMAX3
       IF(BFLD .NE. 0.0)  THEN
         WRITE(*,*) ' GUFLD - RESCALED VALUE = ', BFLD
       ELSE
         WRITE(*,*) ' GUFLD - NO RESCALING'
       ENDIF


***********************************************************
*   Output of the field parameters to Ascii OUtput file   *
***********************************************************

  199 CONTINUE
      IF(ISAOU .GT. 0)  THEN
         WRITE(IUSRAOU, '('' M MAGV '', F10.4)' )  MAGV
         WRITE(IUSRAOU, '('' M MAGT '', I10)' )  MAGT
         WRITE(IUSRAOU, '('' M MAGX '', F10.4)' )  MAGX
         WRITE(IUSRAOU, '('' M MAGZ '', F10.4)' )  MAGZ
         WRITE(IUSRAOU, '('' M RFLD '', F10.4)' )  RFLD
         WRITE(IUSRAOU, '('' M MOFF '', 3F10.4)' )  MOFF
         WRITE(IUSRAOU, '('' M BFLD '', F10.4)' )  BFLD
      ENDIF   !  ISAOU .GT. 0


***********************************************************
*   Calculation of the field values                       *
***********************************************************

  200 CONTINUE
      IF(MAGT .EQ. 0)  GO TO 990   !  zero field everywhere

      VECTOFF(1) = VECT(1) - MOFF(1)
      VECTOFF(2) = VECT(2) - MOFF(2)
      VECTOFF(3) = VECT(3) - MOFF(3)

      If(MAGT .eq. 1) Then      !  perfect dipole
        X(1) = (VECTOFF(3) - MAGZ)
C Bx,Bz always zero
        B(1)=0
        B(3)=0
        If(VECTOFF(1) .gt. 0)  then   !positive side of field
          X(2) = (VECTOFF(1) - MAGX)
          if( SQRT(X(1)**2+X(2)**2) .lt. RFLD )Then
            B(2)=BFLD
          Else
            B(2)=0
          Endif
        Else
          X(2) = (VECTOFF(1) + MAGX)
          if( SQRT(X(1)**2+X(2)**2) .lt. RFLD )Then
            B(2)=-BFLD
          Else
            B(2)=0
          Endif
        endif
        Return
      Endif      !   MAGT .EQ. 1


      IF (MAGT .EQ. 2)   THEN   !   field from the 3-D map of any kind
c                               !   of magnet
        X(1) = ABS(VECTOFF(1))
        X(2) = ABS(VECTOFF(2))
        X(3) = VECTOFF(3)

        DO  220  IMAP = 1,NMAP
           NX = NA(1,IMAP)
           NY = NA(2,IMAP)
           NZ = NA(3,IMAP)
           IF(IPHOIND(IMAP) .EQ. 1)  THEN
              IF(X(1) .GT. A(IGPOS(IMAP)+NX))  GO TO 220
              IF(X(2) .GT. A(IGPOS(IMAP)+NX+NY))  GO TO 220
              IF(X(3) .LT. A(IGPOS(IMAP)+NX+NY+1)  .OR.
     +              X(3) .GT. A(IGPOS(IMAP)+NX+NY+NZ))  GO TO 220
              GO TO 221
           ELSE    ! IPHOIND(IMAP) .EQ. 0
              IF(VECT(1) .LT. A(IGPOS(IMAP)+1)  .OR.
     +              VECT(1) .GT. A(IGPOS(IMAP)+NX))  GO TO 220
              IF(VECT(2) .LT. A(IGPOS(IMAP)+NX+1)  .OR.
     +              VECT(2) .GT. A(IGPOS(IMAP)+NX+NY))  GO TO 220
              IF(VECT(3) .LT. A(IGPOS(IMAP)+NX+NY+1)  .OR.
     +              VECT(3) .GT. A(IGPOS(IMAP)+NX+NY+NZ))  GO TO 220
              GO TO 221
           ENDIF
  220   CONTINUE
        GO TO 990

  221   CONTINUE
        IF(IPHOIND(IMAP) .EQ. 0)   THEN
          B(1) = FINT(3, VECT, NA(1,IMAP), A(IGPOS(IMAP)+1),
     +                                       BX(IMPOS(IMAP)+1) )
          B(2) = FINT(3, VECT, NA(1,IMAP), A(IGPOS(IMAP)+1),
     +                                       BY(IMPOS(IMAP)+1) )
          B(3) = FINT(3, VECT, NA(1,IMAP), A(IGPOS(IMAP)+1),
     +                                       BZ(IMPOS(IMAP)+1) )
        ELSE  !  IPHOIND(IMAP) .EQ. 1
          IF(BFLD .NE. 0.0  .AND.  BMAX2(IMAP) .NE. 0.0)  THEN
            B(1) = FINT(3, X, NA(1,IMAP),
     +                   A(IGPOS(IMAP)+1), BX(IMPOS(IMAP)+1) )
     +                                         * BFLD/BMAX2(IMAP)
            B(2) = FINT(3, X, NA(1,IMAP),
     +                   A(IGPOS(IMAP)+1), BY(IMPOS(IMAP)+1) )
     +                                         * BFLD/BMAX2(IMAP)
            B(3) = FINT(3, X, NA(1,IMAP),
     +                   A(IGPOS(IMAP)+1), BZ(IMPOS(IMAP)+1) )
     +                                         * BFLD/BMAX2(IMAP)
          ELSE
            B(1) = FINT(3, X, NA(1,IMAP), A(IGPOS(IMAP)+1),
     +                                       BX(IMPOS(IMAP)+1) )
            B(2) = FINT(3, X, NA(1,IMAP), A(IGPOS(IMAP)+1),
     +                                       BY(IMPOS(IMAP)+1) )
            B(3) = FINT(3, X, NA(1,IMAP), A(IGPOS(IMAP)+1),
     +                                       BZ(IMPOS(IMAP)+1) )
          ENDIF
C----- transformations in the case the point is not in y>0, x>0 part
          IF(VECTOFF(1) .LT. 0.0)  THEN
            B(2) = -B(2)
            B(3) = -B(3)
          ENDIF
          IF(VECTOFF(2) .LT. 0.0)  THEN
            B(1) = -B(1)
            B(3) = -B(3)
          ENDIF
        ENDIF

        RETURN

  230   CONTINUE   !  outside box the field is equal 0
        go to 990

      ENDIF    !   MAGT .EQ. 2


      IF(MAGT .EQ. 3)   THEN   !   field from the 2-D map of a cylindrically
c                              !   symetric magnet

        R1 = SQRT((VECTOFF(1)-MAGX)**2 + (VECTOFF(3)-MAGZ)**2)
        R2 = SQRT((VECTOFF(1)+MAGX)**2 + (VECTOFF(3)-MAGZ)**2)

        CALL CYFLD(R1, VECTOFF(2), BR, BV)

        IF(R1 .GT. 0.1E-20)  THEN
          SINA = (VECTOFF(1)-MAGX) / R1
          COSA = (VECTOFF(3)-MAGZ) / R1
        ELSE
          SINA = 0.0
          COSA = 0.0
        ENDIF
        B1(1) = SINA * BR
        B1(2) = BV
        B1(3) = COSA * BR

        CALL CYFLD(R2, VECTOFF(2), BR, BV)

        IF(R2 .GT. 0.1E-20)  THEN
          SINA = (VECTOFF(1)+MAGX) / R2
          COSA = (VECTOFF(3)-MAGZ) / R2
        ELSE
          SINA = 0.0
          COSA = 0.0
        ENDIF
        B2(1) = - SINA * BR
        B2(2) = - BV
        B2(3) = - COSA * BR

        B(1) = B1(1) + B2(1)
        B(2) = B1(2) + B2(2)
        B(3) = B1(3) + B2(3)

        IF(BFLD .NE. 0.0)  THEN
          B(1) = B(1) * BFLD/BMAX3
          B(2) = B(2) * BFLD/BMAX3
          B(3) = B(3) * BFLD/BMAX3
        ENDIF

      ENDIF    !    MAGT .EQ. 3

      RETURN


***********************************************************
*   General error messages                                *
***********************************************************

  941 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'UNEXPECTED EOF IN THE FIELD MAP FILE'
      WRITE(*,*) ' *** ERROR IN GUFLD - MAP NUMBER:', NMAP
      GO TO 970

  942 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ERROR READING FIELD MAP FILE'
      WRITE(*,*) ' *** ERROR IN GUFLD - MAP NUMBER:', NMAP
      GO TO 970

  945 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'UNDEFINED TYPE OF THE MAGNETIC FIELD:', MAGT
      GO TO 970

  946 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD -',
     +           'ERROR IN THE MAGNETIC FIELD MAP FILE'
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'ILLEGAL TYPE OF THE MAGNETIC FIELD:', MAGT
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'ONLY  MAGT = 2  OR  MAGT = 3  ARE ALLOWED'
      GO TO 970

***********************************************************
*   Error messages for MAGT=2                             *
***********************************************************

  951 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - X GRID HAS TO BE DEFINED FIRST'
      WRITE(*,*) ' *** ERROR IN GUFLD - MAP NUMBER:', NMAP
      GO TO 970

  952 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - Y GRID HAS TO BE DEFINED ',
     +               'BEFORE Z GRID'
      WRITE(*,*) ' *** ERROR IN GUFLD - MAP NUMBER:', NMAP
      GO TO 970

  953 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'ALL GRIDS HAS TO BE DEFINED BEFORE ',
     +           'FIELD VALUES DEFINITIONS'
      WRITE(*,*) ' *** ERROR IN GUFLD - MAP NUMBER:', NMAP
      GO TO 970

  954 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'TOO BIG MAP (MAGT=2) NUMBER: ', NMAP
      WRITE(*,*) ' *** ERROR IN GUFLD - X, Y, Z GRID:', NX, NY, NZ
      GO TO 970

  956 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'TOO MANY MAPS (MAGT=2) IN THE FILE:', NMAP
      GO TO 970

  957 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'ILLEGAL PHOMAG PARAMETER VALUE:', IPHOIND(NMAP)
      WRITE(*,*) ' *** ERROR IN GUFLD - MAP NUMBER:', NMAP
      GO TO 970

  959 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'ERROR IN INDEX OF THE MAP (MAGT=2) ELEMENT:',
     +                    IX, IY, IZ
      WRITE(*,*) ' *** ERROR IN GUFLD - MAP NUMBER:', NMAP
      GO TO 970

***********************************************************
*   Error messages for MAGT=3                             *
***********************************************************

  961 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'TOO BIG SIZE OF THE FIELD MAP (MAGT=3)',
     +           ' OR WRONG VALUE OF R-GRID, R,V=', NNR, NNV
      GO TO 970

  962 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'TOO BIG SIZE OF THE FIELD MAP (MAGT=3):',
     +           ' OR WRONG VALUE OF V-GRID, R,V=', NNR, NNV
      GO TO 970

  963 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'R,V GRIDS HAS TO BE DEFINED BEFORE ',
     +           'FIELD VALUES DEFINITIONS'
      GO TO 970

  969 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'ERROR IN INDEX OF THE MAP (MAGT=3) ELEMENT:',
     +                      IR, IV
      GO TO 970

***********************************************************
*   Final error message                                   *
***********************************************************

  970 CONTINUE
      WRITE(*,*) ' *** ERROR IN GUFLD - ',
     +           'ERROR IN THE MAP FILE, ABOUT LINE: ', NLINES
      WRITE(*,*) ' *** ERROR IN GUFLD - ERROR LINE: ', CBUF
      CALL STOPER('GUFLD', 'FATAL ERROR', 1)


***********************************************************
*   Magnetic field equal 0                                *
***********************************************************

  990 CONTINUE
      B(1) = 0.0
      B(2) = 0.0
      B(3) = 0.0

      RETURN

      END
+DECK,GUKINE.
*CMZU:  2.01/00 07/02/97  13.55.43  by  K.Wozniak
*CMZU:  2.00/14 21/11/96  14.46.25  by  K.Wozniak
*CMZU:  2.00/08 25/07/96  12.47.28  by  Phobos (R. Verdier)
*CMZU:  2.00/06 21/07/96  21.45.56  by  Phobos (R. Verdier)
*CMZU:  2.00/03 09/07/96  12.29.11  by  K.Wozniak
*CMZU:  2.00/02 04/04/96  16.01.12  by  Phobos (R. Verdier)
*CMZ :  2.00/00 08/08/95  01.05.08  by  Phobos (R. Verdier)
*CMZU:  1.01/21 11/07/95  20.31.31  by  K.Wozniak
*CMZU:  1.01/17 13/04/95  08.06.16  by  K.Wozniak
*-- Author :    K.Wozniak   09/03/95
       Subroutine GUKINE
*Documentation_Block
************************************************************************
*
*  Description:
*  User version of GUKINE loads the KINE structure with tracks.
*
*  Arguments:
*  none
*
*  Called by:
*  GTRIG
*
*  Calls:
*  BANG, GPKINE, GPVERT, GSKINE, GSVERT, LENOCC, RANNOR, UFILE
*
*  Implicit inputs, outputs, side effects:
*  Loads KINE structure; uses user KINE buffer.  Variables in MUPEP
*  control # tracks processed concurrently.
*
*  Filename: PMC_SRC:GUKINE.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*   7-Feb-97  K. W.      corrected error in phi selection criterion
*  21-Nov-96  K. W.      corrected infinite loop in the case of non existing
*                        input file
*  25-Jul-96  R. V.      Remove MUPEPD include for ANSI compliance
*  21-Jul-96  R. V.      Remove unused plb, ier, pp, pt
*  05-Jul-96  K.Wozniak  Information from the file copied to Ascii OUtput file
*  04-Apr-95  D. McLeod  UFILE replaced by SERVER as part of UNIX port
*  07-Aug-95  R. Verdier RBZZ sets VERT(3), not VERT(2)
*  10-Jul-95  K. Wozniak Changes in the meaning of the GEN parameter:
*                        GEN = 0  - tracks from an input file
*                        GEN = 1-10 - tracks from BANG generator
*                        GEN = 11-20 - previously GEN=4 mode and extentions
*                        New step mode added (step  1/p)
*  11-Apr-95  K. Wozniak Corrected calculations in mode=4 -
*                        removed dependence of momentum on emmision angle
*  17-Mar-95  K. Wozniak Skipping of events and tracks at the begining
*                        of input data file added
*  10-Mar-95  K. Wozniak Changed the meaning of the GEN parameter:
*                        GEN = 1 - random flat distributions of p,eta,phi,vertex
*                        GEN = 2 - tracks covering the spectrometer acceptance
*                        GEN = 3 - random tracks with more "physical" distr.
*                        GEN = 4 - tracks with a parameter changing continously
*                        GEN = 5 - tracks from an input file
*                        The selection of momentum, phi etc. is performed
*                        for each GEN mode
*  18-Jul-94  K. Wozniak Initialize NtPrev
*  09-Nov-93  R. V.      MUPEP.CDA -> MUPEPD.CMN, BANG.CMN -> BANGC.CMN
*                          for code management
*  05-Jun-93  R. V.      Multipass mods: read or generate only NtConc
*                        tracks per pass, Ntpe tracks per event;
*                        see MUPEP.CMN, MUPEP.CDA for definitions.
*                        Use UFILE for track input on logical GENEVS,
*                        replacing FOR037.
*  27-Jun-92  R. V.      Add user buffer UJKBUF to JKINE
*  27-Mar-92  C. Parsons Separate from GPH; add track read-in
*     Mar-92  D. Mcleod  Creation in GPH package
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

+SEQ,FLAG.
+SEQ,IO.
+SEQ,BANGC.
+SEQ,GCFLAG.
+SEQ,GCPHYS.
+SEQ,MUPEP.
+SEQ,RHSYS.
+SEQ,UJKBUF.

C External function returning length of a string
      integer LENOCC
      real RANF
      external RANF

C  Local:
      Integer LUN,  ! unit to open event file on
     &        ID    ! Geant ID from event file
      INTEGER ios, Nusef, NVTX, NT
      INTEGER ISTEPA, ISTEPP, ISTEPV, IR
C  Added for long format call of SERVER:
      INTEGER IRUN1,IRUN2
      REAL VERT(3), PLAB(3)
      REAL  PS, PX, PY, PZ, DPP, V1, V2, V
      CHARACTER*80 FILE_NAME
      CHARACTER*80 LINESTR
      real pmag,theta,phi,phi180,eta  ! particle parameters
      real phid,phid180
c Limits on accepted theta to avoid infinite pseudorapidity:
      real ThetaMin / 1.0e-7 /, ThetaMax / 3.1415926 /

      data Nusef /0/
      save ID, LUN, VERT
      SAVE ISTEPA, ISTEPP, ISTEPV, IR
      DATA ISTEPA, ISTEPP, ISTEPV / 0, 0, 0 /
      DATA IR  /12347/


c End of declarations
C
C Error message should be  handled more generally
C
      integer lout
      lout=6
C

      IF(IGEN.EQ.0) THEN

c *********************************************************
c Text file event input
c Input is read on logical unit GENEVS.
c All lines start with a single KEY letter:
C   letter "C"  Comment line, ignored
C   letter "I"  Information line - copied to Ascii OUtput file
C   letter "V"  Vertex (x,y,z) where particles start
C   letter "P"  Particle ID, P, THETA, PHI of particle
C   letter "E"  End of event
c   anything else stops the job with an error message, as
c   does a read or format conversion error.
c Processing is controlled by variables Ntconc and Ntpe in common
c MUPEP.  A maximum of Ntconc tracks are processed in one pass.
c Tracks are processed until Ntpe primary tracks have been processed,
c or an "E" line is read.  If no "E" line is present, the file is
c rewound and reread with a phi-rotation added.
C
C Sample event input file
C
C    C Define an event with three particles , pi+, pi-, p
C    C
C    V 0.0 0.0 0.0
C    P 8 1.0 0.5 0.0
C    P 9 2.0 0.5 0.1
C    P 14 3.0 0.75 0.0
C    E
c *********************************************************

************************************************************
*   Opening of the input file
************************************************************

        if (Epstate .eq. 0) then
+SELF,IF=NOSERV.
          call UFILE (0, 'GENEVS', Lun, File_Name)
          if (Lun .le. 0) then
            write (lout, '(a)') ' GUKINE: unable to open track file:' //
     +                           File_Name
            Epstate = 3
          else
            WRITE (lout,'(2a)') ' GUKINE: reading tracks from ',
     1      File_name( 1:LENOCC(File_name) )
            Nusef = 0
+SELF,IF=-NOSERV.
C  Replace by SERVER which calls STOPER rather than returning neg. Lun:
            CALL SERVER('GENEVS',IDRUN,Lun,File_Name,0,0,0,IRUN1,IRUN2)
            WRITE (lout,'(2a)') ' GUKINE: reading tracks from ',
     1        File_name( 1:LENOCC(File_name) )
            Nusef = 0
+SELF.
            if(ISAOU .gt. 0)  then
                  write(iusraou, '('' *'')' )
                  write(iusraou, '('' * Input file information'')' )
                  write(iusraou, '('' I NESK '', i10)' ) neskip
                  write(iusraou, '('' I NTSK '', i10)' ) ntskip
            endif

************************************************************
*  Skipping of NeSkip events and then NtSkip tracks
*  at the beginning of input text file
************************************************************
            do while  (NeSkip .gt. 0  .or.  NtSkip .gt. 0)
               Read (LUN, '(a)', iostat=ios) linestr

               if (ios .eq. -1) then
c On end of file, rewind and reread file with increased phi rotation
                 if(abs(RROT) .gt. 0.001)  then
                   rewind (LUN)
                   Nusef = Nusef + 1
                   write(lout, '(a,i5,a)')
     +                     ' GUKINE: Input file rewound ',
     +                                  nusef, '  time'
                 else     ! file is not rewound if no rotation requested
                   Epstate = 3
                   NtSkip = 0
                   NeSkip = 0     !  abort run
                   write(lout, '(a)')
     +                ' GUKINE: Input file can not be rewound '
                 endif

               elseif (ios .gt. 0) then
c On read error, abort run
                 write (lout, '(2a/1x,a)')
     +               ' GUKINE: Quit while skipping',
     1               ' input read error, line:', linestr
                  Epstate = 3
                  NeSkip = 0
                  NtSkip = 0

               else

                 If (NeSkip .gt. 0)  then

                   If (linestr(1:1).eq.'E' .or.
     +                           linestr(1:1).eq.'e') Then
c On "E" line: count down the number of events to skip
                     NeSkip = NeSkip - 1
                     Epstate = 2
                   endif

                 else    !  only NtSkip is greater than  0

                   If (linestr(1:1).eq.'E' .or.
     +                           linestr(1:1).eq.'e') Then
c On "E" line: More tracks to skip than in the event - it is an error
                      write (lout, '(2a/1x,a)')
     +                  ' GUKINE: Quit while skipping, not enough ',
     1                  ' tracks to skip in the event'
                     NtSkip = 0
                     Epstate = 3
                   endif
                   If (linestr(1:1).eq.'P' .or.
     +                           linestr(1:1).eq.'p') Then
                      NtSkip = NtSkip - 1
                   endif

                 endif  !  NeSkip .gt. 0

               endif  ! ios .gt. 0

            enddo   !   while (NeSkip.GT.0)
+SELF,IF=NOSERV.
          endif   !  Lun .le. 0
+SELF.
        endif   !  Epstate .eq. 0

        if (Epstate .eq. 0 .or. Epstate .eq. 2) then

************************************************************
*   Initialization at the begining of event
************************************************************

          Epstate = 1
          MPind = 0
          NtPrim = 0
          NtTot = 0
          NvPrev = 0

**********************************************************************
* Define a default vertex position in case not specified in dataset
**********************************************************************
          IF(RBXY .LT. 0.0001)  THEN   ! flat distribution of vertex position
            IF(RBDX .GT. 0.0001)  THEN
               VERT(1) = RBXX + RBDX * (2.0*RANF(IR)-1.0)
            ELSE
               VERT(1) = RBXX
            ENDIF
            IF(RBDY .GT. 0.0001)  THEN
               VERT(2) = RBYY + RBDY * (2.0*RANF(IR)-1.0)
            ELSE
               VERT(2) = RBYY
            ENDIF
            IF(RBDZ .GT. 0.0001)  THEN
               VERT(3) = RBZZ + RBDZ * (2.0*RANF(IR)-1.0)
            ELSE
               VERT(3) = RBZZ
            ENDIF

          ELSE    !  double Gaussian (x-y) and trianglular (z) distributions

            V = 100.0
            DO WHILE(V .GT. 1.0)
              V1 = 2.0*RANF(IR) -1.0   !generate double Gaussian..
              V2 = 2.0*RANF(IR) -1.0   !see particle data booklet
              V = V1*V1 + V2*V2
            ENDDO
            VERT(1) = RBXX + RBXY*V1*SQRT(-2.0*LOG(V)/V)
            VERT(2) = RBYY + RBXY*V2*SQRT(-2.0*LOG(V)/V)

C     Generate a triangular probability distribution for intersection z
            V1 = RANF(IR)
            V2 = RANF(IR)
            IF(V1.GT.V2) THEN
              VERT(3) = RBZZ + 0.5*RBDZ*(V1-1.0)
            ELSE
              VERT(3) = RBZZ + 0.5*RBDZ*V1
            ENDIF

          ENDIF   !   if(RBXY .GT. ...

        elseif (Epstate .eq. 1) then

*****************************************************************
*   In the middle of the event (when splitted into small parts)
*****************************************************************

c Save cumulative vertex count in case we eventually write it in Ntuples
          NvPrev = NVTX
        endif
        NtPrev = NtTot

c Set flag to force a primary vertex to be defined
        NVTX = -1

c Set the number of tracks and read the next multi-pass group

        MPind = MPind + 1
        NtMax = min(NtPrim + NtConc, NtpE)
        if (Epstate .gt. 2) NtMax = 0

************************************************************
*   Loop over tracks in the input text file
************************************************************

        do while (NtPrim .lt. NtMax)

          Read (LUN, '(a)', iostat=ios) linestr

          if (ios .eq. -1) then
c On end of file, rewind and reread file with increased phi rotation
            if(NtPrim .gt. 0)  then   !  some tracks before EOF
               NtMax = NtPrim         !  force an end of event (end of loop)
               Epstate = 2
            endif
            if(abs(RROT) .gt. 0.001)  then
              rewind (LUN)
              Nusef = Nusef + 1
              write(lout, '(a,i5,a)')  ' GUKINE: Input file rewound ',
     +                                  nusef, '  time'
            else     ! file is not rewound if no rotation requested
              Epstate = 3
              NtMax = 0
              write(lout, '(a)')
     +           ' GUKINE: Input file can not be rewound '
            endif

          elseif (ios .gt. 0) then
c On read error, abort run
            write (lout, '(2a/1x,a)') ' GUKINE: Quit on track',
     1   ' input read error, line:', linestr
            Epstate = 3
            NtMax = 0

          else

***********************************************************************
*   Analysis of the line from the input file
***********************************************************************

            if ((linestr(1:1).eq.'V').or.(linestr(1:1).eq.'v')) Then
c On "V" line: save vertex position
              read (linestr(2:),*) vert(1), vert(2), vert(3)
              CALL GSVERT(VERT, 0, 0, 0, 0, NVTX)

            ElseIf ((linestr(1:1).eq.'P').or.(linestr(1:1).eq.'p')) Then
c "P" line: save track kinematics including phi-rotation
              read (linestr(2:),*,iostat=ios) id, pmag, theta, phi
              if (ios .eq. 0) then
                phi = phi +                   !   rotation of phi
     +                  float(Nusef) * RROT / 57.2957795

                do  while (phi .gt. 3.14159265359)  !   normalization of phi
                    phi = phi - 6.28318530718
                enddo
                do  while (phi .lt. -3.14159265359)
                    phi = phi + 6.28318530718
                enddo
                phi180 = phi + 3.14159265359  !
                if(phi180 .gt. 3.14159265359)
     +                    phi180 = phi180 - 6.28318530718

                phid = phi * 57.2957795
                phid180 = phi180 * 57.2957795
                theta = min (max (theta, ThetaMin), ThetaMax)
                plab(1) = pmag * sin(theta) * cos(phi)
                plab(2) = pmag * sin(theta) * sin(phi)
                plab(3) = pmag * cos(theta)
                eta = -alog( tan(theta/2.0) )

*************************************************************************
*  Select only the tracks that are in the requested intervals of momentum,
*  eta,  phi etc.
*************************************************************************
                if(rmom(1) .le. pmag   .and.   pmag .le. rmom(2)  .and.
     +            reta(1) .le. eta  .and.  eta .le. reta(2)  .and.
     +            irpid(1) .le. id  .and.  id .le. irpid(2)  .and.
     +            ((rphi(1) .le. phid .and. phid .le. rphi(2))  .or.
     +             (irarm .eq. 2 .and.
     +               rphi(1) .le. phid180 .and. phid180 .le. rphi(2)))
     +                               )   then

C Load default vertex if there has been no vertex card.
                  If (nvtx .lt. 0) CALL GSVERT (VERT, 0, 0, 0, 0, NVTX)
                  CALL UZERO(UBUF, 1, NWUBMAX)
                  CALL GSKINE (PLAB, ID, NVTX, UBUF, NWUBMAX, NT)
                  NtPrim = NtPrim + 1
                  NtTot = NtTot + 1
c Set end-of-event flag after Ntpe tracks
                  if (NtPrim .ge. Ntpe) Epstate = 2
                endif    !  selection of tracks

              else     !  ios .ne. 0
c On illegal input, abort
                write (lout, '(2a/1x,a)') ' GUKINE: Quit on track',
     1          ' input conversion error in line:', linestr
                Epstate = 3
                NtMax = 0
              endif

*************************************************************************
*  Other lines
*************************************************************************
            ElseIf ((linestr(1:1).eq.'E').or.(linestr(1:1).eq.'e')) Then
c On "E" line: set end-of-event flag and force end of loop
              NtMax = NtPrim
              Epstate = 2

            ElseIf ((linestr(1:1).eq.'C').or.(linestr(1:1).eq.'c')) Then
c "C" line: ignore comment (should it be listed in log?)

            ElseIf ((linestr(1:1).eq.'I').or.(linestr(1:1).eq.'i')) Then
c "I" line: copied to the Ascii OUtput file
               if(ISAOU .gt. 0)  then
                  write(iusraou, '('' *'',a)' ) linestr
               endif

            Else
c Unrecognized line: abort; probably wrong file
              write (lout, '(2a/1x,a)') ' GUKINE: Quit on illegal ',
     1          ' track input line:', linestr
              EpState = 3
              NtMax = 0
            EndIf

          endif ! ios

        end do ! while (Ntprim .lt. NtMax)
C              ! end of event found or the number of tracks read
C              ! was equal NtCo

C------------------  end of IGEN = 0 section



      ELSE  IF(IGEN.GE.1 .AND. IGEN.LE.10)   THEN

**********************************************************************
*  Multiple random tracks from random beam interactions:  from BANG  *
**********************************************************************

c Set up for the next multi-pass group

        if (Epstate .eq. 0) then
          WRITE (lout,'(a)') ' GUKINE: using tracks generated by BANG.'
        endif
        if (Epstate .eq. 0 .or. Epstate .eq. 2) then
          Epstate = 1
          MPind = 0
          NtPrim = 0
          NtTot = 0
          NvPrev = 0
        elseif (Epstate .eq. 1) then
c Save the cumulative vertex count in case we eventually write it
c into ntuples
          NvPrev = NVTX
        endif
c Override the number of tracks per event specified in NtpE by IRMUL
        NtpE = IRMUL
        IRMUL = min(IRMUL - NtPrim, NtConc)

c Generate the next group, set flag if final group, and restore irmul

        if (IRMUL .GT. 0) call BANG(IGEN)
        MPind = MPind + 1
        NtPrim = NtPrim + IRMUL
        NtTot = NtTot + IRMUL
        if (NtPrim .ge. NtpE) EpState = 2
        IRMUL = NtpE

C-----------   end of BANG  mode

      ELSE IF(IGEN.EQ.11)  THEN

*****************************************************************
* STEP THE VALUES OF INPUT ANGLE, MOMENTUM OR VERTEX POSITION   *
*****************************************************************

         PX = (RMOM(1)+FLOAT(ISTEPP)*RMOM(3)) *
     +          SIN((RANG(1)+FLOAT(ISTEPA)*RANG(3))/57.2957795) *
     +          COS(RPHI(1)/57.2957795)
         PY = (RMOM(1)+FLOAT(ISTEPP)*RMOM(3)) *
     +          SIN((RANG(1)+FLOAT(ISTEPA)*RANG(3))/57.2957795) *
     +          SIN(RPHI(1)/57.2957795)
         PZ = (RMOM(1)+FLOAT(ISTEPP)*RMOM(3)) *
     +          COS((RANG(1)+FLOAT(ISTEPA)*RANG(3))/57.2957795)
         PLAB(1) = PX
         PLAB(2) = PY
         PLAB(3) = PZ
         VERT(3) = RBZZ + FLOAT(ISTEPV)*RBDZ
         ISTEPP = ISTEPP + 1
         IF(FLOAT(ISTEPP)*RMOM(3) .GT. RMOM(2)-RMOM(1))  THEN
           ISTEPP = 0
           ISTEPA = ISTEPA + 1
           IF(FLOAT(ISTEPA)*RANG(3) .GT. RANG(2)-RANG(1))  THEN
             ISTEPA = 0
             ISTEPV = ISTEPV + 1
           ENDIF
         ENDIF

         Epstate = 2
         MPind = 0
         NtPrim = 1
         NtTot = 1
         NvPrev = 0

         CALL GSVERT(VERT,0,0,0,0,NVTX)
         CALL UZERO(UBUF, 1, NWUBMAX)
         CALL GSKINE(PLAB,IRPID(1),NVTX,UBUF,NWUBMAX,NT)


      ELSE IF(IGEN .GE. 11  .AND. IGEN .LE. 12)  THEN

*******************************************************************
* STEP THE VALUES OF MOMENTUM OR 1/MOMENTUM FIRST,                *
* THEN  OF THE INPUT ANGLE  AND FINALLY OF THE VERTEX POSITION    *
*******************************************************************

         IF(IGEN.EQ.11)  THEN
            PS = RMOM(1)+FLOAT(ISTEPP)*RMOM(3)
         ELSE IF (IGEN .EQ. 12)  THEN
            IF(RMOM(1) .LT. 0.001)  RMOM(1) = 0.001
            IF(RMOM(2) .LT. 0.001)  RMOM(2) = 0.001
            DPP = 1.0/RMOM(1) - 1.0/(RMOM(1)+RMOM(3))
            PS = 1.0/RMOM(1) - FLOAT(ISTEPP)*DPP
            PS = 1.0/PS
         ENDIF
         PX = PS * SIN((RANG(1)+FLOAT(ISTEPA)*RANG(3))/57.2957795) *
     +          COS(RPHI(1)/57.2957795)
         PY = PS * SIN((RANG(1)+FLOAT(ISTEPA)*RANG(3))/57.2957795) *
     +          SIN(RPHI(1)/57.2957795)
         PZ = PS * COS((RANG(1)+FLOAT(ISTEPA)*RANG(3))/57.2957795)
         PLAB(1) = PX
         PLAB(2) = PY
         PLAB(3) = PZ
         VERT(3) = RBZZ + FLOAT(ISTEPV)*RBDZ
         ISTEPP = ISTEPP + 1
         IF(IGEN.EQ.11)  THEN
            PS = RMOM(1)+FLOAT(ISTEPP)*RMOM(3)
         ELSE IF (IGEN .EQ. 12)  THEN
            PS = 1.0/RMOM(1) - FLOAT(ISTEPP)*DPP
            IF(PS .LT. 0.00001)   PS = 0.00001
            PS = 1.0/PS
         ENDIF
         IF(PS .GT. RMOM(2))  THEN
           ISTEPP = 0
           ISTEPA = ISTEPA + 1
           IF(FLOAT(ISTEPA)*RANG(3) .GT. RANG(2)-RANG(1))  THEN
             ISTEPA = 0
             ISTEPV = ISTEPV + 1
           ENDIF
         ENDIF

         Epstate = 2
         MPind = 0
         NtPrim = 1
         NtTot = 1
         NvPrev = 0

         CALL GSVERT(VERT,0,0,0,0,NVTX)
         CALL UZERO(UBUF, 1, NWUBMAX)
         CALL GSKINE(PLAB,IRPID(1),NVTX,UBUF,NWUBMAX,NT)


      ELSE
**********************************
*  Unrecognized GEN type:
**********************************

         WRITE(lout,'('' GEN= '',I2,'' NOT IMPLEMENTED'')') IGEN

      ENDIF

*************************************************
*  Kinematic debug (controlled by ISWIT(1))
*************************************************

      IF(IDEBUG.EQ.1.AND.ISWIT(1).EQ.1) THEN
         CALL GPRINT('VERT',0)
         CALL GPRINT('KINE',0)
      ENDIF

      RETURN
      END
+DECK,GUOUT.
*CMZU:  2.00/06 21/07/96  21.47.28  by  Phobos (R. Verdier)
*CMZU:  1.01/12 18/07/94  12.51.45  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      SUBROUTINE GUOUT
*Documentation_Block
************************************************************************
*
* Description:
*  User routine called at the end of each event.  This version saves
* specified zebra banks in FZ-format.
*
* Arguments: none
*
* Called by:
*  Geant
*
* Calls:
*  GSAVE, USOUT
*
* Implicit inputs, outputs, side effects:
*  Uses IUSRZEB in IO.CMN for file lun, assumed opened by UGINIT
*  Writes FZ-format banks
*
* Filename: GUOUT.FOR
*
* History:
* Date      Name       Description
* ----      ----       -----------
* 21-Jul-96 R. V.      Removed unused FileName
* 18-Jul-94 K. Wozniak Increase statistics format width
*  1-Nov-93 R. V.      Move NtTot update to USSTEP in case STRA = 1
*  8-Jul-93 M. Baker   Fix output conversion error for large # of events.
*  9-Jun-93 R. V.      Update NtTot, reset IEVENT in multi-pass
* 23-May-93 R. V.      Test on IDEVT for multi-pass event processing
*  8-Feb-93 R. Verdier Added geometry bank save, std document block
* 17-Jun-92 C. Parsons Creation
*C DEC/CMS REPLACEMENT HISTORY, Element GUOUT.FOR
*C *1    21-JUL-1992 14:32:06 CHUCK "Initial version declaration"
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE
+SEQ, GCFLAG.
+SEQ, GCLIST.
+SEQ, GCNUM.
+SEQ, IO.
+SEQ, FLAG.
+SEQ, MUPEP.

      character*4 FBanks(5), FBsave(5), BankName, Bsave(20)
      integer banktype, irep, ier, lout, mm, Nbsave, Nfbanks,
     1  Nfbsave, nn
      data irep /1/, ! write stats at end of pass if non-zero
     1     lout /6/  ! standard output
      save Bsave, FBsave, Nbsave, Nfbsave

c Identify banks to be saved, if requested by SAVE, only on first event:
      data Nfbanks /5/,
     1     FBanks  / 'SETS', 'VOLU', 'ROTM', 'MATE', 'TMED' /

      IF(ISWIT(3).EQ.1.AND.IDEBUG.EQ.1) CALL GPRINT('HITS',0)
C
C Call the user output routine
C
      CALL USOUT

************************************************************
*   Output banks requested by SAVE card in Zebra FZ format *
************************************************************

c Skip if not switched on or if file open failed

      if (izeb.ne.0 .and. IusrZeb .gt. 0) then

c Store names of banks to be saved on first event only in FBsave,
c and those to be saved on every event in Bsave

        if (ievent .eq. 1) then

          nfbsave = 0
          nbsave = 0
          do nn = 1, Nsave
            call UHTOC (LSAVE(nn), 4, BankName, 4)
            banktype = 1
            do mm = 1, Nfbanks
              if (BankName .eq. FBanks(mm)) banktype = 2
            enddo
            if (banktype .eq. 2) then
              Nfbsave = Nfbsave + 1
              FBsave(Nfbsave) = BankName
            else
              Nbsave = Nbsave + 1
              Bsave(Nbsave) = BankName
            endif
          enddo

c Save first-event banks
          if (Nfbsave .gt. 0 .and. IDEVT .eq. 1)
     1      call GSAVE (IusrZeb, FBsave, -Nfbsave, 0, ier)

        endif

c Save all-event banks
        if (Nbsave .gt. 0)
     1    call GSAVE (IusrZeb, Bsave, Nbsave, ievent, ier)

      endif

c Report event processing statistics

      if (irep .gt. 0) write (lout,'(a,i7,a,i7,a,i5)') ' GUOUT:',
     1  NtPrim, ' primary &', NtTot - NtPrim,
     2  ' secondary tracks processed so far in event', Ievent

c Reset the event number if not the final pass in this event.  This is
c done here because it is the last point in the event loop under user
c control.

      if (Epstate .eq. 1 .and. IEVENT .ge. 1) IEVENT = IEVENT - 1

      return

      END
+DECK,GUSTEP.
*CMZU:  2.00/08 25/07/96  13.10.54  by  Phobos (R. Verdier)
*CMZU:  2.00/02 04/04/96  16.03.22  by  Phobos (R. Verdier)
*CMZU:  1.00/00 21/11/93  18.16.34  by  R. Verdier
* Removed obsolete GCFLAX include
*-- Author :
C       ============================================================
        SUBROUTINE GUSTEP
C       ============================================================
C
C       Description:-
C       =============
C          The Phobos-specific version of GUSTEP for stepping
C          particles.
C
C   User routine called at the end of each tracking step
C    Record hits on the detector planes
C
C
C       Arguments:-
C       ===========
C         none
C
C       Implicit inputs, outputs, side effects:-
C       ========================================
C
C       Author:-
C       ========
C          C. Parsons
C
C       Creation Date: 28-Mar-1992
C       ===========================
C     25-Jul-96  RV  equivalence /GCLIST/ LSAVE(1) for ANSI compliance
C     21-Nov-93  RV  Remove obsolete GCFLAX include
C     30-Jun-92  RV  Move secondary handling to USSTEP and
C                    HITS diagnostic printout to PH_HIT

      IMPLICIT NONE

+SEQ, GCSETS.
+SEQ, GCLIST.
+SEQ, GCTRAK.
+SEQ, GCVOLU.
+SEQ, IO.
+SEQ, GCFLAG.
+SEQ, GCKINE.
+SEQ, GCKING.
+SEQ, FLAG.
+SEQ, RHSIL.

C   Local:
        INTEGER I
      integer jxyz
      character*4 jxyzch / 'JXYZ' /
      equivalence (jxyz, jxyzch)
C
c Logicals to find out if JXYZ saved
        LOGICAL FIRSTC,DOJXYZ
C
        DATA FIRSTC/.TRUE./
        SAVE FIRSTC
C
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C
C-->   Determine if we need to call JXYZ
C
        if(firstc)then
          DOJXYZ  = .FALSE.
          do 117 i=1,nsave
            if (lsave(i) .eq. JXYZ) DOJXYZ=.TRUE.
117       continue
          FIRSTC=.FALSE.
        endif
C
      If(.not.BATCH)Then
C
C Draw the step on the graphics display
C
        call gdcxyz
      ENDIF

      If(DOJXYZ)Then
C
C Store the path position everytime we enter a new volume
C
        If((INWVOL.EQ.1) .or. (ISTOP.gt.0))then
          call gsxyz
        Endif
      Endif

C
C Call USSTEP user extension to handle produced secondaries
C
      CALL USSTEP

5     RETURN
      END
+DECK,GUTREV.
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
C======================
      SUBROUTINE GUTREV
C======================
C
C     Description:-
C     =============
C     User routine to control tracking of one event
C     Called by GRUN.  Calls GTREVE. No other user actions needed here.
C
C     Arguments:-
C     ===========
C     none
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     none
C
C     Author:  D. McLeod
C     =======
C
C     Creation Date: 28-Mar-1992
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C     23 Oct 92  R. V.      Separated from GE_...
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

      CALL GTREVE
      END
+DECK,PHCOMIS.
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
C     =====================================================================
C     File: PMC_SRC:PHCOMIS.FOR
      Subroutine PHCOMIS
C
C     Description:  Define PHOBOS specific common blocks and routines
C     ============  to COMIS, so they can be CALLed in GEPHOB
C
C
C
C     Arguments:  None
C     ==========
C
C     Conditions returned: None
C     ====================
C
C     Implicit inputs, outputs, side effects:
C     =======================================
C
C       Called by: UGINIT
C       Calls:   CSEXT CSCOM
C
C       Impicit inputs   None
C
C       Implicit outputs  Comis function database is updated
C
C
C     Author: C. Parsons
C     =======
C
C     Creation Date:  29-Jun-1992
C     ==========================
C
C     Revisions:
C     ==========
C       Date     Name    Description
C       -------  ----    -------------------------------------------------
*   1-Nov-93  R.V.       BANG.CMN -> BANGC.CMN to avoid MMS confusion
C
C
C     Global specifictions:
C     =====================
      implicit none
C
C     External specifications:
C     ========================
      EXTERNAL SETBATCH
C
C Common blocks to be declared. We don't care about real contents
C just need a pointer to first word of block
C
C+SEQ, FLAG.
      COMMON /FLAG/ IRHFLG
      Integer IRHFLG

C+SEQ, BANGC.
      COMMON /RHBNG/ IRHBNG
      Integer IRHBNG

C+SEQ, RHSIL.
      COMMON /RHSIL/ IRHSIL
      Integer IRHSIL

C+SEQ, RHSYS.
      COMMON /RHSYS/ IRHSYS
      Integer IRHSYS

C+SEQ, IO.
      COMMON /IO/ IIO
      Integer IIO
C
C     Local definitions:
C     ==================
      integer dmy
C
C     Executable Statements
C     =====================
C
C  STRINGS MUST BE UPPER CASE!!!
C
C PHobos Specific routines Up to ten per call
C
C First argument is UPPER case string comma deliminted to listing the names
C of the routines. String is ended with a #. Following ten arguments are
C the associated routines to call. Only first 8 characters are significant.
C Be sure and declare the routines to be external.
C
      CALL CSEXT('SETBATCH#',SETBATCH,dmy
     &    ,dmy,dmy,dmy,dmy,dmy,dmy,dmy,dmy,dmy)
C
C
C  Phobos common blocks  similar syntax but give first variable in common
C  block
C
      Call CSCOM('RHFLG,RHBNG,RHSIL,RHSYS,IO#',
     &            IRHFLG,IRHBNG,IRHSIL,IRHSYS,IIO,dmy
     &            ,dmy,dmy,dmy,dmy,dmy)
      Call USCOMIS
      END
+DECK,PH_GEOM.
*CMZU:  2.03/00 24/07/97  11.19.37  by  K. Wozniak
*CMZU:  2.02/01 23/04/97  12.18.18  by  K.Wozniak
*CMZU:  2.02/00 17/03/97  13.47.57  by  K. Wozniak
*-- Author :    K.Wozniak   17/03/97
      SUBROUTINE PH_GEOM
*************************************************************************
*   Stores in the AOU file information on the geometry of active
*   detector elements
*
* History:
*   2-Jul-97   K.W.   added consistency tests of pixelization parameters
*                     and number of division
*  23-Apr-97   K.W.   correction to avoid error when no rotation matrices
*                     are defined in the geometry file
*  27-Feb-97   K.W.   Creation
*************************************************************************

      IMPLICIT NONE

+SEQ,GCBANK.
+SEQ,GCNUM.
+SEQ,IO.
+SEQ,RHSIL.

      CHARACTER*4 CNAME
      INTEGER NR,JR,I, N,J,IV,JD,JDV,JDVV,KV
      INTEGER ISLVOL,ISLSHP,ISLJ,ISLNPAR
      INTEGER JDMAX
      PARAMETER (JDMAX=30)
      INTEGER JDLINK(JDMAX),JDNIN(JDMAX),JDIN(JDMAX), JDROT(JDMAX)
      REAL TRXJD(JDMAX), TRYJD(JDMAX), TRZJD(JDMAX)
      INTEGER NPARMAX
      PARAMETER (NPARMAX=40)
      REAL SLPAR(NPARMAX), TRX, TRY, TRZ, STEP


      WRITE(IUSRAOU, '('' G GEOV '', F10.3)' )  GEOV
      WRITE(IUSRAOU, '('' * '')' )

C  Output rotation matrices
      IF(JROTM .GT. NROTM)  THEN  ! avoided illegal index for LQ
        DO  NR = 1, NROTM
          JR = LQ(JROTM-NR)
          IF(JR .GT. 0)  THEN
             WRITE(IUSRAOU, '('' G ROTM '', I4, 9F10.6)' )
     +                                   NR, (Q(JR+I),I=1,9)
             WRITE(IUSRAOU, '('' G ROTA '', I4, 6F12.6)' )
     +                                   NR, (Q(JR+I+10),I=1,6)
          ENDIF
        ENDDO
      ENDIF

      WRITE(IUSRAOU, '('' * '')' )

C  Loop over the active volumes
      DO  200 N=1,NSLP
        ISLVOL = 0
        DO  IV=1,NVOLUM
           KV = IQ(JVOLUM+IV)
           CALL UHTOC(KV, 4, CNAME, 4)
           IF(CNAME .EQ. DETNAME(N))   THEN
              ISLVOL = IV
              GO TO 110
           ENDIF
        ENDDO
  110   CONTINUE
        IF(ISLVOL .EQ. 0)   THEN
           WRITE(*,*) ' *** ERROR IN PH_GEOM - DETECTOR:  ',
     +                DETNAME(N), '   NOT DEFINED IN THE GEOMETRY'
           GO TO 200
        ENDIF

C      find parameters of the volume
        ISLJ = LQ(JVOLUM-ISLVOL)
        ISLSHP = Q(ISLJ+2)
        ISLNPAR = Q(ISLJ+5)
        IF(ISLNPAR .GT. NPARMAX)  THEN
           WRITE(*,*) ' *** WARNING - PH_GEOM - TOO MANY ',
     +       'SHAPE PARAMETERS ', ISLNPAR, '    IN VOLUME ',
     +         DETNAME(N), '   TRUNCATED TO ', NPARMAX
           ISLNPAR = NPARMAX
        ENDIF
        DO  I=1,ISLNPAR
           SLPAR(I) = Q(ISLJ+6+I)
        ENDDO

C      find the position of the volume in the volumes tree
C      calculate effective translation and
C      find the numbers of rotation matrices for this volume
        JD = 1    ! depth of the volume in the tree
        JDLINK(1) = LQ(JVOLUM-1)
        JDNIN(1) = Q(JDLINK(1)+3)
        JDIN(1) = 1
  120   CONTINUE
          JDV = LQ(JDLINK(JD)-JDIN(JD))   ! link to the lower level volume
          IV = Q(JDV+2)
          JDROT(JD) = Q(JDV+4)
          TRXJD(JD) = Q(JDV+5)
          TRYJD(JD) = Q(JDV+6)
          TRZJD(JD) = Q(JDV+7)
          IF(IV .EQ. ISLVOL)  GO TO 150  ! volume found

          JDVV = LQ(JVOLUM-IV)
          IF(Q(JDVV+3) .GT. 0)   THEN   ! there are volumes deeper
             JD = JD + 1
             JDLINK(JD) = JDVV
             JDNIN(JD) = Q(JDVV+3)
             JDIN(JD) = 1
             GO TO 120
          ELSE    ! try next volume on the same level or upper
  125        CONTINUE
             IF(JDIN(JD) .LT. JDNIN(JD))   THEN
                JDIN(JD) = JDIN(JD) + 1    ! next volume on this level
                GO TO 120
             ELSE
                JD = JD -1   ! go one level upper
                IF(JD .LT. 0)  THEN
                   WRITE(*,*) ' *** ERROR IN PH_GEOM - DETECTOR  ',
     +                DETNAME(N), '   NOT POSITIONED IN THE TREE'
                   GO TO 200
                ENDIF
                GO TO 125
             ENDIF
          ENDIF

  150   CONTINUE   !  detector found in the tree
        TRX = 0.0
        TRY = 0.0
        TRZ = 0.0
        DO  J=1,JD
          TRX = TRX + TRXJD(J)
          TRY = TRY + TRYJD(J)
          TRZ = TRZ + TRZJD(J)
        ENDDO
        WRITE(IUSRAOU, '('' G DEVO '', A4, I4, 3I3, 3F11.5)' )
     +    DETNAME(N), N, ISLSHP, ISLNPAR, JD, TRX, TRY, TRZ
        WRITE(IUSRAOU, '(1X, I3, 4F11.5)' ) IPADFL(N),
     +    PAD1(N), PAD2(N), PAD3(N), PAD4(N)
        WRITE(IUSRAOU, '(1X, 10F11.5)' ) (SLPAR(I),I=1,ISLNPAR)
        WRITE(IUSRAOU, '(1X, 20I5)' ) (JDROT(J),J=1,JD)

        IF(NDIVX(N) .NE. 0)  THEN
          STEP = 2.0 * SLPAR(1) / FLOAT(NDIVX(N))
          IF(ABS(STEP-PAD1(N)) .GT. 0.00001)   THEN
             WRITE(*,*) ' *** ERROR IN PH_GEOM - DETECTOR  ',
     +          DETNAME(N), '   X PAD SIZE OR X DIVISION WRONG'
             WRITE(*,*) '                       X PAD = ', PAD1(N),
     +         '   NDIVX = ', NDIVX(N), '  0.5*XSIZE = ', SLPAR(1)
          ENDIF
        ENDIF
        IF(NDIVY(N) .NE. 0)  THEN
          STEP = 2.0 * SLPAR(2) / FLOAT(NDIVY(N))
          IF(ABS(STEP-PAD2(N)) .GT. 0.00001)   THEN
             WRITE(*,*) ' *** ERROR IN PH_GEOM - DETECTOR  ',
     +          DETNAME(N), '   Y PAD SIZE OR Y DIVISION WRONG'
             WRITE(*,*) '                       Y PAD = ', PAD2(N),
     +         '   NDIVY = ', NDIVY(N), '  0.5*YSIZE = ', SLPAR(2)
          ENDIF
        ENDIF
        IF(NDIVZ(N) .NE. 0)  THEN
          STEP = 2.0 * SLPAR(3) / FLOAT(NDIVZ(N))
          IF(ABS(STEP-PAD3(N)) .GT. 0.00001)   THEN
             WRITE(*,*) ' *** ERROR IN PH_GEOM - DETECTOR  ',
     +          DETNAME(N), '   Z PAD SIZE OR Z DIVISION WRONG'
             WRITE(*,*) '                       Z PAD = ', PAD3(N),
     +         '   NDIVZ = ', NDIVZ(N), '  0.5*ZSIZE = ', SLPAR(3)
          ENDIF
        ENDIF

  200 CONTINUE

      RETURN
      END
+DECK,PH_HIT.
*CMZU:  2.02/00 17/03/97  12.09.47  by  K. Wozniak
*CMZU:  2.00/06 21/07/96  21.48.59  by  Phobos (R. Verdier)
*CMZU:  1.01/17 16/03/95  14.54.03  by  K.Wozniak
*CMZU:  1.01/12 18/07/94  11.17.36  by  Phobos (R. Verdier)
*CMZU:  1.01/06 07/05/94  12.52.37  by  R. Verdier
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      SUBROUTINE PH_HIT
*Documentation_Block
************************************************************************
*                                                                      *
* Description:                                                         *
*  User routine called at the end of each tracking step to record      *
*  hits on the detector planes for PMC GEANT.  The HITS saved:         *
*    Word 1:  X      \  in the master coordinate system, unpixelled,   *
*         2:  Y       = at the average of the entry and exit positions *
*         3:  Z      /  for the silicon plane                          *
*         4:  DE     Energy deposit in the silicon (GeV/c)             *
*         5:  DX     X-component of vector from entry to exit point    *
*         6:  DY     Y   "    "    "    "      "      "    "     "     *
*         7:  DZ     Z   "    "    "    "      "      "    "     "     *
*         8:  EFIN   track energy at the exit of the plane             *
*         9:  TOF    Time of flight to this detector (in seconds)      *
*        10:  ITRK   track number for this hit                         *
*        11:  VSEQ   Combined information: IVOL + 1000 * ISEQ          *
*               IVOL   system volume number of the detector <= 999     *
*               ISEQ   sequential (first = 1) hit number on this track *
*                                                                      *
* Arguments: none                                                      *
*                                                                      *
* Called by:                                                           *
*  USSTEP                                                              *
*                                                                      *
* Calls:                                                               *
*  GDTOM, GMTOD, GSAHIT, UZERO, UHTOC                                  *
*                                                                      *
*  Implicit inputs, outputs, side effects:                             *
*    Commons included below                                            *
*                                                                      *
*  Filename: PH_HIT.FOR                                                *
*                                                                      *
*  History:                                                            *
*  Date      Name       Description                                    *
*  ----      ----       -----------                                    *
*   4-Mar-97 K.W.       Remove pixelization code and UHITSOUT call     *
*  21-Jul-96 R. V.      Remove unused jku, jk                          *
*  24-Mar-95 K.W.       Store time in place of IVOL, IVOL combined     *
*                       with ISEQ (stored 1000*ISEQ+IVOL)              *
*  18-Jul-94 R.V.       Get sequential hit number from common /UJKB/   *
*  22-Jun-94 R.V.       Store hit number (temporarily) in 11th word of *
*                       user buffer, replacing NSEQN storage           *
*  15-Jun-94 R.V.       Store mean hit position and exit-entry vector  *
*                       instead of entry position and direction cosines*
*  07-May-94 R.V.       Reordered SEQ's & doc. block, restored IUSROUT *
*  30-Apr-94 DMcL       Merged with MIT current version this date      *
*                       Note Wozniak printout removed; not in MIT vers.*
*  22-Jun-93 DMcL       Added array bound check on NSEQN               *
*  27-May-93 DMcL       Changed cosx cosy to 3 system dir. cosines     *
*  12-May-93 DMcL       Major revisions.. new HITS structure           *
*   5-Feb-93 R.V.       Added HitsOut + mode arg to UHITSOUT call      *
*  27-Oct-92 R.V.       Added call to UHITSOUT                         *
*  23-Jul-92 R. Verdier Moved diagnostic print from GUSTEP             *
*   ?-May-92 C. Parsons Separated from GUSTEP                          *
*  28-Mar-92 D. Mcleod  Creation as part of GUSTEP in GPH              *
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

c For Ipixl:
+SEQ,FLAG.
c For JKINE:
+SEQ,GCBANK.
c For Idebug, Iswit:
+SEQ,GCFLAG.
c For Charge, Ipart, Itra:
+SEQ,GCKINE.
+SEQ,GCSETS.
+SEQ,GCTRAK.
c For system volume number: (part of 4/30/94 update)
+SEQ,GCVOLU.
c For Iusrout:
+SEQ,IO.
c For detector plane characteristics (updated RHSIL 4/30/94):
+SEQ,RHSIL.
c Access to control variables HitsOut and draw_hits:
+SEQ,UHITS.
c Access to number of hits on active track:
+SEQ,UJKBUF.

C Local:  NOTE: NHitPar should be gotten dynamically from the bank
c storage for each detector; the following is a stopgap.
      integer NHitPar, nn
      parameter (NHitPar = 11)
      REAL HITS(NHitPar), HITP(3)
      INTEGER IHIT, I
      SAVE HITS
C
C Code:
C
      IF(CHARGE.EQ.0) GOTO 5     !We don't see these
      IF(IHSET.EQ.0) GOTO 5     !not a detector

******************************************************
*  Record GEANT bank HITS at detector planes only    *
******************************************************

      IF(ISET.GE.1) THEN

         IF(INWVOL.EQ.1) THEN

c At a silicon plane entrance, save position and initialize the rest
c of the hits array.

            do nn = 1, 3
              HITS(nn) = VECT(nn)
            enddo
            call UZERO(HITS(4), 1, NHitPar - 3)
C Track number kept in HITS for external use:
            HITS(10) = FLOAT(ITRA)
C Store the time (units: seconds)
            HITS(9) = TOFG

         ELSE IF((INWVOL.EQ.0.OR.INWVOL.EQ.2).AND.STEP.GT.0.0) THEN

c Within the silicon or at exit from it, increment the energy
c deposition and store the system volume number from /GCVOLU/

            HITS(4) = HITS(4) + DESTEP

            HITS(11) = FLOAT(LVOLUM(NLEVEL))
         ENDIF

         IF(INWVOL.EQ.2.OR.ISTOP.GT.0) THEN

c At exit from the silicon or end of track, store the vector from
c entry to exit, the mean hit position, the final kinetic entry,
c track number, and hit sequence number, for writing out in PH_OUT.
c NOTE THIS FAILS IF A SECONDARY IS PRODUCED IN THE SILICON; THIS
c MUST BE DEALT WITH LATER.

            if (HITS(10) .ne. FLOAT(ITRA)) print *, ' PH_HIT: *****',
     1        ' track number ', ITRA, ' changed in silicon.'
            do nn = 1, 3
              HITS(nn+4) = VECT(nn) - HITS(nn)
              HITS(nn) = HITS(NN) + 0.5 * HITS(nn+4)
            enddo

            HITS(8) = GEKIN
C Save sequential number of hit on this track: hits(11) = 1000*ISEQ + IVOL
            HITS(11) = 1000.0*NHitsAct + HITS(11)

            CALL GSAHIT(ISET,IDET,ITRA,NUMBV,HITS,IHIT)
            draw_hits = .false.

c If IDEBUG = 1 and ISWIT(4) >= 1, write diagnostic hits output

            IF(IDEBUG.EQ.1.AND.ISWIT(4).GE.1) THEN
               WRITE(IUSROUT,1000)INWVOL,IHSET,IHDET,
     1         IDTYPE,(HITS(I),I=1,NHitPar)
1000           FORMAT(' PH_HIT: INWVOL,IHSET,IHDET,IDTYPE = ',
     1         I2,'|',A4,'|',A4,'|',I5,/,
     2         ' HITS SAVED = ',5(' | ',G10.4),/,
     3         6('| ',G10.4))
            ENDIF
         ENDIF
      ENDIF

5     RETURN
      END
+DECK,PH_INIT.
*CMZU:  2.03/01 04/08/97  16.30.00  by  Phobos (R. Verdier)
*CMZU:  2.00/06 21/07/96  21.51.08  by  Phobos (R. Verdier)
*CMZU:  2.00/02 04/04/96  16.17.34  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      SUBROUTINE PH_INIT
*Documentation_Block
************************************************************************
*
* Description:
*  Subroutine PH_INIT books histograms and nutples for the Phobos MC.
*
* Arguments: none
*
* Called by:
*  USINIT
*
* Calls:
*  DATE, HBOOK1, HBOOK2, HBOOKN, HRFILE, TIME
*
* Implicit inputs, outputs, side effects:
*  Allocates Zebra storage banks; uses HBOOK id's 1 and 2
*
* Filename: PMC_SRC:PH_INIT.FOR
*
* History:
* Date      Name       Description
* ----      ----       -----------
* 04-Aug-97  R. V.     Give translated filename to HROPEN if available (RV)
* 21-Jul-96  R. V.     Removed unused xmx, nz, xmin
* 08-Sep 95 DMcL       DATE, TIME => Cernlib DATIMH & associated changes
* 23-Jun-95 D. McLeod  UFILE replaced by SERVER as part of UNIX port
*  1-Nov-93  R.V.      BANG.CMN -> BANGC.CMN to avoid MMS confusion
* 17-Jun-93 R. V.      Move ntuple parameters to common NTUEX
* 22-Feb-93 R. V.      Correct directory handling via HCDIR
* 10-Jan-93 R. V.      Separate ntuples for hits and mc
* 03-Aug-92 R. Verdier Set IQUEST(10) for larger Ntuple file (PAW p. 32)
*    Apr-92 C. Parsons Separated from GPH
*    Mar-92 D. Mcleod  Creation as UHINIT in GPH.FOR
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

+SEQ, IO.
+SEQ, GCFLAG.
+SEQ, NTU.
+SEQ, NTUEX.
+SEQ, FLAG.
+SEQ, HST.
+SEQ, RHSYS.
+SEQ, BANGC.
c temporary for IQUEST(10)
      COMMON /QUEST/ IQUEST(100)
      INTEGER IQUEST

C     Local definitions:
C     ==================
C
      CHARACTER*60 TITLE
      INTEGER NDH(2), NTH(2)
      CHARACTER*8 TAGX,TAGY
C
C  Added for SERVER long form
      INTEGER IRUN1,IRUN2
C
      INTEGER ID,NX,NY,I,IOS,J
      character*60 FileName
c Temporary report level until a more general system exists, if ever:
      integer Ireplev /2/

c End of declarations

      CALL DATIMH (NDH, NTH)
      WRITE(TITLE,1000) (NDH(I),I=1,2),(NTH(I),I=1,2),IDRUN

**************************************************************
*  SET UP HITS NTUPLE IF ISNTU CONTAINS 1, TRUTH NTUPLE IF IT
*  CONTAINS 2
**************************************************************

      IF (IAND(ISNTU,1) .ne. 0) THEN
+SELF,IF=NOSERV.
        call UFILE (1, 'RHNTU', Iusrntu, FileName)
+SELF,IF=-NOSERV.
C              This call with access mode 3 suppresses SERVER's HROPEN
        call SERVER('RHNTU',IDRUN,Iusrntu,FileName,0,3,1,IRUN1,IRUN2)
+SELF.
        if (Iusrntu .gt. 0) then
          call HCDIR ('//PAWC',' ')
          call HMDIR ('RHTUP','S')
          NWHits = NVTUP
          Iquest(10) = (NHtrks * NWHits + NWover) / LreclW
          call HROPEN (Iusrntu, 'RHTUPF', FileName, 'NQ', LreclW, IOS)
c Set directory to the ntuple in memory; HROPEN leaves the disk file
c directory set to RHTUPF.
          call HCDIR ('//PAWC/RHTUP',' ')
          call HBOOKN (1, TITLE, NWHits, '//RHTUPF', NWprim, Tags)
          call HCDIR ('//PAWC',' ')
          if (Ireplev .ge. 2)
     1      write (*,'(3a,i5,a,i6,a)') ' Hits ntuple file ', FileName,
     2        ' opened,',
     3        Iquest(10), ' records for', NHtrks, ' tracks.'
        else
          if (Ireplev .ge. 1)
     1      write (*,*) ' Hits ntuple file open failed.'
        endif
      ENDIF

      if (iand(ISNTU,2) .ne. 0) then
+SELF,IF=NOSERV.
        call UFILE (1, 'MCNTU', Imcntu, FileName)
+SELF,IF=-NOSERV.
        call SERVER('MCNTU',IDRUN,Imcntu,FileName,0,3,1,IRUN1,IRUN2)
+SELF.
        if (Imcntu .gt. 0) then
          call HCDIR ('//PAWC',' ')
          call HMDIR ('MCTUP','S')
          NWMC = Nvmctup
          Iquest(10) = (NMCtrks * NWMC + NWover) / LreclW
          call HROPEN (Imcntu, 'MCTUPF', FileName, 'NQ', LreclW, IOS)
          call HCDIR ('//PAWC/MCTUP',' ')
          call HBOOKN (2, Title, NWMC, '//MCTUPF', NWprim, Tags)
          call HCDIR ('//PAWC',' ')
          if (Ireplev .ge. 2)
     1      write (*,'(3a,i5,a,i6,a)') ' MC ntuple file ', FileName,
     2        ' opened,',
     3        Iquest(10), ' records for', NMCtrks, ' tracks.'
        else
          if (Ireplev .ge. 1)
     1      write (*,*) ' PH_INIT failed to open MC Ntuple file, ',
     2        'logical "MCNTU"'
        endif
      endif

******************************************
* BOOK HISTOGRAMS SET BY CONTROL CARDS   *
******************************************
      IF(NHSTS.GT.0) THEN
         DO I = 1,NHSTS
            TAGX = TAGS(NINT(HCONTROL(2,I)))

            IF(TAGX.EQ.' ') THEN
               WRITE(TAGX,1300) HCONTROL(2,I)
            ENDIF

            ID = NINT(HCONTROL(1,I))
            NX = NINT(HCONTROL(3,I))

            IF(NINT(HCONTROL(6,I)).EQ.0) THEN
               WRITE(TITLE,1100)IDRUN,
     1                   (NDH(J),J=1,2),(NTH(J),J=1,2),TAGX
               CALL HBOOK1(ID,TITLE,NX,HCONTROL(4,I),
     1                     HCONTROL(5,I),0.0)
            ELSE
               TAGY = TAGS(NINT(HCONTROL(6,I)))
               IF(TAGY.EQ.' ') THEN
                  WRITE(TAGY,1300) HCONTROL(6,I)
               ENDIF
               NY = NINT(HCONTROL(7,I))
               WRITE(TITLE,1200)IDRUN,
     1                   (NDH(J),J=1,2),(NTH(J),J=1,2),TAGY,TAGX
               CALL HBOOK2(ID,TITLE,NX,HCONTROL(4,I),HCONTROL(5,I),
     1              NY,HCONTROL(8,I),HCONTROL(9,I),0.0)
            ENDIF

         ENDDO
      ENDIF

      RETURN

1000  FORMAT(' Ntuple, on ',2A4,', ',2A4,', Run ',I3)
1100  FORMAT(' Run ',I3,' on ',2A4,', ',2A4,' Tag= ',A8)
1200  FORMAT(' Run ',I3,' on ',2A4,', ',2A4,', ',A8,' vs. ',A8)
1300  FORMAT('Tag',F5.0)
      END
+DECK,PH_LAST.
*CMZU:  2.00/06 21/07/96  21.52.54  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      Subroutine PH_LAST
*Documentation_Block
************************************************************************
*
* Description:
* Output module for Ntuples, called at end of Geant run.
*
* Arguments: none
*
* Called by:
*  USLAST
*
* Calls:
*  HCDIR, HISTDO, HREND, HROUT, HRPUT
*
* Implicit inputs, outputs, side effects:
*   Input from listed commons
*   Output to Ntuples
*
* Filename: PMC_SRC:PH_LAST.FOR
*
* History:
* Date      Name       Description
* ----      ----       -----------
* 21-Jul-96  R. V.     Removed unused card, ier, ofname
* 22-FEB-93 R. V.      Correct directory handling via HCDIR
* 10-Jan-93 R. Verdier Make separate Hits and MC Ntuples
*    Mar-92 D. McLeod  Creation as part of GPH
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

+SEQ, GCKINE.
+SEQ, IO.
+SEQ, FLAG.

C
C     Local definitions:
C     ==================
C  LOCAL:
      INTEGER ICYCLE
*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

C
C     Executable Statements
C     =====================
C     Print HBOOK format histograms, if requested by control card
      IF(ISHDO.NE.0)  THEN
         write(*,*) ' HBOOK PLOTS OUTPUT TO filename.OUT'
         CALL HISTDO
      ENDIF

C            Save histograms, if requested by control card
      IF(ISHBO.NE.0)  THEN
         write(*,*) ' PLOTS OUTPUT TO filename.HST'
         CALL HRPUT(0,'RHHST',' ')
      ENDIF

C            Output Ntuples, if requested by control card
      IF (IAND(ISNTU,1) .NE. 0) THEN
         write(*,*) ' Track Ntuple output to filename.NTU '
         ICYCLE = 0
c Set directory to the ntuple in memory
         CALL HCDIR ('//PAWC/RHTUP',' ')
c Set directory to the ntuple disk file
         CALL HCDIR ('//RHTUPF',' ')
         CALL HROUT (1,ICYCLE,' ')
         CALL HREND ('RHTUPF')
         CLOSE (IUSRNTU)
      ENDIF

      IF (IAND(ISNTU,2) .NE. 0) THEN
         write(*,*) ' MC Ntuple output to filename.NTU '
         ICYCLE = 0
         CALL HCDIR ('//PAWC/MCTUP',' ')
         CALL HCDIR ('//MCTUPF',' ')
         CALL HROUT (2,ICYCLE,' ')
         CALL HREND ('MCTUPF')
         CLOSE (IMCNTU)
      ENDIF

      return
      end
+DECK,PH_OUT.
*CMZU:  2.02/01 29/04/97  13.14.44  by  Phobos (K. Wozniak)
*CMZU:  2.02/00 17/03/97  12.22.43  by  K. Wozniak
*CMZU:  2.01/00 25/02/97  08.53.36  by  K.Wozniak
*CMZU:  2.00/14 21/11/96  15.10.40  by  K.Wozniak
*CMZU:  2.00/13 14/11/96  10.32.25  by  K.Wozniak
*CMZU:  2.00/10 24/09/96  04.52.06  by  K.Wozniak
*CMZU:  2.00/08 25/07/96  14.15.00  by  Phobos (R. Verdier)
*CMZU:  2.00/06 21/07/96  21.54.54  by  Phobos (R. Verdier)
*CMZU:  2.00/03 04/07/96  19.29.37  by  K.Wozniak
*CMZU:  1.01/10 14/06/94  10.53.01  by  Phobos (R. Verdier)
*CMZU:  1.01/06 13/05/94  12.56.20  by  R. Verdier
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
       Subroutine PH_OUT
*Documentation_Block
************************************************************************
*
*  Description:
*  User routine called at the end of each event.
*  This version makes histos and prints ntuples.
*
*  Arguments:
*  none
*
*  Called by:
*  USOUT
*
*  Calls:
*  GFHITS, GFKINE, HFN, HFILL, PRNTUP, USANAL, VZERO, STOPER
*
*  Implicit inputs, outputs, side effects:
*  Fills histograms
*
*  Filename: PMC_SRC:PH_OUT.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  29-Apr-97  K.W.       Expand write fieldwidths, add IOSTAT
*   4-Mar-97  K.W.       Removed a call to UHITSOUT
*                        Changed AOU file format:
*                        integer detector number in place of name is used
*                        Forced STOP changed into a call to STOPER
*  25-Feb-97  K.W.       Add  End of Header (EOH)  line in AOU file
*  20-Nov-96  K.W.       Corrected origin volume name for secondaries in
*                        SECT=1 mode
*  14-Nov-96  K.W.       Corrected format in the AOU output
*  23-Sep-96  K.W.       Added signal link (set to zero) to make
*                        the format of AOU file identical with digitized data
*  25-Jul-96  R. V.      Define integers for testing /GCLIST/ LSETS
*                          for ANSI compliance
*  21-Jul-96  R. V.      Removed unused de, nh, tlife
*   1-Jul-96  K.W.       The particles and their hits are stored in an
*                        ASCII output file
*  13-Jun-94  R. V.      Allow dynamic specification of detector sets,
*                        controlled by SETS in the control file
*  13-May-94  R. V.      Use all 11 (new) HITS parameters.
*  09-Aug-93  M. Baker   Add Geant PID code to ACCCHK call.
*  29-Jun-93  M. Baker   BUGFIX: Set AMASS for use in TK.
*  29-Jun-93  M. Baker   Add acceptance check, modify Ntuples.
*  28-Jun-93  M. Baker   Protect against P=0, Pt=0, NHITSL>NHTM.
*   7-Jun-93  R. V.      Move IEVENT and Epstate reset to GUOUT
*  14-May-93  R. V.      Multipass mods: add NtPrev to stored track #
*  22-Feb-93  R. V.      Correct directory handling via HCDIR
*   5-Feb-93  R. V.      Add optional call to UHITSOUT for hits text file
*  12-Jan-93  R. V.      Change to separate Hits and Truth ntuples;
*                        COMMON.NTU & COMMON.HST -> NTU.CMN & HST.CMN
*  17-Nov-92  R. V.      Separated PH_OUT
*  21-Jul-92  R. V.      Interchange Pvert(1) & Pvert(1) in Tphi calc.
*   1-Jul-92  R. Verdier Store additional information in ntuple
*  17-Jun-92  C. Parsons Separated from package including other subrs.
*     Apr-92  D. Mcleod  Creation in GPH package as GUOUT
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

+SEQ,BANGC.
+SEQ,FLAG.
+SEQ,GCBANK.
+SEQ,GCFLAG.
+SEQ,GCLIST.
+SEQ,GCNUM.
+SEQ,GCVOLU.
+SELF,IF=-NONTUP.
+SEQ,HST.
+SEQ,NTU.
+SELF.
+SEQ,MUPEP.
+SEQ,IO.
+SEQ,RHSIL.
+SEQ,UHITS.
+SEQ,UJKBUF.

C     Local definitions:
C     ==================

      INTEGER LWRTRMAX
      PARAMETER (LWRTRMAX=30000)
      LOGICAL LWRTR(LWRTRMAX)

      integer NHHTMAX
      parameter (NHHTMAX=200)
      INTEGER NHHT, IPLHT(NHHTMAX)
      CHARACTER*4 PLHT(NHHTMAX)
      EQUIVALENCE (IPLHT(NHHTMAX),PLHT(NHHTMAX))
      REAL XHT(NHHTMAX), YHT(NHHTMAX), ZHT(NHHTMAX)
      REAL DEHT(NHHTMAX), DTHT(NHHTMAX)
      REAL DXHT(NHHTMAX), DYHT(NHHTMAX), DZHT(NHHTMAX)
      REAL HITS(11,NHHTMAX)
      INTEGER NUMBV(NHHTMAX), ITRA(NHHTMAX)

      LOGICAL PLNHIT(NSLPM)
      INTEGER IPART,ITRK,IPARENT,NNTRACK,IVOL,NVERT,NUB,I,ID,IX,IY
      integer Idet, IIudet, IIuset, ios, Iplane, Iset, Isret, J, Jdh,
     1        Jdp, NHITS, Nhitp, Nsetsa, LSTPLN, isign, ISLPL
c Ndetsa = number of active detectors in each set, determined from
c UGCDATA and from LSETS in /GCLIST/, set by the SETS card.  Its
c dimension should be >= that of LSETS.
      integer Ndetsa(20)
      character*4 Iudet, Iuset
      equivalence (Iudet,IIudet), (Iuset,IIuset)
c Equivalences for testing CERN integer-type character strings
      character*4 chall /'ALL'/, challlc /'all'/, chblank /'    '/,
     1  chstar /'*'/
      integer all, alllc, blank, star
      equivalence (all,chall), (alllc,challlc), (blank,chblank),
     1  (star,chstar)
      REAL RDUM, RDAR(20)
      REAL VERT(3),PVERT(4),AMASS,ACHG
      REAL UB(NWUBMAX)
      INTEGER IUB(NWUBMAX)
      EQUIVALENCE (UB,IUB)
      CHARACTER*20 ADUM20
      INTEGER dummy, IDUM, NDUM
c Storage for additional information in ntuples, temporarily
c overstoring ntuple information
      REAL UJKBN(NWUBMAX)
      EQUIVALENCE (UJKBN(1), STOP)

      LOGICAL FIRST
      SAVE FIRST
      DATA FIRST / .TRUE. /

      REAL     ACCCHK
      EXTERNAL ACCCHK

C     Executable Statements
C     =====================
*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

      IF(FIRST .AND. ISAOU .GT. 0)  THEN
         WRITE(IUSRAOU, '('' EOH '')' )
         FIRST = .FALSE.
      ENDIF

****************************************************
*   Loop over all the tracks including secondaries *
****************************************************

      DO 100 ITRK = 1,NTRACK

C       Get the "truth"
        CALL GFKINE(ITRK,VERT,PVERT,IPART,NVERT,UBUF,NUB)

C       Omit nonexistent tracks
        IF(IPART.EQ.0) GOTO 100

+SELF,IF=-NONTUP.
C       Fill some of /RHTUP/:
         CALL VZERO(TUP,NVTUP)
         RUN = IDRUN
         EVENT = IEVENT
         BIMP  = 0.0     ! Not Yet Implemented
         XPROD = VERT(1)
         YPROD = VERT(2)
         ZPROD = VERT(3)
         IDPART = IPART
C Get the charge and mass of the particle.
         CALL GFPART( IPART, ADUM20, IDUM, AMASS, ACHG, RDUM,
     >                                                   RDAR, NDUM)
         CHRG = ACHG
c Store the track number for the whole event, not just this pass
         TRACK = ITRK + NtPrev
         GEN = IGEN
         ANAL = IANAL
         SCAT = ISCAT
         TP = SQRT(PVERT(1)**2+PVERT(2)**2+PVERT(3)**2)
         TK = PVERT(4) -AMASS
C MDB: Protect against P=0 or Pt=0.
         IF (ABS(PVERT(1)).GE.0.0001 .OR. ABS(PVERT(2)).GE.0.0001) THEN
            TPHI = ATAN2(PVERT(2),PVERT(1))
         ELSE
            TPHI = 0.0
         ENDIF
         IF (TP.GT.0.0001) THEN
            TTHETA = ACOS(PVERT(3)/TP)
         ELSE
            TTHETA = 0.0
         ENDIF

C Initialize hit counters: Nhitsl is the total hit count, Iplane is
c the cumulative index for all detectors regardless of set
         NHITSL = 0
         LSTPLN = 0
         Iplane = 0
+SELF.

C  Total number of hits on the track
         NHHT = 0   !   for GUVERSION

****************************************************************
* Get quantities from HITS.  Cycle over Si plane numbers:      *
****************************************************************

c Get the number of active detector sets, Nsetsa, from GCBANK.
c Utilities to do this ought to be available.

         Nsetsa = IQ(JSET - 1)

         do Iset = 1, Nsetsa

c Get the ASCII set name, Iuset, and the number Ndets of detectors in it
c IIuset is the integer alias of the character string.
           IIuset = IQ(JSET + Iset)
           Jdp = LQ(JSET - Iset)

c On first track only, set the number of detectors used in each set to
c be the number specified in the geometry data file, as modified by
c LSETS, loaded from the SETS line in the control file:
c if SETS(1) is blank, *, ALL or all, then all sets specified will be
c active; otherwise, only detector sets listed on the SETS line will be
c active.  Thus,  SETS none   would turn off all detectors, unless there
c were actually a set called 'none'.  If there is no SETS line, all
c specified sets are active.
           if (TRACK .eq. 1) then
             Ndetsa(Iset) = IQ(Jdp - 1)
             if (LSETS(1) .ne. blank .and. LSETS(1) .ne. star .and.
     1         LSETS(1) .ne. all .and. LSETS(1) .ne. alllc) then
               call GLOOK(Iuset, LSETS, Nsets, Isret)
               if (Isret .le. 0) Ndetsa(Iset) = 0
             endif
           endif

           do Idet = 1, Ndetsa(Iset)

+SELF,IF=-NONTUP.
             Iplane = Iplane + 1
             PLNHIT(Iplane) = .FALSE.

+SELF.
c Get the ASCII detector name and number of hit parameters
             IIudet = IQ(Jdp + Idet)
             Jdh = LQ(Jdp - Idet)
             Nhitp = IQ(Jdh + 4)

c Get and store the hits on this detector.
c NOTE: Multiple hits on one plane from one track are ignored here.
             call GFHITS (Iuset, Iudet, 1, Nhitp, NHHTMAX-1, ITRK, 0,
     1                    ITRA, NUMBV, HITS, NHITS)

             IF (NHITS .gt. 0) THEN

+SELF,IF=-NONTUP.
               LSTPLN = Iplane
               PLNHIT(Iplane) = .TRUE.

+SELF.
               DO  J=1,NHITS
                 IF(NHHT .LT. NHHTMAX)   THEN
                   NHHT = NHHT + 1
                   IPLHT(NHHT) = IIUDET
                   XHT(NHHT) = HITS(1,J)
                   YHT(NHHT) = HITS(2,J)
                   ZHT(NHHT) = HITS(3,J)
                   DEHT(NHHT) = HITS(4,J)
                   DTHT(NHHT) = HITS(9,J)
                   DXHT(NHHT) = HITS(5,J)
                   DYHT(NHHT) = HITS(6,J)
                   DZHT(NHHT) = HITS(7,J)
                 ENDIF
               ENDDO

+SELF,IF=-NONTUP.
               IF (NHITSL .lt. NHTM) THEN
                    NHITSL = NHITSL + 1

C Fill the entries for the hit in the Ntuple, starting with cumulative
c plane index, provided the hit storage is not exceeded.
c Q: WOULDN'T IUDET BE A BETTER VARIABLE FOR NTUPLE PLANE TAGGING?

                    TRK(1,NHITSL) = Iplane
                    DO  J = 1, MIN(Nsip, NsipMaxp)
                      TRK(J+1,NHITSL) = HITS(J,1)
                    ENDDO

               ENDIF
+SELF.

             ENDIF    !  NHITS .GT. 0

           enddo  ! Idet

         enddo  ! Iset

+SELF,IF=-NONTUP.
*************************************************************
*        Decide whether a particle has been accepted        *
*        Note that this acceptance check doesn't check      *
*        detector type                                      *
*************************************************************

         IF (NHITSL.EQ.0) THEN
            ACCEPT = 0.0
         ELSE
            ACCEPT = ACCCHK( TP, IPART, PLNHIT, DETNAME, NHITSL, LSTPLN)
         ENDIF

*****************************************************************
*       Any other quantities added to spares in Ntuples:        *
*****************************************************************
+SELF.

         CALL USANAL


C   Check if there are ancestors of the track with hit(s)
C   that should be written to ASCII file
         IPARENT = UBUF(2)
         IF(ISAOU .EQ. 3  .AND.  ISECT .GE. 2)   THEN
           IF(ITRK .GT. LWRTRMAX)  THEN
              WRITE(*,*) ' PH_OUT: TOO LARGE NUMBER OF TRACKS'
              WRITE(*,*) ' PH_OUT: DECREASE THE  NTCO  PARAMETER'
              WRITE(*,*) ' PH_OUT: OR CHANGE THE SIZE OF TABLE LWRTR'
              CALL STOPER('PH_OUT', 'TOO SMALL INTERNAL TABLES', 1)
           ENDIF
           IF(IPARENT .EQ. 0)  THEN
              LWRTR(ITRK) = .TRUE.   !  primary track will be written
           ELSE
              LWRTR(ITRK) = .FALSE.
           ENDIF

           IF(NHHT .GT. 0)   THEN
           LWRTR(ITRK) = .TRUE.
   51      CONTINUE
             IF(IPARENT .LE. 0)  GO TO 55
             IF(LWRTR(IPARENT-NTPREV))   GO TO 55
               LWRTR(IPARENT-NTPREV) = .TRUE.
               CALL GFKINE(IPARENT-NTPREV, VERT, PVERT, IPART,
     +                      NVERT, UB, NUB)
               NNTRACK = IPARENT
               IPARENT = UB(2)
               IVOL = IUB(3)
               J = 0
               WRITE(IUSRAOU,
     +           '('' P '', A4, I8, I9, I4, I3, 3F10.4,3F10.3)',
     +           IOSTAT = ios)
     +           IVOL, NNTRACK, IPARENT, J, IPART,
     +           PVERT(1),PVERT(2),PVERT(3), VERT

               GO TO 51

   55         CONTINUE
              CALL GFKINE(ITRK,VERT,PVERT,IPART,NVERT,UBUF,NUB)
            ENDIF   !   NHHT .GT. 0
         ENDIF   !   ISAOU .EQ. 3  ...
C
         IPARENT = UBUF(2)
         IF(ISAOU .GE. 4  .OR.
     +      (ISAOU .GE. 2  .AND. IPARENT .EQ. 0)   .OR.
     +      (ISAOU .GE. 1  .AND. NHHT .GT. 0)          )   THEN

           IVOL = IUBUF(3)
C     find correct name of the origin volume for secondary particles
C     with hits (SECT=1 mode) as there is no such informatinon in KINE bank
           IF(ISECT .EQ. 1  .AND.  IPARENT .NE. 0)   THEN
              CALL GTMEDI(VERT, J)
              IVOL = NAMES(NLEVEL)
           ENDIF

           NNTRACK = ITRK + NTPREV
           IF(IPARENT .EQ. 0)  THEN
             WRITE(IUSRAOU,
     +        '('' P ORIG'', 2I7, I4,I3, 3F10.4,3F10.3)',
     +        IOSTAT = ios)
     +        NNTRACK, IPARENT, NHHT, IPART,
     +        PVERT(1),PVERT(2),PVERT(3), VERT
           ELSE
             WRITE(IUSRAOU,
     +        '('' P '', A4,2I7, I4,I3, 3F10.4,3F10.3)',
     +        IOSTAT = ios)
     +        IVOL, NNTRACK, IPARENT, NHHT, IPART,
     +        PVERT(1),PVERT(2),PVERT(3), VERT
           ENDIF
           IF(NHHT .GT. 0)  THEN
             ISIGN = 0
             DO  J=1,NHHT
              DO  I=1,NSLP
                 ISLPL = I
                 IF(PLHT(J) .EQ. DETNAME(I))  GO TO 80
              ENDDO
              WRITE(*,*) ' *** ERROR IN PH_OUT: ',
     +          ' NO PADS DATA FOR DETECTOR ',
     +          PLHT(J)
   80         CONTINUE
C              WRITE(IUSRAOU,
C     +           '(1X, A4, 3F11.4, F10.6, E15.7, 3F9.4, I2)' )
C     +            IPLHT(J), XHT(J),YHT(J),ZHT(J), DEHT(J), DTHT(J),
C     +            DXHT(J),DYHT(J),DZHT(J), ISIGN
              WRITE(IUSRAOU,
     +           '(1X, I4, 3F11.4, F10.6, E15.7, 3F9.4, I2, 1X,A4)',
     +           IOSTAT = ios)
     +            ISLPL, XHT(J),YHT(J),ZHT(J), DEHT(J), DTHT(J),
     +            DXHT(J),DYHT(J),DZHT(J), ISIGN, PLHT(J)
             ENDDO
           ENDIF   !  NHHT .GT. 0
         ENDIF


+SELF,IF=-NONTUP.
c Temporarily store user words from JKINE structure in
c Ntuple analysis words

         IF (NUB .GT. 0 .AND. NUB .LE. NWUBMAX) THEN
            DO I = 1, NUB
               UJKBN(I) = UBUF(I)
            ENDDO
         ENDIF

*******************************************************************
* The Ntuple image is now filled.  Output track ntuple if ISNTU
* contains 1 and either the track produced some hits or ISNTU also
* contains 4; output MC Ntuple (the first part of the track ntuple)
* if ISNTU contains 2
*******************************************************************

         if (IAND(ISNTU,1) .ne. 0 .and.
     1      (NHITSL .gt. 0 .or. IAND(ISNTU,4) .ne. 0)) then

c Set directory to the ntuple disk file
           call HCDIR ('//RHTUPF', ' ')
c Set directory to the ntuple in memory
           call HCDIR ('//PAWC/RHTUP', ' ')
           call HFN (1,TUP)
           call HCDIR ('//PAWC', ' ')
           if (ISWIT(2).EQ.1 .AND. IDEBUG.EQ.1) then
* print the track ntuple
             call PRNTUP (IUSROUT, TAGS, TUP, NVTUP,
     1         ' Track Ntuple at end of PH_OUT')
           endif
         endif

         if (IAND(ISNTU,2) .ne. 0) then
           call HCDIR ('//MCTUPF', ' ')
           call HCDIR ('//PAWC/MCTUP', ' ')
           call HFN (2,TUP)
           call HCDIR ('//PAWC', ' ')
           if (ISWIT(2).EQ.1 .and. IDEBUG.EQ.1) then
* print the MC ntuple
             call PRNTUP (IUSROUT, TAGS, TUP, NVMCTUP,
     1         ' MC Ntuple at end of PH_OUT')
           endif
         endif

************************************************************
*  Fill any in-line plots requested by HIST data cards:    *
************************************************************
         IF(NHSTS.NE.0) THEN

            DO I = 1,NHSTS
               ID = NINT(HCONTROL(1,I))
               IX = NINT(HCONTROL(2,I))
               IY = NINT(HCONTROL(6,I))
               IF(IY.EQ.0) THEN
                  CALL HFILL(ID,TUP(IX),1.0,1.0)
               ELSE
                  CALL HFILL(ID,TUP(IX),TUP(IY),1.0)
               ENDIF
            ENDDO

         ENDIF
+SELF.

  100 CONTINUE

*******************************************************
*  Write end-of-event information in Hits text file:  *
*******************************************************

      if(ISAOU .GT. 0  .AND.  epstate .ge. 2)  then
        WRITE(IUSRAOU, '('' EOE    !  END OF EVENT'')' )
      endif

      RETURN
      END
+DECK,PRNTUP.
*CMZU:  2.00/02 05/04/96  11.45.35  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      SUBROUTINE PRNTUP(LU,TAGS,INVAL,N,HEAD)

*Documentation_Block
************************************************************************
*
*  Description:
*  Print out an Ntuple (or similar) and its tags in 4 columns
*
*  Arguments:
*  *LU    Logical unit for output                                (input)
*  *TAGS  Ntuple tag fieldnames                                  (input)
*  *INVAL Values from the ntuple                                 (input)
*  *N     # of columns in the ntuple                             (input)
*  *HEAD  Output header line                                     (input)
*
*  Called by:
*  PH_OUT
*
*  Calls:
*  none
*
*  Implicit inputs, outputs, side effects:
*  none
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  05-Apr-96  D. Mcleod  Remove extra parentheses in write(lu,201
*  19-Nov-92  R. Verdier Separated from package
*     Apr-92  D. Mcleod  Creation in GPH package
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

      INTEGER N, LU, I, J, K, KK
      CHARACTER*8 TAGS(N)
      CHARACTER*(*) HEAD
      REAL INVAL(N)

C  User specified header line; then output in columns
      WRITE(LU,100) HEAD
      K = (N + 3)/4
      KK = 3*K
      WRITE(LU,101) ((J-1)*K,J=1,4)

      DO I = 1,K
         IF((KK+I).GT.N) THEN
            WRITE(LU,201)I,(TAGS(J),INVAL(J),J=I,KK+I-K,K)
         ELSE
            WRITE(LU,200)I,(TAGS(J),INVAL(J),J=I,KK+I,K)
         ENDIF
      ENDDO

      RETURN

  100 FORMAT(1X,A)
  101 FORMAT(' #  ',4('|TAGS',2X,I3,2X,'VALUE',2X))
  200 FORMAT(1X,I2,1X,4('|',A8,G10.3))
  201 FORMAT(1X,I2,1X,3('|',A8,G10.3))

      END
+DECK,psking.
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
C     =====================================================================
C     File: pmc_src:psking.for
	subroutine psking(NVERT)
C
C     Description:  Replacement for GEANT GSKING that adds user buffers
C     ============ to the KINE and VERT structures.
C
C
C     Arguments:
C     ==========
C	INTEGER NVERT    !Vertex to associate with track. Booked in GUSTEP
C
C     Conditions returned:
C     ====================
C
C     Implicit inputs, outputs, side effects:
C     =======================================
C
C       Called by:GUSTEP
C       Calls: GSVERT, GSKING,GSSTAK
C
C       Impicit inputs Common block GCKINE (current track) GCKING (new tracks)
C                      Stacking is controled by IFLGK in GCKING
C		       IFLGK(NTRACK)>=0 store track. <0 flushes it.
C
C
C       Implicit outputs: Adds to JSTAK KINE and VERT banks
C
C
C     Author:  C. Parsons , R Verdier.
C     =======
C
C     Creation Date: 3-July-1992
C     ==========================
C
C     Revisions:
C     ==========
C       Date     Name    Description
C       -------  ----    -------------------------------------------------
*  14-May-93  R. V.      Multipass mods: NtTot, MUPEP.CMN
C
C     Global specifictions:
C     =====================
      implicit none
      INTEGER NVERT    !Vertex to associate with track. Booked in GUSTEP
C
C     External specifications:
C     ========================
+SEQ, GCKING.
+SEQ, GCKINE.
+SEQ, GCTRAK.
+SEQ, GCVOLU.
+SEQ, MUPEP.
+SEQ, UJKBUF.
C
C     Local definitions:
C     ==================
C.
      REAL PSTO(3), VSTO(3),TOFSTO  !Temporary storage of PVERT, VERT,TOFG
      Integer I,N   !Loop indices
     &      ,IPASTO  !Temporary storage of IPART
     &      ,ITRSTO  !Temporary storage of ITRA
     &      ,NT      !KINE bank inice of new track
C
C     Executable Statements
C     =====================
C.
C.    ******************************************************************
C.    *                                                                *
C.    * USED   TO BE THIS BUT ITS DIFFERENT NOW!!!!!                   *
C.    *                                                                *
C.    *                                                                *
C.    *    SUBR. GSKING (IGK)                                          *
C.    *                                                                *
C.    *   Stores in stack JSTAK either the IGKth track of /GCKING/,    *
C.    *    or the NGKINE tracks when IGK is 0.                         *
C.    *                                                                *
C.    *   Called by : 'User'                                           *
C.    *   Authors   : R.Brun, F.Bruyant                                *
C.    *                                                                *
C.    ******************************************************************
C.
C
C.
C.    ------------------------------------------------------------------
*
      IF (NGKINE.LE.0) GO TO 999
*
* *** Save original information from /GCKINE/ and /GCTRAK/
*
      IPASTO = IPART
      TOFSTO = TOFG
      ITRSTO = ITRA
      DO 19 I = 1,3
         VSTO(I) = VERT(I)
         PSTO(I) = PVERT(I)
   19 CONTINUE
*
* *** Store required tracks in stack JSTAK
*
      DO 90 N =  1,NGKINE
         IF (IFLGK(N).LT.0) GO TO 90
         TOFG  = TOFSTO +TOFD(N)
         IPART = GKIN(5,N)
         DO 80 I = 1,3
            VERT(I)  = VECT(I)
            PVERT(I) = GKIN(I,N)
   80    CONTINUE
c Store all the secondary tracks in JKINE, adding space for user
c words to contain stop flag, parent id, and final kimematics.
c At this point we could decide to drop low energy tracks and
c neutrinos to save time.

c Clear user buffer
	 call UZERO(UBuf, 1, Nwubmax)
	 UBuf(2) = ITRSTO + NtTot
	 IUBuf(3) = Names(NLevel)
	 call GSKINE (PVERT,IPART, NVERT, UBuf,Nwubmax, Nt)
c Force GSSTAK to use the correct track number; argument 2 makes
c GSSTAK use the existing JKINE entry.
	 ITRA = Nt
         CALL GSSTAK (2)

   90 CONTINUE

*
* *** Restore original information in /GCKINE/ and /GCTRAK/
*
      IPART = IPASTO
      ITRA  = ITRSTO
      TOFG  = TOFSTO
      DO 99 I = 1,3
         VERT(I)  = VSTO(I)
         PVERT(I) = PSTO(I)
   99 CONTINUE
*                                                             END GSKING
  999 END
+DECK,SETBATCH.
*CMZU:  1.00/00 21/11/93  18.19.23  by  R. Verdier
* Changed GCFLAX to GCFLAG (now contains old GCFLAX)
*-- Author :
C     =====================================================================
C     File PMC_SRC:SETBATCH.FOR
      SUBROUTINE SETBATCH(IFLAG)
C
C     Description: Set the BATCH flag in GCFLAX
C     ============
C
C
C     Arguments:
C     ==========
C      Integer IFLAG  ! Set BATCH to .true. if 1  .false. otherwise
C
C     Conditions returned:
C     ====================
C
C     Implicit inputs, outputs, side effects:
C     =======================================
C
C       Called by:  User via comis
C       Calls:
C
C     Author: C. Parsons
C     =======
C
C     Creation Date: 29-June-1992
C     ==========================
C
C     Revisions:
C     ==========
C       Date     Name    Description
C       -------  ----    -------------------------------------------------
C     21-Nov-93  R. V.  Changed GCFLAX to GCFLAG (now contains old GCFLAX)
C
C     Global specifictions:
C     =====================
      implicit none
C
C     External specifications:
C     ========================
+SEQ, GCFLAG.
C
C     Local definitions:
C     ==================
      Integer IFLAG  ! Set BATCH to .true. if 1  .false. otherwise
C
C     Executable Statements
C     =====================
      If(IFLAG.eq.1)then
        BATCH=.TRUE.
      Else
        BATCH=.FALSE.
      Endif
      End
+DECK,STEND.
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      INTEGER FUNCTION STEND (STRING)
***********************************************************************
*                                                                     *
*      INTEGER FUNCTION STEND (STRING)                                *
*                                                                     *
*  Created:  29-FEB-1988   John James Ryan                            *
*                                                                     *
*      This routine determines the 'Non-Blank' End of a Character     *
*      String.                                                        *
*      In case of all blanks, STEND=1 upon return. For an empty       *
*      string (zero length), STEND=0 upon return.                     *
*                                                                     *
***********************************************************************
C     Description: above
C     =============
C  Routine stolen from E665 SHELL to handle input cards better than FFREAD
C
C     Arguments:
C     ===========
C     STRING
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     none
C
C     Author:  above
C     =======
C
C     Creation Date: above
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C     23 Oct 92  R. V.      Separated from GE_...
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

      IMPLICIT NONE

      CHARACTER*(*) STRING
      INTEGER INDEX

***********************************************************************

      STEND = LEN (STRING)
      IF (STEND .EQ. 0) RETURN
C
      DO 100 INDEX = STEND, 1, -1
         IF (STRING (INDEX : INDEX) .NE. ' ') THEN
            STEND = INDEX
            GOTO 200
         ENDIF
  100 CONTINUE
      STEND = 1
C
  200 RETURN
C
      END
+DECK,STLEN.
*CMZU:  2.00/06 21/07/96  21.55.58  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      INTEGER FUNCTION STLEN (STRING)
***********************************************************************
*                                                                     *
*      INTEGER FUNCTION STLEN (STRING)                                *
*                                                                     *
*  Created:  29-FEB-1988   John James Ryan                            *
*                                                                     *
*      This routine determines the 'Non-Blank' Length of a Character  *
*      String.                                                        *
*      In case of all blanks, STLEN=1 upon return. For an empty       *
*      string (zero length), STLEN=0 upon return.                     *
*                                                                     *
***********************************************************************
C     Description: above
C     =============
C  Routine stolen from E665 SHELL to handle input cards better than FFREAD
C
C     Arguments:
C     ===========
C     STRING
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     none
C
C     Author:  above
C     =======
C
C     Creation Date: above
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C     21-Jul-96  R. V.      Removed unused variable index
C     23 Oct 92  R. V.      Separated from GE_...
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

      IMPLICIT NONE

      CHARACTER*(*) STRING
      INTEGER STSTR, STEND
      EXTERNAL STSTR, STEND
C
      STLEN = STEND (STRING) - STSTR (STRING) + 1
C
  200 RETURN
C
      END
+DECK,STOPER.
*CMZU:  2.01/01 12/03/97  22.11.15  by  Phobos (R. Verdier)
*-- Author :
*Deck STOPER             ! SHELL routines

      SUBROUTINE STOPER (FROM, MESS, IERR)

*Documentation_Block

***********************************************************************
*                                                                     *
*  This routine performs a standard program stop. It should always    *
*  be used to stop the program.                                       *
*                                                                     *
*Start_verbatim                                                       *
*                                                                     *
*  Inputs:                                                            *
*      FROM = (character*(*)) string containing name of               *
*             calling routine                                         *
*      MESS = (character*(*)) string containing user supplied         *
*             error message                                           *
*      IERR = user supplied error number                              *
*  Outputs:                                                           *
*     An error message that is written onto the unit 'IOLOG'.  The    *
* routine also issues a program stop.                                 *
*                                                                     *
*  Modified: 30-Nov-96: Message simplified and protected against      *
*                       format errors in STOPER itself (R.V.)         *
*  Created:   6-JUN-1992   John James Ryan                            *
*                                                                     *
*End_verbatim                                                         *
***********************************************************************
*End_Documentation_Block

      IMPLICIT NONE

***************************
*     Input Variables     *
***************************

      CHARACTER*(*) FROM, MESS
      INTEGER       IERR

***************************
*     Local Variables     *
***************************

      INTEGER IYSTOP

      INTEGER       NLVLS
      PARAMETER    (NLVLS= 40)

      INTEGER       IOLOG
      PARAMETER    (IOLOG= 6)

************************
*  Send the messages   *
************************

      write (iolog,'(3a,i11,a/1x,a)') ' STOPER: run stopped by ', from,
     1 ' for error # ', ierr, ':', mess

*****************************
*     Print a Traceback     *
*****************************

      WRITE (IOLOG, '('' Trace-Back Follows ....'')')
      CALL TRACEQ (IOLOG, NLVLS)

****************************
*     Stop the program     *
****************************

c*?      IYSTOP = -9

      CALL ZEND

      END
+DECK,STPARS.
*CMZ :  1.00/00 17/12/93  07.30.07  by  Phobos
*-- Author :
      SUBROUTINE STPARS (LINE,NFIELD,NFOUND,FIELDS,LENFDS)
***********************************************************************
*                                                                     *
*     STPARS (LINE, NFIELD, NFOUND, FIELDS, LENFDS)                   *
*                                                                     *
*  Created:     JUN-1988   Harry Melanson                             *
*                                                                     *
*      This subroutine is used to "Parse" a line of text, extracting  *
*      "Fields" (words separated by arbitrary numbers of spaces),     *
*      which is returned in an array.  The number of found fields     *
*      is also returned to the user; if no fields are found, a value  *
*      of zero is returned.  The length of each field is also         *
*      returned.                                                      *
*                                                                     *
*  Inputs:                                                            *
*                LINE            The Character String to be Parsed    *
*                                                                     *
*                NFIELD          The Number of Fields for which to    *
*                                search (STPARS returns after finding *
*                                this number of fields).              *
*                                                                     *
*  Outputs:                                                           *
*                NFOUND          The Number of found fields           *
*                                                                     *
*                FIELDS          Array containing the found fields.   *
*                                The dimension of this variable       *
*                                should be greater than or equal to   *
*                                the number of fields requested in    *
*                                the parsing.                         *
*                                                                     *
*                LENFDS          Array containing the lengths of the  *
*                                found fields.                        *
*                                The dimension of this variable       *
*                                should be greater than or equal to   *
*                                the number of fields requested in    *
*                                the parsing.                         *
*                                                                     *
***********************************************************************

C     Description: above
C     =============
C  Routine stolen from E665 SHELL to handle input cards better than FFREAD
C
C     Arguments:
C     ===========
C     STRING
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     none
C
C     Author:  above
C     =======
C
C     Creation Date: above
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C     23 Oct 92  R. V.      Separated from GE_...
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

      IMPLICIT NONE

      CHARACTER*(*) LINE,FIELDS(*)
      INTEGER NFIELD,LENFDS(*),NFOUND
      INTEGER ICHAR,IFIELD,IPOS,LENLIN,LENFLD,START

******************************
*   INITIALIZE FIELDS        *
******************************

      NFOUND=0
      LENFLD = LEN (FIELDS(1))
      DO 10 IFIELD=1,NFIELD
        FIELDS (IFIELD) = ' '
   10 CONTINUE

*********************************************
*     GET TO THE FIRST NON-BLANK CHARACTER  *
*********************************************

      LENLIN=LEN(LINE)
      DO 100 IPOS=1,LENLIN
      IF (LINE(IPOS:IPOS).NE.' ') THEN
        START=IPOS
        GOTO110
      ENDIF
  100 CONTINUE
      RETURN

********************************************
*   PARSE THE LINE, PULLING OUT THE FIELDS *
********************************************

  110 CONTINUE
      ICHAR=0
      IFIELD=1
      DO 120 IPOS=START,LENLIN
      IF (LINE(IPOS:IPOS).NE.' ') THEN
        ICHAR=ICHAR+1
        IF (ICHAR.LE.LENFLD) THEN
          FIELDS(IFIELD)(ICHAR:ICHAR)=LINE(IPOS:IPOS)
        ENDIF
      ELSE
        IF (ICHAR.NE.0) THEN
          IF (ICHAR.LE.LENFLD) THEN
            LENFDS(IFIELD)=ICHAR
          ELSE
            LENFDS(IFIELD)=LENFLD
          ENDIF
          ICHAR=0
          IFIELD=IFIELD+1
          NFOUND=NFOUND+1
          IF (IFIELD.GT.NFIELD) RETURN
        ENDIF
      ENDIF
  120 CONTINUE

      RETURN
      END
+DECK,STSTR.
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      INTEGER FUNCTION STSTR (STRING)
***********************************************************************
*                                                                     *
*      INTEGER FUNCTION STSTR (STRING)                                *
*                                                                     *
*  Created:  29-FEB-1988   John James Ryan                            *
*                                                                     *
*      This routine determines the 'Non-Blank' Start of a Character   *
*      String.                                                        *
*     A Blank String returns a value of "1"                           *
*                                                                     *
***********************************************************************

C     Description: above
C     =============
C  Routine stolen from E665 SHELL to handle input cards better than FFREAD
C
C     Arguments:
C     ===========
C     STRING
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     none
C
C     Author:  above
C     =======
C
C     Creation Date: above
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C     23 Oct 92  R. V.      Separated from GE_...
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

      IMPLICIT NONE

      CHARACTER*(*) STRING
      INTEGER INDEX
C
      STSTR = 1
C
      DO 100 INDEX = 1, LEN (STRING)
         IF (STRING (INDEX : INDEX) .NE. ' ') THEN
            STSTR = INDEX
            GOTO 200
         ENDIF
  100 CONTINUE
C
  200 RETURN
C
      END
+DECK,STTOIN.
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      INTEGER FUNCTION STTOIN (STRING)

***********************************************************************
*                                                                     *
*      INTEGER FUNCTION STTOIN (STRING)                               *
*                                                                     *
*  Created:  21-MAY-1988   Harry Melanson                             *
*                                                                     *
*  THIS ROUTINE CONVERTS A STRING INTO AN INTEGER.  IT ASSUMES THE    *
*  STRING ONLY HAS ONE FIELD OF NUMBERS.  IT IGNORES ANY SPACES.      *
*                                                                     *
*  Inputs:                                                            *
*    STRING = (CHARACTER)  THE STRING                                 *
*  Outputs:                                                           *
*    STTOIN = THE INTEGER                                             *
*                                                                     *
***********************************************************************
C     Description: above
C     =============
C  Routine stolen from E665 SHELL to handle input cards better than FFREAD
C
C     Arguments:
C     ===========
C     STRING
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     none
C
C     Author:  above
C     =======
C
C     Creation Date: above
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C     23 Oct 92  R. V.      Separated from GE_...
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

      IMPLICIT NONE

      INTEGER  STLEN,STSTR,STEND
      EXTERNAL STLEN,STSTR,STEND

      CHARACTER*(*) STRING
      CHARACTER FORM*15

*************************************************************
*     CONVERT THE STRING TO AN INTEGER, IGNORING SPACES     *
*************************************************************

      WRITE (FORM,'(''(I'',I11.11,'')'')') STLEN(STRING)
      READ (STRING(STSTR(STRING):STEND(STRING)),FORM) STTOIN

      RETURN
      END
+DECK,STTORL.
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      REAL FUNCTION STTORL (STRING)

***********************************************************************
*                                                                     *
*      INTEGER FUNCTION STTORL (STRING)                               *
*                                                                     *
*  Created:  21-MAY-1988   Harry Melanson                             *
*                                                                     *
*  THIS ROUTINE CONVERTS A STRING INTO A REAL.  IT ASSUMES THE        *
*  STRING ONLY HAS ONE FIELD OF NUMBERS.  IT IGNORES ANY SPACES.      *
*                                                                     *
*  Inputs:                                                            *
*    STRING = (CHARACTER)  THE STRING                                 *
*  Outputs:                                                           *
*    STTOIN = THE REAL NUMBER                                         *
*                                                                     *
***********************************************************************

C     Description: above
C     =============
C  Routine stolen from E665 SHELL to handle input cards better than FFREAD
C
C     Arguments:
C     ===========
C     STRING
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     none
C
C     Author:  above
C     =======
C
C     Creation Date: above
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C     23 Oct 92  R. V.      Separated from GE_...
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

      IMPLICIT NONE

      INTEGER  STLEN,STSTR,STEND
      EXTERNAL STLEN,STSTR,STEND

      CHARACTER*(*) STRING
      CHARACTER FORM*20

*************************************************************
*     CONVERT THE STRING TO A REAL, IGNORING SPACES         *
*************************************************************

      WRITE (FORM,'(''(E'',I10.10,''.0)'')') STLEN(STRING)
      READ (STRING(STSTR(STRING):STEND(STRING)),FORM) STTORL

      RETURN
      END
+DECK,UFILE.
*CMZU:  2.03/01 25/07/97  14.35.29  by  Phobos (D. McLeod)
*-- Author :
      subroutine UFILE(Mode, LogName, LogUnit, FileName)
*Documentation_Block
************************************************************************
*
* Description:
*  Assigns Fortran logical unit numbers for, and optionally opens or
*  closes, a file for the Phobos MC.
*
*  Arguments:
*  Mode (integer; input): specifies actions to be preformed by UFILE;
*   = 0: Assign a logical unit number to the file, and, if it is not
*        in the list of files already assigned, open it.
*   = 1: Same action as mode = 0, but do not open the file.
*   = 2: Close the file.
*   = 3: Close all assigned files and delete all assignments.
*  LogName (character*(*), input): specifies the logical file name,
*   presumed to have been assigned to an actual file by DCL statements.
*   If the name contains a period (.), DCL treats it as an actual
*   (not logical) file name.
*   If the name contains no  period, and no logical assignment was made,
*   Fortran will take FILENAME.DAT as the actual file name.
*  LogUnit (integer, output) is the returned Fortran Logical Unit
*   Number; if an error occurred, LogUnit will be 0 or negative.
*  FileName (character*(*), output): the actual filename assigned
*   to the file.  This uses VAX-specific system calls, but a KUIP
*   alternative is available for platform independence.
*
*  This is an interim version, saving old hooks and information transfer
*  via IO.CMN, until the File server is ready.
*
*  Called by:
*  UGINIT
*
*  Calls:
*    LIB$SYS_TRNLOG or GETENV, LENOCC
*
*  Implicit inputs: IO.CMN for parameterized unit #s
*
*  Implicit outputs: opened files; unit numbers in common IO
*
*  Filename: pmc_src:UFILE.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  20-Jul-97  DMcL       Report level, AIX vs. non-AIX now set by
*                        preprocessor switches REP2, AIX
*  15-Jul-97  DMcL       GETENV call in place of LIB$SYS_TRNLOG in UNIX
*                        environment, to obtain (setenv) file name.
*                        OPENs altered to use full file names.
*  25-Mar-97  R. V.      Version for DEC osf1, status 'new' -> 'unknown'
*                        if CMZ selects OSF1; added reporting options;
*                        list alternate selections as comments for
*                        testing without CMZ
*  13-Aug-96  R. V.      Change READONLY to ACTION = READ if CMZ selects
*                          IBM; replace FLDZBR by BATKUMAC
*  21-Jul-96  R. V.      Removed unused nn
*  08-Jul-96  R. V.      Use lib$sys_trnlog if sel VMS, else KUQUINF
*  18-Jul-94  K. Wozniak Increase NFILES to 10
*  06-Jun-93  R. V.      Add GENEVS
*  10-Jan-93  R. V.      Add VAX-specific code to get actual filename.
*                        There is also a KUIP non-specific alternative
*  10-Dec-92  R. V.      Changed name to UFILE; restructured to allow
*                        programs to call for individual files to be
*                        located and/or opened
*   9-Dec-92  C. Conner  Add field map in pre-sorted Zebra bank
*  15-Nov-92  R. Verdier Save unit values in IO common to flag
*                        results of file opens, add gcdefs
*   6-Jun-92  C. Parsons Separated from package, added cards$def
*     Apr-92  D. Mcleod  Creation in GPH package as UFILES
************************************************************************
*End_Documentation_Block

C     Global specifictions:

      IMPLICIT NONE

c     Arguments:

      integer LogUnit, Mode
      character*(*) LogName, FileName

C     External specifications:

+SEQ, IO.
      integer LENOCC

c Local definitions:

      integer MaxFiles
      parameter (MaxFiles = 12)
      integer IFile, ios
      character*11 Form, Forms(3) /'formatted', 'unformatted',
     * 'unspecified'/
      character*7 Stat, Status(3) /'old', 'new', 'unknown'/

c Preassigned files:
c RHDATA  is for FFREAD and STPARS control input
c GCDEFS  is for UGC system geometry and control input
c CARDS$DEF is for interactive input of FFREAD and STPARS data
c RHASC is for standard debug output
c BATKUMAC is for a KUIP batch command file
c FLDASC is for ascii-format magnetic field data
c RHZEB is for Zebra output
c RHNTU is for Ntuple output for tracks containing hits only
c MCNTU is for Ntuple output for all tracks
c GENEVS is for the ascii track input file
c The corresponding standard logical unit numbers usrin, ... are
c defined in IO.CMN now, but eventually should be defined directly by
c the definition for Luns below.
c Additional numbers 101, ... are pre-set for formatted ascii output
c files; for other file types, the user should call with mode = 1 and
c do his own OPEN.

      integer NFiles /10/, NFilesPre /10/
      character*32 LogNames(MaxFiles)
     * /'RHDATA', 'GCDEFS', 'CARDS$DEF', 'RHASC', 'BATKUMAC',
     *  'FLDASC', 'RHZEB', 'RHNTU', 'MCNTU', 'GENEVS', 2*' '/
      character*63 FileNames(MaxFiles)
      integer Luns(MaxFiles)
     * / usrin, usrgcin, carddef, usrout, usrbatkumac, usrmap, usrzeb,
     *   usrntu, usrmcntu, 91, 92, 93 /

c Iform = 1 for FORMATTED, 2 for UNFORMATTED, 3 for unspecified
      integer Iform(MaxFiles)
     * / 1, 1, 1, 1, 1, 1, 2, 5*1/
c Irw = 1 for READONLY, 2 for normal READ/WRITE
      integer Irw(MaxFiles)
     * / 1, 1, 1, 2, 1, 1, 2, 2*2, 1, 2*2/
c Istat = 1 for OLD, 2 for NEW, 3 for UNKNOWN
c Created file status: UNKNOWN for OSF1, NEW for other o.s.'s
+SELF,IF=-OSF1,IF=-HP-UX.
c*****integer Istat(MaxFiles) / 1, 1, 1, 3, 1, 1, 3, 2*3, 1, 2*3/
      integer Istat(MaxFiles) / 1, 1, 1, 2, 1, 1, 2, 2*2, 1, 2*2/
+SELF,IF=OSF1,HP-UX.
c*****integer Istat(MaxFiles) / 1, 1, 1, 2, 1, 1, 2, 2*2, 1, 2*2/
      integer Istat(MaxFiles) / 1, 1, 1, 3, 1, 1, 3, 2*3, 1, 2*3/
+SELF.

c Temporary report level: 0 = no output, 1 = errors only, 2 = always
+SELF,IF=-REP2.
      integer report / 1 /
+SELF,IF=REP2.
      integer report / 2 /
+SELF.
c Executable Statements:

      if (Mode .ge. 0 .and. Mode .le. 2) then

c Find logical unit number assigned to this file, if any

        LogUnit = 0
        IFile = 0
        do while (LogUnit .eq. 0 .and. IFile .lt. NFiles)
          IFile = IFile + 1
          if (LogNames(IFile) .eq. LogName) LogUnit = Luns(IFile)
        enddo

c If none, and mode = 0 or 1, assign a Lun

        if (LogUnit .eq. 0 .and. NFiles .lt. MaxFiles .and.
     *      (Mode .eq. 0 .or. Mode .eq. 1)) then
          NFiles = NFiles + 1
          IFile = NFiles
          LogNames(IFile) = LogName
          LogUnit = Luns(IFile)
        endif

c Get actual file name from system call.. system dependent:

        if (IFile .gt. 0) then
          FileNames(IFile) = ' '
+SELF,IF=VMS.
C  get file name set by ASSIGN in VMS
          call LIB$SYS_TRNLOG (LogName,,FileNames(IFile),,,)
+SELF,IF=-VMS.
C  Similarly (7/15/97) get actual file name in UNIX environment,
C  assuming set by setenv call.  Otherwise use logical name & link to it.
          call GETENV(LogName,FileNames(IFile))
+SELF.

          if( FileNames(IFile).eq. ' ') FileNames(IFile) = LogName
          FileName = FileNames(IFile)(1:LENOCC(FileNames(IFile)))

        endif

c Open the file if mode = 0 and a Lun was assigned.  The form of the
c statement has to be different for different platforms because the
c Fortran standard prevents file characteristics like READONLY,
c essential for reading data files that may be open concurrently for
c other jobs, from being entered as character strings or flag words.

        if (Mode .eq. 0 .and. LogUnit .gt. 0) then

          Form = Forms(Iform(IFile))
          Stat = Status(Istat(IFile))

          if (Irw(IFile) .eq. 1) then
c Open existing files with ACTION=READ for IBM AIX, READONLY for
c other o.s.'s
+SELF,IF=-AIX.
            OPEN (UNIT=LogUnit, FILE=FileName, FORM=Form, STATUS=Stat,
     1      READONLY, IOSTAT=ios)
+SELF,IF=AIX.
            OPEN (UNIT=LogUnit, FILE=FileName, FORM=Form, STATUS=Stat,
     1      ACTION='READ', IOSTAT=ios)
+SELF.
          else

c Open output file as status new, formatted/unformatted normally,
c status unknown under DEC OSF1 Unix
            OPEN (UNIT=LogUnit, FILE=FileName,
     *      FORM=Form, STATUS=Stat, IOSTAT=ios)
          endif

c Report results

          if (Report .gt. 0) then
            if (ios .eq. 0 .and. Report .gt. 1)
     *         print '(3a,i4,5a/2a)', ' UFILE: opened ', LogName,
     *         ' on unit', LogUnit, ', format = ', Form, ', status = ',
     *          Stat, ',', ' file ', FileName
            if (ios .ne. 0)
     *         print '(3a,i4,5a,i6,a/2a)', ' UFILE: error opening ',
     *         LogName, ' on unit', LogUnit, ', format = ', Form,
     *         ', status = ', Stat, ', IOSTAT =', ios, ',',
     *         ' file ', FileName
          endif

c Return the negative of the i/o error code if the open failed

          if (ios .ne. 0) LogUnit = -abs(ios)

        endif ! Mode = 0

C Mode = 2:  Close the open file
        if (Mode .eq. 2 .and. LogUnit .gt. 0) close(LogUnit)


      else if (Mode .eq. 3) then

c Mode 3: close all assigned files

        do IFile = 1, NFiles

          close (Luns(IFile))

        end do

        NFiles = NFilesPre

      endif ! Mode = [0, 2]

      return

      end
+DECK,UGCDEF.
*CMZU:  2.03/00 24/07/97  11.22.52  by  K. Wozniak
*CMZU:  2.02/00 17/03/97  12.11.21  by  K. Wozniak
*CMZU:  2.00/08 25/07/96  13.40.24  by  Phobos (R. Verdier)
*CMZU:  1.01/17 19/04/95  13.54.05  by  Phobos (R. Verdier)
*CMZU:  1.01/08 13/06/94  15.55.32  by  Phobos (R. Verdier)
*CMZU:  1.01/07 05/19/94  16.22.30  by  R. Verdier
*CMZU:  1.01/03 03/01/94  10.10.59  by  R. Verdier
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      subroutine UGCDEF (key, nargs, atypes, iargs, rargs, lsargs,
     *  ssargs, line, ires)
*Documentation_Block
************************************************************************
*
*  Description:
*  UGCDEF executes geometry and control information definitions for
*  Phobos.
*  UGCDEF receives the information from a UGC input line and passes the
*  specified values of the variables to specialized (e.g., Geant)
*  geometry- and reconstruction-defining subroutines.
*
*  Arguments:
*  atypes: list of argument types: 1 = integer, 2 = real, 3 = string
*  iargs:  array of integer arguments
*  ires:   integer value returned to caller:
*          0 if no errors were encountered;
*          1 if the keyword was not recognized;
*         -1 if the expected number of arguments was not found;
*         -2 if an argument was of the wrong type.
*         -4 if a special argument was of the wrong type, probably
*            a temporary condition until code is generalized.
*  key:    keyword identifying this data
*  line:   storage for string arguments
*  lsargs: array of locations of string arguments in line
*  nargs:  total number of arguments of all types
*  rargs:  array of real arguments
*  ssargs: array of sizes of string arguments
*
*  Called by:
*  UGCIN, after parsing a line of UGC text input with primary key GS.
*
*  Sub-
*  key    Calls:
*  ATT    GSATT  to set volume attributes such as 'inactive';
*  CLOS   GGCLOS to close geometry banks, required by Geant;
*  DET    GSDET  to define a Geant sensitive volume [detector];
*  DETH   GSDETH to define a Geant detector's hit handling parameters;
*  DET    GSDETV to define a sensitive volume, Geant sets NAMESV;
*  DVN    GSDVN  to divide a sensitive voulme into subvolumes (pixels)
*  MATE   GSMATE to define a Geant material;
*  MIXT   GSMIXT to define a Geant material mixture;
*  POS    GSPOS  to position one Geant volume inside another;
*  ROTM   GSROTM to define a rotation matrix;
*  TMED   GSTMED to define a Geant tracking medium;
*  TPAR   GSTPAR to define individual Geant tracking medium parameters;
*  VOLU   GSVOLU to define a Geant volume;
*  Other Geant subroutine calls will be added as required.
*
*  Implicit inputs, outputs, side effects:
*  Geant creates Zebra banks containing all the description data,
*  and the data structures JPART, JMATE, JTMED, JROTM, JVOLUM, and
*  JSET.
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*   2-Jul-97  K.W.       added GS DVN command for division of senvitive volumes
*   2-Mar-97  K.W.       unused IRET, ISET, IDET tables changed to single
*                        variables to protect against overflow numbers
*                        in the UGCDATA input file
*  25-Jul-96  R. V.      ")," -> ")" in writes for ANSI compliance
*  19-Apr-95  A. Trzupek Allow NLMAT <0 in GS MIXT for mix by # atoms
*  13-Jun-94  R. V.      Add GSDETV to enable GLVOLU; store NSIP
*  19-May-94  R. V.      Added GSTPAR
*  28-Dec-93  R. V.      Added GSATT
*  27-Apr-93  R. V.      Move UGCPAR definitions to RHSIL.CMN
*  29-Dec-92  R. V.      Discard returned Geant volume #s if more than
*                        MaxVolDef volumes are defined, since they are
*                        unused; improve error messages.
*  02-Nov-92  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      implicit none

c Argument declarations:

      character*(*) key, line
      integer nargs, atypes(*), iargs(*), lsargs(*), ssargs(*),
     *  ires
      real rargs(*)

c Common declaration for access to hits parameter definition vectors
c used by UGCDEF and UGCSET:

+SEQ,RHSIL.

c Local declarations:

c local debug controls:
c Idebug = 0 for no output, 1 for fatal errors only, ...
      integer idebug /1/, ios, lun /6/
c Storage for volume definitions:
      integer MaxVolDef, nvoldef /0/
      parameter (MaxVolDef = 100)
      integer ivoldef, ivolu(MaxVolDef) /MaxVolDef*0/
      logical FlagTooMany /.true./

c Declarations for keys and validation of input data:
      integer nkeys, maxargs
      parameter (nkeys = 14, maxargs = 20)
      character*8 keys(nkeys)
      character*24 typename(3) /'an integer.',
     * 'a floating point number.', 'a character string.'/
      data keys / 'ATT', 'CLOS', 'DET', 'DETH', 'DETV', 'MATE', 'MIXT',
     *  'POS', 'ROTM', 'TMED', 'TPAR', 'VOLU', 'VOLU', 'DVN' /
      integer iarg, ikey, kk
      integer nargsexp(nkeys), vtypes(maxargs, nkeys)

c A negative expected number of args means that at least one argument
c is variable size, so that the actual number can be known only by
c code specific to the called subroutine; only the first -n args
c are checked for type.

      data nargsexp / 3, 0, 12, 7, 9, 9, -3, 8, 7, 13, 3, 5, -4, 4 /

c Data type code vtype = 1: integer; 2: real; 3: character string.

      data (vtypes (kk, 1), kk=1,3)  / 3, 3, 1 /
      data (vtypes (kk, 3), kk=1,12) / 3, 3, 1, 3, 4*1, 3, 1, 3, 1 /
      data (vtypes (kk, 4), kk=1,7)  / 3, 3, 1, 3, 3, 3, 3 /
      data (vtypes (kk, 5), kk=1,9)  / 3, 3, 3*1, 3, 1, 3, 1 /
      data (vtypes (kk, 6), kk=1,9)  / 1, 3, 5*2, 2*1 /
      data (vtypes (kk, 7), kk=1,3)  / 1, 3, 2 /
      data (vtypes (kk, 8), kk=1,8)  / 3, 1, 3, 2, 2, 2, 1, 3 /
      data (vtypes (kk, 9), kk=1,7)  / 1, 6*2 /
      data (vtypes (kk,10), kk=1,13) / 1, 3, 3*1, 6*2, 2*1 /
      data (vtypes (kk,11), kk=1,3)  / 1, 3, 2 /
      data (vtypes (kk,12), kk=1,5)  / 3, 3, 1, 3, 1 /
      data (vtypes (kk,13), kk=1,4)  / 3, 3, 1, 2 /
      data (vtypes (kk,14), kk=1,4)  / 3, 3, 1, 1 /

c Local definitions unique to Phobos
      integer idiv, iaxis
      character*4 ddname, dmname

c Unused GSDET returns:
      INTEGER IRETDUM, ISETDUM, IDETDUM

c End of declarations

      ires = 0

c Check the given key against the list of keywords.
c At completion of loop, ikey will be the index of the found
c keyword; = 0 means none was found, < 0 means one was found that
c failed a validity test.
c Ires will have the flag for the last failure found for the key.
      kk = 0
      ikey = 0
      do while (ikey .le. 0 .and. kk .lt. nkeys)
        kk = kk + 1
        if (key .eq. keys(kk)) then
          ikey = kk
c The following is *** wrong ***, it loses the old ires.
          ires = 0
        endif

c Verify that the number of tokens found is correct.  As multiple
c entries for a keyword are allowed, this and the following
c condition may not be permanent errors.

        if (ikey .gt. 0) then
          if (nargsexp(ikey) .gt. 0 .and. nargs .ne. nargsexp(ikey))
     *    then
            if (idebug .ge. 2) write (lun,'(a,i3,3a,i3,a)',iostat=ios)
     *        ' UGCDEF:', nargs, ' arguments found for keyword ',
     *        key, '; ', nargsexp(ikey), ' expected.'
            ires = -1
          endif
        endif

c Verify that the argument variable types are correct.

        if (ires .eq. 0 .and. ikey .gt. 0) then
          do iarg = 1, iabs(nargsexp(ikey))
            if (vtypes(iarg, ikey) .gt. 0 .and.
     *          atypes(iarg) .ne. vtypes(iarg, ikey)) ires = -2
          enddo
          if (idebug .ge. 2 .and. ires .eq. -2)
     *      write (lun, '(3a,i2,2a)', iostat=ios)
     *        ' UGCDEF: ', line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *        ' argument #', iarg, ' is not ',
     *        typename(iabs(vtypes(iarg, ikey)))
        endif

        if (ires .eq. 0) then

c If no errors so far, call the subroutine for this key:

          if (ikey .eq. 1) then
            call GSATT (line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *          line(lsargs(2):lsargs(2)+ssargs(2)-1), iargs(3))

          elseif (ikey .eq. 2) then
            call GGCLOS

          elseif (ikey .eq. 3) then
            if   (line(lsargs(4):lsargs(4)+ssargs(4)-1) .eq. 'ISET'
     *      .and. line(lsargs(5):lsargs(5)+ssargs(5)-1) .eq. 'IDET')
     *      then
              call GSDET (line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *          line(lsargs(2):lsargs(2)+ssargs(2)-1), iargs(1),
     *          line(lsargs(3):lsargs(3)+ssargs(3)-1), iargs(2),
     *          iargs(3), iargs(4), iargs(5), ISETDUM,
     *          IDETDUM)
            else
              ires = -1
            endif

          elseif (ikey .eq. 4) then
c Temporarily, use only standard detector information tables referenced
c by the names that Geant uses:
            if   (line(lsargs(3):lsargs(3)+ssargs(3)-1) .eq. 'NAMESH'
     *      .and. line(lsargs(4):lsargs(4)+ssargs(4)-1) .eq. 'NBITSH'
     *      .and. line(lsargs(5):lsargs(5)+ssargs(5)-1) .eq. 'ORIG'
     *      .and. line(lsargs(6):lsargs(6)+ssargs(6)-1) .eq. 'FACT')
     *      then
              NSIP = iargs(1)
              call GSDETH (line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *          line(lsargs(2):lsargs(2)+ssargs(2)-1), NSIP,
     *          SINAMH, SIBITH, SIORIG, SIFACT)
            else
              ires = -2
            endif

          elseif (ikey .eq. 5) then
            if   (line(lsargs(3):lsargs(3)+ssargs(3)-1) .eq. 'ISET'
     *      .and. line(lsargs(4):lsargs(4)+ssargs(4)-1) .eq. 'IDET')
     *      then
              call GSDETV (line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *          line(lsargs(2):lsargs(2)+ssargs(2)-1), iargs(1),
     *          iargs(2), iargs(3), ISETDUM, IDETDUM)
            else
              ires = -1
            endif

          elseif (ikey .eq. 6) then
            call GSMATE (iargs(1),
     *        line(lsargs(1):lsargs(1)+ssargs(1)-1), rargs(1),
     *        rargs(2), rargs(3), rargs(4), rargs(5), rargs(2),
     *        iargs(3))

          elseif (ikey .eq. 7) then
            if (ABS(iargs(2)) .eq. 2 .and.
     *        nargs .eq. 3 * ABS(iargs(2)) + 4) then
              call GSMIXT (iargs(1),
     *          line(lsargs(1):lsargs(1)+ssargs(1)-1), rargs(1),
     *          rargs(3), rargs(5), iargs(2), rargs(6))
            else
              ires = -2
            endif

          elseif (ikey .eq. 8) then
            call GSPOS (line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *        iargs(1), line(lsargs(2):lsargs(2)+ssargs(2)-1),
     *        rargs(1), rargs(2), rargs(3), iargs(2),
     *        line(lsargs(3):lsargs(3)+ssargs(3)-1))

          elseif (ikey .eq. 9) then
            call GSROTM (iargs(1), rargs(1), rargs(2), rargs(3),
     *        rargs(4), rargs(5), rargs(6))

          elseif (ikey .eq. 10) then
            call GSTMED (iargs(1),
     *        line(lsargs(1):lsargs(1)+ssargs(1)-1), iargs(2),
     *        iargs(3), iargs(4), rargs(1), rargs(2), rargs(3),
     *        rargs(4), rargs(5), rargs(6), iargs(5), iargs(6))

          elseif (ikey .eq. 11) then
            call GSTPAR (iargs(1),
     *        line(lsargs(1):lsargs(1)+ssargs(1)-1), rargs(1))

          elseif (ikey .eq. 12) then
c If volume shape parameters were specified in a vector, check that
c the name is "SPARS"; this will be generalized later to any recognized
c vector
            if (line(lsargs(3):lsargs(3)+ssargs(3)-1) .eq. 'SPARS')
     *      then
c Protect against storage overflow of returned results.  This informa-
c tion is presently unused; if required in future, the solution is to
c recompile with MaxVolDef increased.
              nvoldef = nvoldef+1
              ivoldef = min(nvoldef, MaxVolDef)
              call GSVOLU (line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *          line(lsargs(2):lsargs(2)+ssargs(2)-1),
     *          iargs(1), Ugcpars(1), iargs(2), ivolu(ivoldef))
            else
c Flag attempt to reference an arbitrary parameter vector, rather
c than the special vector Ugcpars.  This will be generalized later.
              ires = -4
            endif

          elseif (ikey .eq. 13) then
c If volume shape parameters were specified inline, check that the
c # of parameters found agrees with the number specified
            if (nargs .eq. iargs(2)+4) then
              nvoldef = nvoldef+1
              ivoldef = min(nvoldef, MaxVolDef)
              call GSVOLU (line(lsargs(1):lsargs(1)+ssargs(1)-1),
     *          line(lsargs(2):lsargs(2)+ssargs(2)-1),
     *          iargs(1), rargs(1), iargs(2), ivolu(ivoldef))
            else
c Flag nmber of arguments inconsistent with number of shape parameters.
              ires = -1
            endif
          elseif (ikey .eq. 14) then
c Division of a volume
            ddname = line(lsargs(1):lsargs(1)+ssargs(1)-1)
            dmname = line(lsargs(2):lsargs(2)+ssargs(2)-1)
            idiv = iargs(1)
            iaxis = iargs(2)
            if(iaxis .eq. 1)  then
               if(ndivx(ndets) .ne. 0)  go to 90
               if(dmname .eq. detname(ndets))  go to 95
               if(dmname .eq. divyname(ndets))  go to 95
               if(dmname .eq. divzname(ndets))  go to 95
            else if(iaxis .eq. 2)  then
               if(ndivy(ndets) .ne. 0)  go to 90
               if(dmname .eq. detname(ndets))  go to 95
               if(dmname .eq. divxname(ndets))  go to 95
               if(dmname .eq. divzname(ndets))  go to 95
            else if(iaxis .eq. 3)  then
               if(ndivz(ndets) .ne. 0)  go to 90
               if(dmname .eq. detname(ndets))  go to 95
               if(dmname .eq. divxname(ndets))  go to 95
               if(dmname .eq. divyname(ndets))  go to 95
            endif
            write(*,*) ' *** ERROR IN UGCDATA FILE: ',
     +       'GS DVN command: mother volume: ', dmname,
     +       '  not defined in last GS SET PADS or GS DVN command'
            write(*,*) '          (GS DVN has to be right after ',
     +                 'GS SET PADS)'
            go to 96
   90       continue
            write(*,*) ' *** ERROR IN UGCDATA FILE: ',
     +       'GS DVN command: axis: ', iaxis,
     +           '   already divided or the axis number wrong'
            go to 96
   95       continue
            if(iaxis .eq. 1)  then
               ndivx(ndets) = idiv
               divxname(ndets) = ddname
            else if(iaxis .eq. 2)  then
               ndivy(ndets) = idiv
               divyname(ndets) = ddname
            else if(iaxis .eq. 3)  then
               ndivz(ndets) = idiv
               divzname(ndets) = ddname
            endif

            call GSDVN (ddname, dmname, idiv, iaxis)
   96       continue
          endif ! if ikey

        endif ! if ires

c If an error occurred, reset ikey negative and try again
        if (ires .lt. 0) ikey = -iabs(ikey)

      enddo ! while ikey <= 0 and kk <= nkeys

c Flag unrecognized key: this is not necessarily an error, if we pass
c non-UGC control data through UGC.

      if (ikey .le. 0 .and. ires .eq. 0) ires = 1

c Debug: display errors (if idebug >= 1) or success (if idebug >= 3)

      if (ires .eq. 1 .and. idebug .ge. 2) then
        write (lun, '(3a)', iostat=ios) ' UGCDEF: key ', key,
     *    ' unknown, information not processed.'
      elseif (idebug .ge. 1) then
        if (ires .eq. -1) then
          write (lun, '(3a)', iostat=ios) ' UGCDEF: ', key,
     *    ' had an unexpected number of arguments, not processed.'
        elseif (ires .eq. -2) then
          write (lun, '(3a)', iostat=ios) ' UGCDEF: ', key,
     *    ' had an argument of unexpected type, not processed.'
        elseif (ires .eq. -4) then
          write (lun, '(3a)', iostat=ios) ' UGCDEF: ', key,
     *    ' had a special argument of unexpected type, not processed.'
        endif
      elseif (ires .eq. 0 .and. idebug .ge. 2) then
        if (FlagTooMany .and. Nvoldef .gt. MaxVolDef) then
          write (lun, '(3a,i3)', iostat=ios)
     *    ' UGCDEF: more than', MaxVolDef, ' volumes defined, excess',
     *     ' volume indices discarded.'
          FlagTooMany = .false.
        endif
        write (lun, '(3a,i3)', iostat=ios)
     *  ' UGCDEF found ', key, ' = key #', ikey
      endif

      return
      end
+DECK,UGCGET.
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      subroutine UGCGET (line, lline, itoken, loct, lent, lnext)
*Documentation_Block
************************************************************************
*
*  Description:
*  UGCGET executes geometry and control information definitions for
*  Phobos.
*  UGCGET fetches the next token from a UGC input line, skipping
*  in-line comments (initially delimited by curly brackets "{ }") and
*  information following the line terminator (initially "!").
*  Tokens are separated by white space, initially consisting of
*  sequential blanks and tabs.
*  Strings are composed of any legal characters; if they contain
*  embedded white space, they must be surrounded by apostrophes (').
*  Continuation lines, quotes within strings such as 'isn''t', and
*  logical nesting are not yet implemented.
*
*  Arguments:
*  *line:   storage for text lines and stored definitions
*  *lline:  length of the line to be parsed
*  itoken*: index of the next token = 1, 2, ...; < 0 if error
*  loct*:   location in line of the start of the found token
*  lent*:   length of the found token
*  lnext*:  location in line of the whitespace following the found
*           token
*
*  Called by:
*  UGCIN, while processing a line of UGC text input.
*
*  Calls:
*  none
*
*  Implicit inputs, outputs, side effects:
*  none
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  02-Nov-92  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      implicit none

c Argument declarations:

      character*(*) line
      integer itoken, loct, lent, lline, lnext

c Local declarations:

      character*1 cch, blank /' '/, tab /' '/, apos /''''/,
     *  opencomment /'{'/, closecomment /'}'/

      integer idebug /1/, mode, n1, n2

c End of declarations

c Check both loct and lline for validity

      if (loct .le. 0) then
        if (idebug .gt. 0) print '(a,i8,a)',
     *    'UGCGET called with loct = ', loct, ', taken as 1.'
        loct = 1
      endif
      if (lline .le. 0) then
        if (idebug .gt. 0) print '(a,i8,a)',
     *    'UGCGET called with lline = ', lline, ', taken as 1.'
c The following must be fixed:
        lline = 1
      endif
c Set n1 and n2 to the indices of the first and last-plus-1 non-
c whitespace [blank or tab] characters in the string, and mode to
c 0 (normal search)
      n1 = 0
      n2 = 0
      mode = 0
      do while (n1 .eq. 0 .or. n2 .eq. 0)
        cch = line(loct:loct)
        if (cch .eq. opencomment .and. mode .eq. 0) then
          mode = 2
        else if (cch .eq. closecomment .and. mode .eq. 2) then
          mode = 0
        else if (mode .eq. 2) then
        else if (cch .ne. blank .and. cch .ne. tab) then
          if (n1 .eq. 0) then
            if (cch .eq. apos .and. mode .eq. 0) then
              mode = 1
            else
              n1 = loct
            endif
          else if (cch .eq. apos .and. mode .eq. 1) then
            if (line(loct-1:loct-1) .ne. apos) mode = 0
c The treatment of 'xxx''xxx' here must be changed so that the
c two internal apostrophes are compressed to one; this apparently
c requires all strings to be moved to separate storage, to avoid
c modifying input.
          endif
        else
          if (n1 .ne. 0 .and. n2 .eq. 0 .and. mode .eq. 0) then
            n2 = loct
          endif
        endif
        if (loct .ge. lline) n2 = lline
        if (idebug .gt. 2) print '(a,i3,3a,i3,a,i3)',
     *    ' UGCGET: loct=', loct, ', cch=', cch, ', n1=', n1,
     *    ', n2=', n2
        loct = loct + 1
      end do
      itoken = itoken + 1
      loct = n1
      lnext = n2
      lent = n2 - n1
      if (line(lnext-1:lnext-1) .eq. apos) lent = lent - 1

      return
      end
+DECK,UGCIN.
*CMZU:  2.00/08 25/07/96  13.42.34  by  Phobos (R. Verdier)
*CMZU:  2.00/02 05/04/96  13.52.44  by  Phobos (R. Verdier)
*CMZU:  1.00/00 22/11/93  23.59.59  by  R. Verdier
* -maxargs -> mmaxargs, idebug -> ldebug for non-VMX Fortrans
*CMZ :          17/12/93  07.30.08  by  Phobos
*-- Author :
      subroutine UGCIN (ludat, lurep, lstor, lline, line, ires)
*Documentation_Block
************************************************************************
*
*  Description:
*  Geometry and control information text file reader for Phobos
*  UGCIN reads the data file on logical unit "UGCDATA", parses
*  the lines, and calls UGCDEF to pass the specified values of the
*  variables to the geometry- and  reconstruction-defining subroutines,
*  or UGCSET to pass values to user commons, banks and variables.
*
*  Arguments:
*  ires*:  integer value returned to caller, <>0 if error(s) occurred
*  line*:  storage for text lines and stored definitions
*  *lline: the length of the line storage
*  *lstor: the total length reserved for line plus stored definitions
*  *ludat: Fortran logical input unit for reading GCDEFS:
*          if > 0, already open; if 0, quit; if < 0, open abs(ludat)
*  *lurep: Fortran logical unit for reporting errors
*
*  Called by:
*  UGINIT
*
*  Calls:
*  SERVER to open geometry text file gcdefs
*  UGCDEF to dispatch variables to geometry subroutine
*  UGCSET to set values in commons and banks
*  UGCGET to extract the next token from a character string
*  UGCVAL to classify and evaluate a token by content
*
*  Implicit inputs, outputs, side effects:
*  none
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  05-Aug-96  R. V.      ")," -> ")" in writes for ANSI compliance;
*                        open -> call UFILE to handle IBM-specific open
*  05-Apr-96  Don McLeod Open GCDEFS via SERVER to interpret logical
*  22-Nov-93  R. V.      -maxargs -> mmaxargs, idebug -> ldebug for
*                        non-VMS Fortrans
*  24-Apr-93  R. V.      Implement vector handling: pass Ielem,
*                        ArgTypes and ArgLengths to UGCSET; get
*                        Index from UGCVAL.
*  02-Nov-92  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      implicit none

      character*(*) line
      integer ires, lline, lstor, ludat, lurep

c Declare common with IDRUN for SERVER

+SEQ, GCFLAG.

c Declare local variables:

c Debug control: 0 for no output, 1 for fatal errors only, ...
      integer ldebug /1/

c Keys and data for validation of input:

      integer maxargs, mmaxargs, nkeys, nsubkeys
      parameter (nkeys = 2, nsubkeys = 3, maxargs = 20, mmaxargs = -20)
c Note when changing keys, also check the lengths lkeys.
      character*8 keys(nkeys) /'GS', 'GC' /
      integer lkeys(nkeys) / 2, 2 /
      character*4 subkeys(nsubkeys) /'SET', 'DEF', 'END' /
      integer iarg, iiv, ikey, ils, irv, isubkey, kk
      integer ArgLengths(maxargs) /maxargs*0/,
     *        ArgTypes(maxargs)   /maxargs*0/,
     *        ivalues(maxargs)    /maxargs*0/,
     *        lsargs(maxargs)     /maxargs*0/,
     *        ssargs(maxargs)     /maxargs*0/
      real    rvalues(maxargs)    /maxargs*0/

c Define the number and types of arguments expected for each kind
c of input.
c Note that the number of tokens for UGC lines is two greater than
c the number of arguments seen by UGCDEF, since the input line
c includes the Id and the the name of the subroutine

      integer nargs(nkeys), vtypes(maxargs, nkeys)

      data nargs / mmaxargs, mmaxargs /

c Following must understand any variable type:
      data (vtypes (kk, 1), kk=1,1) / -1   /
      data (vtypes (kk, 2), kk=1,1) / -1   /

      integer ielem, index, ios, itoken, ivtype, ivalue, lent,
     *  lnext, loct, lui
      real rvalue
      logical eof, eol
      character*1 term /'!'/

c ArgLengths: the lengths in storage of the arguments, in bytes
c ArgTypes: the types of the arguments: 1=integer, 2=real, 3=string
c ielem: the vector index found in the current variable name
c index: ielem returned by UGCVAL for the current token
c ivalue: the value of the current token, if integer
c ivtype: the ArgType of the current token
c lent:   the length of the current token
c loct:   the index (1..lline) of the current token
c lnext:  the index of the whitespace preceding the next token
c rvalue: the value of the current token, if real
c term:   the line termination character

c For long form SERVER returns:
      INTEGER IRUN1,IRUN2
      CHARACTER*80 FILENAME

c End of declarations

      ires = 0

c Open dataset only if not already done by caller
      lui = iabs(ludat)
      if (ludat .lt. 0) then
+SELF,IF=NOSERV.
         call UFILE (0, 'GCDEFS', lui, FileName)
+SELF,IF=-NOSERV.
         call SERVER('GCDEFS',IDRUN,LUI,FILENAME,0,0,0,IRUN1,IRUN2)
+SELF.
      endif
c Bypass reading if ludat is 0
      eof = lui .eq. 0

c Loop over input lines until end of file is reached

      do while (.not. eof)

        read (lui, '(a)', iostat=ios) line
        eof = ios .ne. 0
        itoken = 0
        if (ldebug .ge. 2) write (lurep, '(a,i3/1x,a)')
     *    ' UGCIN line read, length = ', lline, line(1:lline)
        loct = 1
        if (eof) loct = lline + 1
        ikey = 0
        isubkey = 0
        iarg = 0
        irv = 0
        iiv = 0
        ils = 0
        eol = loct .gt. lline .or. line(loct:loct) .eq. term

c Unless read failed, loop extracting tokens from the current line

        do while (.not. eol)

c Set loct and lent to the location and length of the next token
          call UGCGET (line, lline, itoken, loct, lent, lnext)
          eol = loct .gt. lline .or. line(loct:loct) .eq. term
          if (.not. eol) then
            if (ldebug .ge. 4) write (lurep, '(3(a,i3),2a)')
     *        ' UGCGET returned loct = ', loct, ', lent = ', lent,
     *        ', token # ', itoken, ' = ', line(loct:loct+lent-1)

c Determine the token type by its content
            call UGCVAL (line(loct:loct+lent-1), lent, ivtype,
     *        rvalue, ivalue, index)

C Store the token's type and value, or its location if a string
            if (iarg .lt. maxargs) iarg = iarg + 1
            ArgTypes(iarg) = ivtype
            if (ivtype .eq. 1) then
              iiv = iiv + 1
              ivalues(iiv) = ivalue
              ArgLengths(iarg) = 4
            elseif (ivtype .eq. 2) then
              irv = irv + 1
              rvalues(irv) = rvalue
              ArgLengths(iarg) = 4
            elseif (ivtype .eq. 3) then
              ils = ils + 1
              lsargs(ils) = loct
              ssargs(ils) = lent
              ArgLengths(iarg) = lent
            endif
c If this is the first token, compare it with the list of keywords.
c The match is case-sensitive and the exact length must be matched.
c Ikey will be the index of the found keyword; <=0 if none matched.
            if (itoken .eq. 1) then
              kk = 1
              ikey = 0
              do while (ikey .eq. 0 .and. kk .le. nkeys)
                if (lent .eq. lkeys(kk) .and.
     *            line(loct:loct+lent-1) .eq. keys(kk)(1:lkeys(kk)))
     *            ikey = kk
                kk = kk + 1
              enddo
              if (ikey .gt. 0 .and. ldebug .ge. 3)
     *          write (lurep, '(3a,i3)') ' UGCIN found ',
     *          line(loct:loct+lent-1), ' = key #', ikey

            elseif (itoken .le. 3 .and. ivtype .eq. 3
     *              .and. ikey .gt. 0) then
              if (itoken .eq. 2) then
                kk = 1
                isubkey = 0
                do while (isubkey .eq. 0 .and. kk .le. nsubkeys)
                  if (line(loct:loct+lent-1) .eq. subkeys(kk))
     *              isubkey = kk
                  kk = kk + 1
                enddo
                if (isubkey .gt. 0) then
                  if (ldebug .ge. 3)
     *              write (lurep, '(3a,i3)') ' UGCIN found ',
     *                line(loct:loct+lent-1), ' = subkey #', isubkey
                endif
              elseif (isubkey .gt. 0) then
c If third token and subkey found, save vector index
                ielem = index
              endif
            endif
c Update the starting location for the next token
            loct = lnext

          endif

c Stop parsing if end of line or if first token was unrecognized
          eol = eol .or. (itoken .eq. 1 .and. ikey .le. 0)

        enddo ! while .not. eol

c Verify that the number of tokens found is correct

        if (ikey .gt. 0) then
          if (nargs(ikey) .gt. 0 .and. iarg .ne. nargs(ikey)) then
            if (ldebug .gt. 0) write (lurep, '(3(a,i3),a)')
     *        ' UGCIN:', iarg, ' arguments found for keyword ',
     *        ikey, '; ', nargs(ikey), ' expected.'
            ikey = -1
          endif
        endif

c Call the dispatch subroutine

        if (ikey .gt. 0) then
          if (isubkey .eq. 1) then
            call UGCSET (line(lsargs(3):lsargs(3)+ssargs(3)-1),
     *        ielem, iarg-3, ArgTypes(4), ArgLengths(4), rvalues,
     *        ivalues, line(lsargs(4):lsargs(4)+ssargs(4)-1), ires)
c Note the string argument of UGCSET is a single value for now.
c Map ires into UGCIN definitions:
            if (ires .gt. 0) then
              ires = 0
            elseif (ires .lt. 0) then
              if (ldebug .gt. 0) write (lurep, '(a,i4,2a)')
     *          ' UGCIN: UGCSET returned error code', ires,
     *          ' while processing values of ',
     *          line(lsargs(3):lsargs(3)+ssargs(3)-1)
            endif

          elseif (isubkey .eq. 2) then
c DEF (local definition): not yet implemented

          elseif (isubkey .eq. 3) then
c END: quit reading, return the argument
            ires = ivalues(1)
            eof = .true.

          else
            call UGCDEF (line(lsargs(2):lsargs(2)+ssargs(2)-1),
     *        iarg-2, ArgTypes(3),
     *        ivalues, rvalues, lsargs(3), ssargs(3), line, ires)

          endif ! isubkey
        endif ! ikey

      enddo ! while not eof

c Close dataset only if opened here
      if (ludat .lt. 0) close (lui)

      return
      end
+DECK,UGCONB.
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      SUBROUTINE UGCONB
*Documentation_Block
************************************************************************
*
* Description:
* UGCONB is a user hook for the interactive Geant main program that
* runs the standard batch mode.  See UGCONS for mode selection.
*
*  Arguments: none
*
*  Called by:
*  GXINT, as an alternative to calling KUEXEC
*
*  Calls:
*  GRUN, UGLAST
*
*  Implicit inputs, outputs, side effects: none
*
* Filename: UGCONB.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  06-Jun-93  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

      call GRUN
      call UGLAST
      return
      end
+DECK,UGCONS.
*CMZU:  2.00/08 13/08/96  15.23.23  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      SUBROUTINE UGCONS (Batch, Batchf, NoLog)
*Documentation_Block
************************************************************************
*
* Description:
* UGCONS is a user hook for the interactive Geant main program that
* allows the user to choose the mode of operation, as follows:
* If the program is running in batch mode, as determined by the CERN
* INTRAC function, then if a readable file is assigned to logical
* name BATKUMAC, it is interpreted as a KUMAC file of KUIP commands;
* if it is not readable or not present, the program runs in ordinary
* batch mode.
* This overcomes the problem that the standard Geant way of specifying
* batch mode for some reason ignores the /nodebug qualifier and makes
* the program run in debug mode, requiring an additional batch debug
* control file.
*
*  Arguments:
*  Batch*:    Logical variable specifying batch mode if true
*  Batchf*:   Character string specifying the name of the Batch file
*  Nolog*:    Logical variable: read GTLOGIN.KUMAC if true
*
*  Called by:
*  GXINT, after calling KUARGS to get command line arguments.
*
*  Calls:
*  none
*
*  Implicit inputs, outputs, side effects:
*  via COMMONs included or defined below, in particular RHSIL
*
* Filename: UGCONS.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  13-Aug-96  R. V.      open -> call UFILE; SERVER can't be used
*                          here as it aborts on file not found
*  02-Jun-93  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

c Argument declarations:

      character*(*) Batchf
      logical Batch, Nolog
      logical INTRAC

      integer dummy, ios, Lun
c End of declarations

      if (INTRAC(dummy)) then
        Batch = .false.
      else
        Batch = .true.
        call UFILE (0, 'BATKUMAC', Lun, Batchf)
        if (Lun .le. 0) Batchf = ' '
      endif
c*      print *, ' UGCONS: Batch =', Batch, ', filename="', batchf, '".'
      Nolog = .true.
      return
      end
+DECK,UGCSET.
*CMZU:  2.03/00 02/07/97  12.48.57  by  K. Wozniak
*CMZU:  2.02/00 18/03/97  12.34.58  by  K. Wozniak
*CMZU:  2.00/10 24/09/96  07.57.19  by  K.Wozniak
*CMZU:  2.00/06 21/07/96  21.59.39  by  Phobos (R. Verdier)
*CMZU:  2.00/04 16/07/96  11.33.55  by  Phobos (K. Wozniak)
*CMZU:  2.00/03 09/07/96  13.32.20  by  K.Wozniak
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      SUBROUTINE UGCSET (Key, Iielem, Nvalues, Vtypes, Vlengths,
     *  Rvalues, Ivalues, Svalues, Ires)
*Documentation_Block
************************************************************************
*
*  Description:
*  UGCSET copies user geometry and control variables read by the UGC text
*  file input system to local, common or bank storage, for any necessary
*  communication with Geant or user programs.  This is the user-specific
*  section of the UGC system, and must be modified to allow access to
c  new user variables.
*
*  Arguments:
*  *Key:      Character substring identifying the variable to be set
*  *Iielem:   Index of initial variable element
*  *Nvalues:  Number of values to be set
*  *Vtypes:   Variable types, 1=integer*4, 2=real*4, 3=string
*  *Vlengths: Storage lengths of variable elements
*  *Rvalues:  Vector of real values for the variable
*  *Ivalues:  Vector of integer values for the variable
*  *Svalues:  Vector of string values for the variable, not yet
*               implemented
*  Ires*:     Result flag = # of variables copied, 0 if key was not
*             recognized, < 0 if error (wrong variable type or bad value)
*
*  Called by:
*  UGCIN, after parsing an input record and evaluating tokens
*
*  Calls:
*  STOPER
*
*  Implicit inputs, outputs, side effects:
*  via COMMONs included or defined below, in particular RHSIL
*
* Filename: UGCSET.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*   1-Jul-97  K.W.       modified code for GS SET PADS - to enable GS DVN
*   3-Mar-97  K.W.       modified GS SET SLP  and  GS SET IUDET
*                        added  GS SET PADS
*  23-Sep-96  K.W.       Removed definitions of MAGX, MAGZ, RFLD, BFLD, MOFF
*                        (they must not appear in the UGCDATA file now)
*  21-Jul-96  R. V.      Removed unused par, r1, x1, z1, z2
*   9-Jul-96  K. W.      magnetic field center (MAGX,MAGZ) separated from
*                        the field offset (MOFF(3))
*   9-Jul-96  K. W.      Added geometry version GEOV
*                        MAGT, RFLG etc. are defined now in the magnetic field
*                        map (defaults set in control file) and left here
*                        for backward compatibility only
*  24-Apr-93  R. V.      Added Iielem, Vtypes, and Vlengths args to
*    implement limited vector cabability; moved SIxxx defs to RHSIL.CMN
*  21-Feb-93  R. V.      Added magt, tmag, rfld, nslp = nplanes
*  03-Nov-92  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

c Argument declarations:

      character*(*) Key
      integer       Iielem, Ires, Nvalues, Ivalues(*), Vlengths(*),
     *              Vtypes(*)
      real          Rvalues(*)
      character*(*) Svalues

c Common declarations:

+SEQ, CARDS.
+SEQ, FLAG.
+SEQ, GCFLAG.
+SEQ, IO.
+SEQ, RHSIL.
+SEQ, RHSYS.

C  Local declarations:
c UGCDebug = 0 for no output, 1 for fatal errors, ...
      integer IelMin, ipl, nn, Nvstore, UGCDebug /1/

      LOGICAL PADSNEW, PADSOLD
      DATA PADSNEW, PADSOLD / .FALSE., .FALSE. /
      SAVE PADSNEW, PADSOLD

c End of declarations

      Ires = 1
      Nvstore = Nvalues
      IelMin = MAX(Iielem, 1)

c GEOV - geometry version number (real) in format 3.02
c provided to identify the geometry used i nthe simulations
      if (Key .eq. 'GEOV') then
        GEOV = Rvalues(1)

c Bfld is used to scale the magnetic field:
      elseif (Key .eq. 'BFLD') then
        BFLD = Rvalues(1)

c The next vectors are used for calls to the Geant hit subroutine,
c GSDETH

      elseif (Key .eq. 'NBITSH') then
c Get the numbers of bits to save for each hit parameter
        nvstore = MIN(Nvalues, NSIP - IelMin + 1)
        do nn = 1, nvstore
          SIBITH(nn+IelMin-1) = Ivalues(nn)
        enddo

      elseif (Key .eq. 'FACT') then
c Get the hit parameter scale factors
        nvstore = MIN(Nvalues, NSIP - IelMin + 1)
        do nn = 1, nvstore
          SIFACT(nn+IelMin-1) = Rvalues(nn)
        enddo

      elseif (Key .eq. 'IUDET') then
C OBSOLETE - KEPT FOR BACKWARD COMPATIBILITY ONLY:
c Get the user-assigned names of the detector planes, passed in the
c character*4 array DETNAME in common RHSIL to PH_OUT.
c The UGC statement
c   GS SET NPLANES nn
c should precede any SET that depends on NPLANES.
c Names are read in as a single string; long strings can be read
c by specifying segments on more than one record, e.g. by
c   GS SET IUDET(1) 'aaaabbbbcccc...'
c   GS SET IUDET(21) 'wwwwxxxxyyyy...'
        IF(PADSNEW)  THEN
           WRITE(*,*) ' *** ERROR IN UGCSET - GS SET PADS MIXED WITH ',
     +     ' GS SET IUDET  OR  GS SET SLP'
           WRITE(*,*) '     GS SET IUDET  - IGNORED'
        ELSE
          PADSOLD = .TRUE.
          nvstore = MIN((Vlengths(1)+3)/4, NSLP - IelMin + 1)
          do nn = 1, nvstore
            DETNAME(nn+IelMin-1) = Svalues(4*nn-3:4*nn)
          enddo
        ENDIF

      elseif (Key .eq. 'PADS') then
C SUBSTITUTES:   GS SET IUDET  and  GS SET SLP
C Reads the name of the volume, pad type flag and up to 4 pad parameters
        IF(PADSOLD)  THEN
           WRITE(*,*) ' *** ERROR IN UGCSET - GS SET PADS MIXED WITH ',
     +     ' GS SET IUDET  OR  GS SET SLP'
        ELSE
          PADSNEW = .TRUE.
          NDETS = NDETS + 1
          IF(NDETS .GT. NSLPM)
     +      CALL STOPER('UGCSET',
     +        'TOO MANY DETECTORS - INCREASE TABLES SIZE NSLPM',1)
          DETNAME(NDETS) = SVALUES(1:4)
          IPADFL(NDETS) = IVALUES(1)
          PAD1(NDETS) = RVALUES(1)
          PAD2(NDETS) = RVALUES(2)
          PAD3(NDETS) = RVALUES(3)
          PAD4(NDETS) = RVALUES(4)
          DIVXNAME(NDETS) = '????'
          DIVYNAME(NDETS) = '????'
          DIVZNAME(NDETS) = '????'
          NDIVX(NDETS) = 0
          NDIVY(NDETS) = 0
          NDIVZ(NDETS) = 0
        ENDIF

      elseif (Key .eq. 'NAMESH') then
c Assign names of hit parameters to be saved by Geant
        nvstore = MIN((Vlengths(1)+3)/4, NSIP - IelMin + 1)
        do nn = 1, nvstore
          SINAMH(nn+IelMin-1) = Svalues(4*nn-3:4*nn)
        enddo

      elseif (Key .eq. 'NPLANES') then
c Get number of silicon planes
        NSLP = Ivalues(1)
        IF(NSLP .GT. NSLPM)
     +      CALL STOPER('UGCSET',
     +        'TOO MANY DETECTORS - INCREASE TABLES SIZE NSLPM',1)

      elseif (Key .eq. 'NHITPAR') then
c Get number of hit parameters
        NSIP = Ivalues(1)

      elseif (Key .eq. 'ORIG') then
c Get the zeroes of the hit parameters
        nvstore = MIN(Nvalues, NSIP - IelMin + 1)
        do nn = 1, nvstore
          SIORIG(nn+IelMin-1) = Rvalues(nn)
        enddo

      elseif (Key .eq. 'SLP') then
C OBSOLETE - KEPT FOR BACKWARD COMPATIBILITY ONLY:
c Get the hit parameters
        IF(PADSNEW)  THEN
           WRITE(*,*) ' *** ERROR IN UGCSET - GS SET PADS MIXED WITH ',
     +     ' GS SET IUDET  OR  GS SET SLP'
           WRITE(*,*) '     GS SET SLP  - IGNORED'
        ELSE
           PADSOLD = .TRUE.
           Ipl = Ivalues(1)
c Types should be checked here, but aren't at present
           if (Ipl .gt. 0 .and. Ipl .le. NSLPM) then
             IPADFL(IPL) = 1      !   assumed PAD type 1
             PAD1(IPL) = RVALUES(2)
             PAD2(IPL) = RVALUES(4)
             PAD3(IPL) = 0.0
             PAD4(IPL) = 0.0
           else
             Ires = -1
           endif
        ENDIF

      elseif (Key .eq. 'SPARS') then
c note there's no protection for number of values
        nvstore = MIN(Nvalues, UgcpMax - IelMin + 1)
        do nn = 1, nvstore
          UGCpars(nn) = Rvalues(nn)
        enddo

      else
        Ires = 0
      endif

      if (UGCDebug .gt. 0) then
        if (Ires .gt. 0) then
          if (UGCDebug .ge. 2)
     *      print '(3a,i2,a,/5(e12.4,a))', ' UGCSET: variable ', Key,
     *      '(1..', min(Nvstore, 10), ')  set to ',
     *      (Rvalues(nn), ', ', nn=1, min(Nvstore, 10))
        elseif (Ires .eq. 0) then
          if (UGCDebug .ge. 2)
     *      print '(3a)', ' UGCSET: "', Key, '" not recognized.'
        else
          print '(4a)', ' *** ERROR IN UGCSET - ',
     +      'invalid values specified for',
     *      ' variable "', Key, '" ignored.'
        endif
      endif

      return
      end
+DECK,UGCVAL.
*CMZU:  2.00/08 25/07/96  16.47.49  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.08  by  Phobos
*-- Author :
      subroutine UGCVAL (token, lent, ivtype, rvalue, ivalue, index)
*Documentation_Block
************************************************************************
*
*  Description:
*  UGCVAL classifies and evaluates a token on the basis of its content.
*  The token is first assumed to be an integer; if it contains an "e" or
*  a decimal point, it is called real; if it fails either case, or if it
*  is embedded in apostrophes (', not "), it is called a string.
*  If the token contains left and right parentheses, UGCVAL converts the
*  characters between them to an integer and returns the result in
*  index; otherwise index = 0.
*
*  Arguments:
*  *token:  character string to be evaluated;
*  *lent*:  on input, the length of the token;
*           on output, the length up to a left parenthesis, if any
*  ivtype*: the returned classification of the token:
*    = 1, ivalue = integer value of token if token is integer
*    = 2, value = real value of token if token is real
*    = 3, if token is neither integer nor real
*    < 0, if error converting value
*  index*: the returned vector index value
*
*  Called by:
*  UGCIN, after receiving a token from UGCGET
*
*  Calls:
*  none
*
*  Implicit inputs, outputs, side effects:
*  none
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  25-Jul-96  R. V.      correct (i) read format
*  23-Apr-93  R. V.      Add lent and index arguments for vectors
*  02-Nov-92  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      implicit none

c Argument declarations:

      character*(*) token
      integer index, ivalue, ivtype, lent
      real rvalue

c Local declarations:

      integer mindig, maxdig
      parameter (mindig = ichar('0'), maxdig = ichar('9'))
      character cch*1, fmt*7, lpar*1 /'('/, rpar*1 /')'/
      integer ich, idebug /1/, ios, lc, lenind, llpar, lrpar

c End declarations

      lc = 0
      llpar = 0
      lrpar = 0
      index = 0
c Determine the token type: assume integer, promote to real if
c decimal point or e is found, else treat it as a string.
      ivtype = 1
      do while (lc .lt. lent)
        lc = lc + 1
        cch = token(lc:lc)
        ich = ichar(cch)
        if (ivtype .lt. 3) then
          if (ich .lt. mindig .or. ich .gt. maxdig) then
            if (cch .eq. 'e' .or. cch .eq. 'E' .or. cch .eq. '.') then
              ivtype = 2
            else if (cch .ne. '-' .and. cch .ne. '+') then
              ivtype = 3
c*            else if (cch .eq. '''') then
c*              ivtype = 3 ! single quote
c Note that in this case we should strip the quotes.  But to allow
c blanks in the quoted string, and also quoted quotes, the stripping
c should have been done by UGCGET.
            endif
          endif
        endif
        if (ivtype .eq. 3) then
c If a string, check for presence of a vector index.  Note that an
c erroneous expression like 123(5) will be identified as a vector, and,
c if not found as a keyword, will be ignored by UGCSET.
          if (llpar .eq. 0) then
            if (cch .eq. lpar) llpar = lc
          else
            if (cch .eq. rpar) lrpar = lc
          endif
        endif
      enddo
c Convert the value according to the assigned type.  We could return
c values in both variables (with suitable limits on real->integer) if
c that turned out to be useful.
      if (ivtype .eq. 1) then
        write (fmt,'(a,i2,a)') '(i', lent, ')  '
        read (token, fmt, iostat=ios) ivalue
      else if (ivtype .eq. 2) then
        write (fmt,'(a,i2,a)') '(e', lent, '.0)'
        read (token,fmt,iostat=ios) rvalue
c Convert the index, if any
      else if (llpar .ge. 2) then
        lenind = lrpar - llpar - 1
        if (lenind .ge. 1) then
          write (fmt,'(a,i2,a)') '(i', lenind, ')  '
          read (token(llpar+1:lrpar-1), fmt, iostat=ios) index
        endif
        lent = llpar - 1
      endif
c Return ivtype = -|io error code| if the conversion failed.
      if (ios .ne. 0) ivtype = iabs(ios)
c Display error message only in debug mode, pending standard facility
      if (idebug .ge. 1 .and. ios .ne. 0) print '(a,i3,2a)',
     *  ' UGCVAL: Error ', ios, ' converting token ', token
c Display results only in debug mode
      if (idebug .ge. 3 .and. ivtype .ge. 1) then
        if (ivtype .eq. 1) print '(3a,i3,a,i8)', ' UGCVAL: token ',
     *    token, ': type ', ivtype, ', value =', ivalue
        if (ivtype .eq. 2) print '(3a,i3,a,e12.4)', ' UGCVAL: token ',
     *    token, ': type ', ivtype, ', value =', rvalue
        if (ivtype .eq. 3) print '(3a,i3    )', ' UGCVAL: token ',
     *    token, ': type ', ivtype
      endif
      return
      end
+DECK,UGINIT.
*CMZU:  2.03/00 24/07/97  11.11.46  by  K. Wozniak
*CMZU:  2.02/01 23/04/97  11.17.38  by  K.Wozniak
*CMZU:  2.02/00 17/03/97  12.13.47  by  K. Wozniak
*CMZU:  2.01/00 07/02/97  13.54.41  by  K.Wozniak
*CMZU:  2.00/10 23/09/96  10.43.21  by  Unknown
*CMZU:  2.00/08 25/07/96  12.59.11  by  Phobos (R. Verdier)
*CMZU:  2.00/06 21/07/96  22.02.20  by  Phobos (R. Verdier)
*CMZU:  2.00/04 16/07/96  10.50.43  by  Phobos (K. Wozniak)
*CMZU:  2.00/03 09/07/96  14.36.49  by  K.Wozniak
*CMZU:  2.00/02 18/07/96  10.28.45  by  Phobos (R. Verdier)
*CMZU:  1.01/17 20/03/95  14.54.16  by  K.Wozniak
*-- Author :    K.Wozniak   09/03/95
      SUBROUTINE UGINIT
*Documentation_Block
************************************************************************
*
* Description:
*  Initializes GEANT program, reads control dataset(s), and sets up
*  geometry description for Phobos.
*
* Arguments: none
*
* Called by:
*  GEPHOB, the main program
*
* Calls:
+SELF,IF=EUCARD.
*  EUCARD, FFKEY, FFSET, GDRAW, GFFGO, GINIT, GOPEN, GPART, GPHYSI,
+SELF,IF=-EUCARD.
*  FFKEY, FFSET, GDRAW, GFFGO, GINIT, GOPEN, GPART, GPHYSI,
+SELF,IF=NOSERV.
*  GPRINT, GZINIT, STPARS, STTOIN, STTORL, UFILE, UGCIN, UGEOM,
+SELF,IF=-NOSERV.
*  GPRINT, GZINIT, SERVER, STPARS, STTOIN, STTORL, UGCIN, UGEOM,
+SELF.
*  USCOM, USINIT, VZERO
*
* Implicit inputs, outputs, side effects:
*  Via COMMONs listed below
*
* File: pmc_src:UGINIT.FOR
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  23-Apr-97  K. W.      time limit switch - to ignore time limit
*   4-Mar-97  K. W.      Removed unused commands SILD and SILP
*   7-Feb-97  K. W.      SIMVER and CMZ PHOSIM version coordinated at 2.02
*  23-SEP-96  K. W.      SIMVER initialization added (moved from GEPHOB)
*  20-SEP-96  K. W.      Added new parameters for BANG mode=2
*                        More information in the AScii Output file
*                        Removed obsolete keywords
*  25-Jul-96  R. V.      Remove +SEQ,*D. and redundant "," in write,
*                          for ANSI compliance
*  21-Jul-96  R. V.      Removed unused cc, j, n
*  12-Jul-96  K.W.       magnetic field center (MAGX,MAGZ) separated from
*                        the field offset (MOFF(3))
*  09-Jul-96  K.W.       added commands to define magnetic field from
*                        control file
*  04-Jul-96  K.W.       added Ascii OUtput file code (initialzation and
*                        instructions to write the header of AOU file)
*  18-Jul-96  R.V.       Remove the EUCARD facility unless CMZ selects EUCARD
*  08-Sep 95  DMcL       DATE, TIME => Cernlib DATIMH & associated changes
*  23-Jul-95  DMcL       Changed UFILE to SERVER calls for UNIX port
*                        idebug => jdebug to avoid GCFLAG conflict
*  31 Mar-95  R.V.       Change STRA to SECT to avoid GEANT 3.21 conflict
*  20-MAR-95  K.W.       A call to USCOM was added
*  10-MAR-95  K.W.       Changed parameters required by GUKINE and BANG
*  10-May-94  R.V.       Add data SEQs NTUD & RHSILD, after D. McLeod
*   5-May-94  R.V.       Remove control card setting IZEB=DISP
*   9-Nov-93  R.V.       BANG.CMN -> BANGC.CMN to avoid MMS confusion;
*                        also NTUEX.CDA -> NTUEXD.CMN for code mgmt.
*  17-Jun-93  R.V.       Added NHTK, NTTK, NTUEX.CMN & .CDA for ntuples,
*                        NTPE and NTCO for multi-pass processing
*  20-Mar-93  K. Wozniak Added MAGT = 3 for cylindrical field map
*   7-Feb-93  R.V.       Added SAHO to control ascii hit output
*  12-Jan-93  R.V.       FileName added to UFILE;
*                        COMMON.NTU & COMMON.HST -> NTU.CMN & HST.CMN
*  11-Dec-92  R.V.       Changed to use UFILE instead of UFILES, move
*                        GPRINT call from UGEOM
*  23-Nov-92  R.V.       Added MAGT, ZOFF, and RFLD setting for
*                        C.P.'s perfect dipole field mods to GUFLD
*  14-Nov-92  R. Verdier Connected to UGC text file geometry input
*                        system, made EUCARD call conditional
*   1 Jul 92  J. Shea    Separated from GE_..., replaced hard-coded
*                        data by card input, added CARDS
*   1 Jun 92  C. Parsons Moved from GPH into GE_ALL-THE-REST.FOR,
*                        changed COMMON=>.CMN, UHINIT=>USINIT, ...
*  28-Mar-92  D. McLeod  Creation
*
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

C     Common blocks from GEANT which might be referred to:

      INTEGER LIN,LOUT,NUNITS,LUNITS
      COMMON/GCUNIT/LIN,LOUT,NUNITS,LUNITS(5)

      INTEGER NHSTA,NGET,NSAVE,NSETS,NPRIN,NGEOM,NVIEW,NPLOT
      INTEGER NSTAT,LHSTA,LGET,LSAVE,LSETS,LPRIN
      INTEGER LGEOM,LVIEW,LPLOT,LSTAT
      COMMON/GCLIST/NHSTA,NGET ,NSAVE,NSETS,NPRIN,NGEOM,NVIEW,NPLOT
     +       ,NSTAT,LHSTA(20),LGET (20),LSAVE(20),LSETS(20),LPRIN(20)
     +             ,LGEOM(20),LVIEW(20),LPLOT(20),LSTAT(20)

+SEQ,BANGC.
+SEQ,CARDS.
+SEQ,FLAG.
+SEQ,FLAG2.
+SEQ,IO.
+SEQ,GCBANK.
+SEQ,GCCUTS.
+SEQ,GCFLAG.
+SEQ,GCKINE.
+SEQ,GCPHYS.
+SEQ,HST.
+SEQ,MUPEP.
+SEQ,NTU.
+SEQ,NTUEX.
+SEQ,RHSIL.
+SEQ,RHSYS.
+SEQ,UHITS.
+SEQ,TLIMIT.

C  Local:
      CHARACTER mapfile*6
      CHARACTER*8 FIELD(11)
      character*63 FileName
      character*1 apostr
      INTEGER jdebug/1/, I, NFLDS, LENFLD(11), STTOIN, ITAG, IER
      INTEGER HDATE(2), HTIME(2)
      CHARACTER RECORD*80
c Declaration to force loading
      external PMCBDAT
C Added for SERVER long form calls:
      INTEGER IRUN1, IRUN2
      REAL STTORL
      EXTERNAL STTOIN,STTORL   !SHELL routines for decoding strings

c Declarations to use UGC geometry and control input:

      integer lline, lstor, iugcres
      parameter (lline = 132, lstor = 200)
      character*(lline + lstor) storage
c Fortran logical units for UGC input (file GCDEFS) and report output:
c IUSRGCIN and IUSROUT are set by calls to subroutine SERVER; but the
c latter is not used by UGC.
      integer lurep /6/

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C Key to data cards below (these go into GPH.DAT or similar .DAT files):
C  Keyword    type            what it sets    (Units cm., Kgauss, Gev/c)
C
C  Magnetic field parameters:
C  BFLD       REAL       magnetic field, central value
C  MAGT       INTEGER    if = 0, use Zebra field map; if = 1, use
c                        dipole field; if = 2, use ASCII field map
C                        if = 3, use ASCII cylindrical field map
C  TMAG       INTEGER    alias to MAGT
C  MAGX       REAL       dipole field center X
C  MAGZ       REAL       dipole field center Z
C  MOFF       3*REAL     offset of the magnetic field
C  RFLD       REAL       dipole field radius
C
C  Standard GEANT cards we will likely use:
C  TRIG       INTEGER    number of events simulated (upper limit if reading)
C  RUNG       INTEGER    user run number
C  MULS       INTEGER    multiple scattering type: 0 = none,
C                        1 = Gaussian (default), 2 = Moliere
C  DCAY       INTEGER    decay in flight: 0 =none, 1 = make secondaries,
C                        2 = ignore secondaries.  (1 = default)
C  LOSS       INTEGER    1 = no fluctuations; average energy loss
C                        2 = Landau fluctuations (default), 0 = no loss
C  CUTS       REALS      up to 16 entries, see GEANT. We're interested in
C                        the second entry, CUTELE; set large e.g. 0.1 to
C                        suppress delta rays when LOSS = 1 is set.
C  RNDM       INTEGERS   2 integers to establish random # seed
C  DEBUG      INTEGERS   2 integers to set range of event numbers for debug
C  SWIT       INTEGERS   up to 10 user flags to control printout etc.
C                        via ISWIT(10) in /GCFLAG/

C  Flags:  0 or card omitted = option is suppressed
C                        (DATA refers to the data input file name)
C  GEN        INTEGER    Event generator type.  1 = fixed, starts at beam
C                        2 = BANG aimed toward the detectors,
C                        3 = random BANG, 4 = momentum, position or angle
C                        incremented by DMOM, DXX or DANG from one track
C                        to the next (one track per event), 5 = Monte
C                        Carlo Zebra input
C  PIXL       INTEGER    pixilated flag.. 0 = exact intercepts with plane,
C                        1 = coordinates set to center of nearest pixel
C                        in the mother coord. X1, Y1, Z1 etc., not XP & YP.
C  ANAL       INTEGER    Event analysis type. 1 = generate Ntuple only
C                        2 = calculate errors from fit
C  SHBO       INTEGER    1 = DATA.HST binary plot output (for PAW)
C  SHDO       INTEGER    1 = HISTO is called to output plots in DATA.OUT
C  SNTU       INTEGER    1 = Ntuples are output to file DATA.NTU
C  SZEB       INTEGER    1 = Output SETS, KINE & HITS banks in DATA.FZO
C  DRAW       INTEGER    1 = draw apparatus, 2 = draw hits also
C  WPIX       REAL       1.0 = include tracking errors in chi squared sum
C  WLOS       REAL       1.0 = include energy loss in chi squared sum
C
C  Event generator parameters, depending on GEN above:
C  NAME    TYPE   GEN=     MEANING

C  RMUL   INTEG   1-4     Multiplicity in BANG random generator
C  RARM   INTEG   1-5     Selected one or two arms
C  RANG   3 REAL   4      Polar angle range and step
C  RPHI   2 REAL  1-5     Azimuth range
C  RETA   2 REAL  1,3,5   Eta max and min
C  RROT   REAL     5      Phi rotation angle
C  RBXX   REAL    1-5     Position of particle production, vertex of
C  RBYY   REAL    1-5     the interaction
C  RBZZ   REAL    1-5
C  RBXY   REAL    1-3,5   Standard dev. of projected intersection width in x-y
C  RBDX   REAL    1-4,5   interval arround the vertex
C  RBDY   REAL    1-4,5
C  RBDZ   REAL    1-4,5
C  RMOM   3 REAL  1-5     Particle momentum range and step
C  REXP   REAL    3       Mean transverse momentum - falloff parameter
C  RPID   2 INTEG 1-4     Particle type range; GEANT convention

C  RSPR   REAL    2       Radius of the circle describing the spectgrometer
C  RSPX   REAL    2       Position of the spectrometer (RSPX,RSPZ)
C  RSPZ   REAL    2       used to find cos theta range (2)

C  Parameters for multi-pass event processing
C
C  NTCO   INTEG          Maximum number of tracks processed concurrently
C  NTPE   INTEG          Maximum number of tracks per event

C  CPU time limit test variable
C  TLIM   INTEG   0      if not zero time left is tested and program stops.
C                        Default is 0 as for several computers the time limit
C                        is not correctly recognized

C  Parameters determining ntuple size allocation, if SNTU is non-0:
C
C  NHTK   INTEG          Total of tracks expected to hit detector
C  NTTK   INTEG          Total of tracks expected including secondaries

C  In-line histogram and scatterplot control cards:
C  HIST   ID    TAGNAME  (short form.. default bins and interval)
C               TAGNAME can be Ntuple tag name or e.g. #35 for 35th entry
C  HIST   ID    TAGNAME   NCHANNELS   XMIN   XMAX   is the long form.
C  HIST   ID  TAGX  NX  XMI  XMA TAGY NY YMI YMA  scatterplot, args as HBOOK2
C               (The number of arguments distinguishes these three formats.)

C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

******************************************************************************
*   PMC version number should be changed with every modification of the code
      SIMVER = 2.03
******************************************************************************

c Open the standard text output file

+SELF,IF=NOSERV.
      call UFILE (0, 'RHASC', iusrout, FileName)
+SELF,IF=-NOSERV.
      call SERVER('RHASC',IDRUN,iusrout,FileName,0,0,1,IRUN1,IRUN2)
+SELF.

C Initialise GEANT

      CALL GINIT


**************************************
*   define magnetic field parameters *
**************************************

      CALL FFKEY('BFLD',BFLD ,1,'REAL')
      CALL FFKEY('MAGT',MAGT ,1,'INTEGER')
      CALL FFKEY('TMAG',MAGT ,1,'INTEGER')  !   alias to MAGT
      CALL FFKEY('MAGX',MAGX ,1,'REAL')
      CALL FFKEY('MAGZ',MAGZ ,1,'REAL')
      CALL FFKEY('MOFF',MOFF ,3,'REAL')
      CALL FFKEY('RFLD',RFLD ,1,'REAL')

************************************************
*   set defaults for magnetic field parameters *
************************************************

      MAGT = 2           ! default - read from magnetic field map file

      RFLD = 0.0         ! uninitialized (zero) values
      MAGX = 0.0
      MAGZ = 0.0
      MOFF(1) = 0.0      ! default offset is zero
      MOFF(2) = 0.0
      MOFF(3) = 0.0

***************************************
*  Set defaults for event generators  *
***************************************

      IRMUL = 1          ! multiplicity per event
      IRARM = 2          ! number of spectrometer arms (1 or 2)
      IRPID(1) =  0      ! particle type range:  min (also used for GEN=4)
      IRPID(2) = 99      !                       max

      RMOM(1) = 0.001    ! Production momentum:  min
      RMOM(2) = 900.0    !                       max
      RMOM(3) = 0.100    !                       step (GEN=4)
      REXP    = 0.350    ! Mean transverse momentum - falloff parameter
      RETA(1) = -20.0    ! eta range:  min
      RETA(2) =  20.0    !             max
      RANG(1) = 20.0     ! polar angle range:  min (GEN=4 only)
      RANG(2) = 60.0     !                     max
      RANG(3) =  5.0     !                     step
      RPHI(1) = -360.0   ! azimuth in mother system:  min
      RPHI(2) =  360.0   !                            max
      RROT = 15.0        ! Rhi rotation angle (GEN=5)

      RBXX = 0.0         ! Production position
      RBYY = 0.0         !    "          "
      RBZZ = 0.0         !    "          "
      RBXY = 0.0         ! Production  intersection sigma
      RBDX = 0.0         ! Production position range
      RBDY = 0.0         !    "          "      "
      RBDZ = 0.0         !    "          "      "
      RSPX = 43.0        ! position of the spectrometer center  (X)
      RSPZ = 43.0        !      "               "         "     (Z)
      RSPR = 40.0        ! radius of the circle covering the spectrometer
C                        ! used to set angle range

**************************************
* Parameters for event generators    *
**************************************

      CALL FFKEY('RMUL',IRMUL,1,'INTEGER')
      CALL FFKEY('RARM',IRARM,1,'INTEGER')
      CALL FFKEY('RPID',IRPID,2,'INTEGER')

      CALL FFKEY('RMOM',RMOM,3,'REAL')
      CALL FFKEY('REXP',REXP,1,'REAL')
      CALL FFKEY('RETA',RETA,2,'REAL')
      CALL FFKEY('RANG',RANG,3,'REAL')
      CALL FFKEY('RPHI',RPHI,3,'REAL')

      CALL FFKEY('RBXX',RBXX,1,'REAL')
      CALL FFKEY('RBYY',RBYY,1,'REAL')
      CALL FFKEY('RBZZ',RBZZ,1,'REAL')
      CALL FFKEY('RBXY',RBXY,1,'REAL')
      CALL FFKEY('RBDX',RBDX,1,'REAL')
      CALL FFKEY('RBDY',RBDY,1,'REAL')
      CALL FFKEY('RBDZ',RBDZ,1,'REAL')

      CALL FFKEY('RSPX',RSPX,1,'REAL')
      CALL FFKEY('RSPZ',RSPZ,1,'REAL')
      CALL FFKEY('RSPR',RSPR,1,'REAL')

      CALL FFKEY('RROT',RROT,1,'REAL')

************************************
*   Set defaults for user flags    *
************************************

      HITSOUT = 0  !ascii hit output flag
      ISAOU = 0    ! ASCII output file with tracks and hits
      ISASC = 0    !ascii event output flag
      ISHBO = 0    !.HST plot binary output
      ISHDO = 0    !HISTDO print flag
      ISNTU = 0    !Ntuple file output flag
      IZEB = 0     !Zebra bank output flag
      ISECT = 0    !secondaries tracking
      IDRAW = 0    !control graphics output
      IGEN = 1     !event generator type
      IANAL = 1    !analysis type
      IPIXL = 0    !pixilated?
      WPIXL = 1.0  !chisq includes tracking
      WLOSS = 0.0  !chisq includes de/dx

*************************
*   Set user flags      *
*************************

      CALL FFKEY('SAHO',HITSOUT,1,'INTEGER')
      CALL FFKEY('SAOU',ISAOU,1,'INTEGER')
      CALL FFKEY('SASC',ISASC,1,'INTEGER')
      CALL FFKEY('SHBO',ISHBO,1,'INTEGER')
      CALL FFKEY('SHDO',ISHDO,1,'INTEGER')
      CALL FFKEY('SNTU',ISNTU,1,'INTEGER')
      CALL FFKEY('SZEB',IZEB ,1,'INTEGER')
      CALL FFKEY('SECT',ISECT,1,'INTEGER')
      CALL FFKEY('DRAW',IDRAW,1,'INTEGER')
      CALL FFKEY('GEN ',IGEN ,1,'INTEGER')
      CALL FFKEY('ANAL',IANAL,1,'INTEGER')
      CALL FFKEY('PIXL',IPIXL,1,'INTEGER')
      CALL FFKEY('WPIX',WPIXL,1,'REAL')
      CALL FFKEY('WLOS',WLOSS,1,'REAL')

****************************************************************
*   CPU time limit test:                                       *
*   TLIM 1  -  program stops when estimated time is small      *
*   TLIM 0  -  program ignores time limit, for long queues     *
*              always extremely underestimated (set to 2 hours)*
****************************************************************

      NTLIM = 0
      CALL FFKEY('TLIM', NTLIM, 1, 'INTEGER')

****************************************************************
*   Set multi-pass event processing parameters in common MUPEP *
*   Defaults set in MUPEP.CDA: NTCO = 1000, NTPE = 20000       *
****************************************************************

      CALL FFKEY('NTCO', NtConc, 1, 'INTEGER')
      CALL FFKEY('NTPE', Ntpe, 1, 'INTEGER')

      NESKIP = 0
      NTSKIP = 0
      CALL FFKEY('NESK', NESKIP, 1, 'INTEGER')
      CALL FFKEY('NTSK', NTSKIP, 1, 'INTEGER')

***********************************************************
*   Set ntuple size options in common NTUEX               *
*   Defaults set by NTUEX.CDA: NHTK = 60000, NTTK = 60000 *
***********************************************************

      CALL FFKEY('NHTK', NHtrks, 1, 'INTEGER')
      CALL FFKEY('NTTK', NMCtrks, 1, 'INTEGER')

***********************************************************
*   Call USCOM to enable the user to define extra commands
***********************************************************

      CALL USCOM

**********************************************************************
* Open the standard control input file; iusrin < 0 means open failed
**********************************************************************

+SELF,IF=NOSERV.
      call UFILE (0, 'RHDATA', iusrin, FileName)
+SELF,IF=-NOSERV.
      call SERVER('RHDATA',IDRUN,iusrin,FileName,0,0,0,IRUN1,IRUN2)
+SELF.

****************************************************************************
* Read in the silicon positions and in-line histogram and scatterplot      *
* specifications.  This is not done via FFKEY because of                   *
* the limitations of FFREAD; we want multiple cards with the same keyword  *
* and we have to avoid overflowing the smallish FFREAD array sizes!        *
****************************************************************************

      CALL VZERO(HCONTROL,9*NHMX)
      NHSTS = 0

   20 READ(IUSRIN,'(A)',END=25) RECORD
      IF(RECORD(1:3) .EQ. 'END') GOTO 25     !exit on this or EOF
      IF(RECORD(1:1) .EQ. '*') GOTO 20       !skip comments
      CALL STPARS(RECORD,11,NFLDS,FIELD,LENFLD)   !Melanson's parsing

C     Internal histogram keyword:
      IF(FIELD(1)(1:4).EQ.'HIST')THEN
          NHSTS = NHSTS+1
          IF(NHSTS.GT.NHMX)NHSTS = NHMX
          HCONTROL(1,NHSTS) = STTORL(FIELD(2)(1:LENFLD(2)))

          IF(FIELD(3)(1:1).EQ.'#') THEN
             HCONTROL(2,NHSTS) = STTORL(FIELD(3)(2:LENFLD(3)))
          ELSE
             ITAG = 0

C            Search for match to Ntuple tag:
             DO I = 1,NVTUP
                IF(FIELD(3).EQ.TAGS(I)) ITAG = I
             ENDDO

             HCONTROL(2,NHSTS) = FLOAT(ITAG)
          ENDIF

C         Non-default histogram parameters:
          IF(NFLDS.GT.3) THEN
             HCONTROL(3,NHSTS) = STTORL(FIELD(4)(1:LENFLD(4)))
             HCONTROL(4,NHSTS) = STTORL(FIELD(5)(1:LENFLD(5)))
             HCONTROL(5,NHSTS) = STTORL(FIELD(6)(1:LENFLD(6)))
          ELSE         !default parameters
             HCONTROL(3,NHSTS) = 50.0  !Default number of bins
             HCONTROL(4,NHSTS) = 1.0   !Do automatic range selection
             HCONTROL(5,NHSTS) = 0.0
          ENDIF

          HCONTROL(6,NHSTS) = 0.0      !Default if not scatterplot

C         Full scatterplot parameter set:
          IF(NFLDS.EQ.10)THEN
             IF(FIELD(7)(1:1).EQ.'#') THEN
                HCONTROL(6,NHSTS) = STTORL(FIELD(7)(2:LENFLD(7)))
             ELSE
                ITAG = 0

                DO I = 1,NVTUP
                   IF(FIELD(7).EQ.TAGS(I)) ITAG = I
                ENDDO

                HCONTROL(6,NHSTS) = FLOAT(ITAG)
             ENDIF

             HCONTROL(7,NHSTS) = STTORL(FIELD(8)(1:LENFLD(8)))
             HCONTROL(8,NHSTS) = STTORL(FIELD(9)(1:LENFLD(9)))
             HCONTROL(9,NHSTS) = STTORL(FIELD(10)(1:LENFLD(10)))
          ELSE
             HCONTROL(6,NHSTS) = 0.0
          ENDIF
      ENDIF
      GOTO 20

   25 REWIND IUSRIN    !ready for GFFGO

+SELF,IF=EUCARD.
c Call EUCARD for interactive read dialogue if CARD$DEF file exists,
c otherwise call GFFGO directly to read in control data

+SELF,IF=NOSERV,IF=EUCARD.
      call UFILE (0, 'CARDS$DEF', icarddef, FileName)
+SELF,IF=-NOSERVE,IF=EUCARD.
      call SERVER('CARDS$DEF',IDRUN,icarddef,FileName,0,0,0,IRUN1,IRUN2)
+SELF,IF=EUCARD.
      if (icarddef .gt. 0) then
        CALL EUCARD
      else
        CALL FFSET ('LINP', iusrin)
        CALL GFFGO
      endif
+SELF,IF=-EUCARD.
c Call GFFGO to read in control data

      CALL FFSET ('LINP', iusrin)
      CALL GFFGO
+SELF.

*******************************************
*  REMAINDER OF GEANT INITIALIZATION      *
*******************************************

      CALL GZINIT
      CALL GPART     !use standard list of particles

c Define detector geometry and materials

+SELF,IF=NOSERV.
      call UFILE (0, 'GCDEFS', iusrgcin, FileName)
+SELF,IF=-NOSERV.
      call SERVER('GCDEFS',IDRUN,iusrgcin,FileName,0,0,0,IRUN1,IRUN2)
+SELF.
      call UGCIN (iusrgcin, lurep, lstor, lline, storage, iugcres)
      if (jdebug .gt. 1)
     *  write (lurep,'(a,i3)') ' UGINIT: UGCIN returned iugcres =',
     *  iugcres

c If the geometry file ends with UGC END i, UGCIN will return iugcres=i;
c this was formerly used to call UGEOM with default geometry.

      if (iugcres .ne. 0) write(IUSROUT,*)'UGEOM removed 9/16/95'

c Make diagnostic printout of all components of the detector

      if (jdebug .gt. 1) call GPRINT ('VOLU', 0)

**********************
* Miscellaneous      *
**********************

      IF(NDETS .NE. NSLP)  THEN
         WRITE(IUSROUT,*) ' *** ERROR DETECTED BY UGINIT:',
     +    '  NUMBER OF DETECTORS FOR WHICH PADS DATA ARE',
     +    ' PROVIDED', NDETS
         WRITE(IUSROUT,*) '     DIFFERENT THAN THE DECLARED',
     +    ' NUMBER OF DETECTORS (NPLANES =', NSLP, ' )'
      ENDIF
      IF(IPIXL .GT. 0)   THEN
         WRITE(IUSROUT,*) ' *** ERROR DETECTED BY UGINIT:',
     +    '  OBSOLETE PIXELIZATION MODE REQUESTED', IPIXL
         WRITE(IUSROUT,*) '     PIXELIZATION IS NOT SUPPORTED',
     +    ' - THE REQUEST IS IGNORED'
         IPIXL = 0
      ENDIF

      ISCAT = IMULS + 3*ILOSS + 9*IPIXL  !track scattering type
      ISEQ = 0    !Used for IGEN = 4
      IF(IRMUL.GT.MXMUL) THEN
         IRMUL = MXMUL
         WRITE(IUSROUT,*)' MULTIPLICITY CANNOT BE > ',IRMUL
      ENDIF

c Open Ascii file (MAGT = 2 or 3) for the magnetic field map
c or none (MAGT=0 no field,  MAGT=1, dipole field)
      mapfile = ' '
      if (MAGT .eq. 2 .or. MAGT .eq. 3)  mapfile = 'FLDASC'
+SELF,IF=NOSERV.
      if (mapfile .ne. ' ')  call UFILE (0, mapfile, iusrmap, FileName)
+SELF,IF=-NOSERV.
      if (mapfile .ne. ' ')
     1  call SERVER(MAPFILE,IDRUN,iusrmap,FileName,0,0,0,IRUN1,IRUN2)
+SELF.

C             Define user histograms
      CALL USINIT

C             Open ZEBRA output file
      IF(IZEB.NE.0) THEN
+SELF,IF=NOSERV.
         CALL UFILE (0, 'RHZEB', IUSRZEB, FileName)
+SELF,IF=-NOSERV.
         CALL SERVER('RHZEB',IDRUN,IUSRZEB,FileName,1,0,1,IRUN1,IRUN2)
+SELF.
         CALL GOPEN(IUSRZEB,'O',2440,IER)
         IF(IER.NE.0) WRITE(IUSROUT,*)' IN UGINIT, GOPEN IER= ',IER
      ENDIF

C              Energy loss and cross-sections initialisations
      CALL GPHYSI

C             output header lines in ASCII output
      IF(ISASC.NE.0) THEN
         CALL DATIMH(HDATE, HTIME)
         WRITE(IUSROUT,1000) HDATE, HTIME
 1000    FORMAT(' GPH DETECTOR VERSION 2 ',2A4,', ',2A4)
      ENDIF

      IF(ISAOU .NE. 0)  THEN   ! open AOU file and write the header
+SELF,IF=NOSERV.
         call UFILE (0, 'RHAOU', iusraou, FileName)
+SELF,IF=-NOSERV.
         CALL SERVER('RHAOU', IDRUN,IUSRAOU,FILENAME,0,0,1,IRUN1,IRUN2)
+SELF.
         WRITE(IUSRAOU, '('' * PMC simulations ASCII OUTPUT file'')' )
         CALL DATIMH(HDATE, HTIME)
         WRITE(IUSRAOU, '('' * Date and time: '', 2A4, 2X, 2A4)' )
     +                          HDATE, HTIME
         WRITE(IUSRAOU, '('' * '')' )
         WRITE(IUSRAOU, '('' *  PMC  version:'', F15.3)' ) SIMVER
         WRITE(IUSRAOU, '('' * GEANT version:'', F15.3)' ) GVERSN
         WRITE(IUSRAOU, '('' * ZEBRA version:'', F15.3)' ) ZVERSN
         WRITE(IUSRAOU, '('' * '')' )
         WRITE(IUSRAOU, '('' * Geometry version'')' )
         WRITE(IUSRAOU, '('' G GEOV '', F10.3)' )  GEOV
         CALL PH_GEOM

         WRITE(IUSRAOU, '('' * '')' )
         WRITE(IUSRAOU, '('' * Run number, random numbers '')' )
         WRITE(IUSRAOU, '('' S RUNG '', I10)' ) IDRUN
         WRITE(IUSRAOU, '('' S RNDM '', 2I10)' ) NRNDM(1), NRNDM(2)
         APOSTR = ''''
         IF(NSAVE .GT. 0)   WRITE(IUSRAOU, 7700) 'SAVE',
     +                       (APOSTR,LSAVE(I),APOSTR, I=1,NSAVE)
         IF(NSETS .GT. 0)   WRITE(IUSRAOU, 7700) 'SETS',
     +                       (APOSTR,LSETS(I),APOSTR, I=1,NSETS)
 7700     FORMAT(' S ', A4, 20(1X, A1, A4, A1) )
         WRITE(IUSRAOU, '('' * '')' )
         WRITE(IUSRAOU, '('' * Simulation parameters'')' )
         WRITE(IUSRAOU, '('' S SECT '', I10)' ) ISECT
         WRITE(IUSRAOU, '('' S RPID '', 2I10)' ) IRPID
         WRITE(IUSRAOU, '('' S RMOM '', 3F10.4)' ) RMOM
         WRITE(IUSRAOU, '('' S RETA '', 2F10.4)' ) RETA
         WRITE(IUSRAOU, '('' S RPHI '', 3F10.4)' ) RPHI
         WRITE(IUSRAOU, '('' S RANG '', 3F10.4)' ) RANG
         WRITE(IUSRAOU, '('' S RARM '', I10)' ) IRARM
         WRITE(IUSRAOU, '('' S RMUL '', I10)' ) IRMUL
         WRITE(IUSRAOU, '('' S REXP '', F10.4)' ) REXP
         WRITE(IUSRAOU, '('' S RSPX '', F10.4)' ) RSPX
         WRITE(IUSRAOU, '('' S RSPZ '', F10.4)' ) RSPZ
         WRITE(IUSRAOU, '('' S RSPR '', F10.4)' ) RSPR
         WRITE(IUSRAOU, '('' S RROT '', F10.4)' ) RROT
         WRITE(IUSRAOU, '('' * Vertex'')' )
         WRITE(IUSRAOU, '('' S RBXX '', F10.4)' ) RBXX
         WRITE(IUSRAOU, '('' S RBYY '', F10.4)' ) RBYY
         WRITE(IUSRAOU, '('' S RBZZ '', F10.4)' ) RBZZ
         WRITE(IUSRAOU, '('' S RBDX '', F10.4)' ) RBDX
         WRITE(IUSRAOU, '('' S RBDY '', F10.4)' ) RBDY
         WRITE(IUSRAOU, '('' S RBDZ '', F10.4)' ) RBDZ
         WRITE(IUSRAOU, '('' S RBXY '', F10.4)' ) RBXY
         WRITE(IUSRAOU, '('' * Geant parameters'')' )
         WRITE(IUSRAOU, '('' S ANNI '', I10)' ) IANNI
         WRITE(IUSRAOU, '('' S BREM '', I10)' ) IBREM
         WRITE(IUSRAOU, '('' S COMP '', I10)' ) ICOMP
         WRITE(IUSRAOU, '('' S DCAY '', I10)' ) IDCAY
         WRITE(IUSRAOU, '('' S DRAY '', I10)' ) IDRAY
         WRITE(IUSRAOU, '('' S HADR '', I10)' ) IHADR
         WRITE(IUSRAOU, '('' S MULS '', I10)' ) IMULS
         WRITE(IUSRAOU, '('' S LOSS '', I10)' ) ILOSS
         WRITE(IUSRAOU, '('' S PAIR '', I10)' ) IPAIR
         WRITE(IUSRAOU, '('' S PFIS '', I10)' ) IPFIS
         WRITE(IUSRAOU, '('' S PHOT '', I10)' ) IPHOT
         WRITE(IUSRAOU, '('' S RAYL '', I10)' ) IRAYL
         WRITE(IUSRAOU, '('' S CUTS '', 5F10.6)' )
     +      CUTGAM, CUTELE, CUTNEU, CUTHAD, CUTMUO
         WRITE(IUSRAOU, '('' * Run controls '')' )
         WRITE(IUSRAOU, '('' S ANAL '', I10)' ) IANAL
         WRITE(IUSRAOU, '('' S PIXL '', I10)' ) IPIXL
         WRITE(IUSRAOU, '('' S WPIX '', F10.4)' ) WPIXL
         WRITE(IUSRAOU, '('' S WLOS '', F10.4)' ) WLOSS
         WRITE(IUSRAOU, '('' S SAHO '', I10)' ) HITSOUT
         WRITE(IUSRAOU, '('' S SAOU '', I10)' ) ISAOU
         WRITE(IUSRAOU, '('' S SASC '', I10)' ) ISASC
         WRITE(IUSRAOU, '('' S SHBO '', I10)' ) ISHBO
         WRITE(IUSRAOU, '('' S SHDO '', I10)' ) ISHDO
         WRITE(IUSRAOU, '('' S SNTU '', I10)' ) ISNTU
         WRITE(IUSRAOU, '('' S SZEB '', I10)' ) IZEB
         WRITE(IUSRAOU, '('' S NHTK '', I10)' ) NHTRKS
         WRITE(IUSRAOU, '('' S NTTK '', I10)' ) NMCTRKS
         WRITE(IUSRAOU, '('' * Generation mode'')' )
         WRITE(IUSRAOU, '('' S GEN  '', I10)' ) IGEN
         WRITE(IUSRAOU, '('' S NTCO '', I10)' ) NTCONC
         WRITE(IUSRAOU, '('' S NTPE '', I10)' ) NTPE
      ENDIF

      RETURN
      END
+DECK,UGLAST.
*CMZU:  2.01/00 07/02/97  13.58.40  by  K.Wozniak
*CMZU:  2.00/09 31/07/96  17.32.04  by  Phobos (R. Verdier)
*CMZU:  2.00/08 25/07/96  15.33.33  by  Phobos (R. Verdier)
*CMZU:  2.00/02 05/04/96  13.35.23  by  Phobos (R. Verdier)
*CMZU:  1.01/02 05/05/94  13.48.57  by  R. Verdier
*-- Author :
C======================
      SUBROUTINE UGLAST
C======================
C
C     Description:-
C     =============
C     User termination routine called at end of run.
C     Optionally prints run control cards.
C     Called by KUEXIT or UGCONB.
C     Calls USLAST, GLAST, GCLOSE; SERVPR
C
C     Arguments:-
C     ===========
C     none
C
C     Implicit inputs, outputs, side effects:-
C     ========================================
C     izeb control switch from common FLAG
C
C     Author:  D. McLeod
C     =======
C
C     Creation Date: 28-Mar-1992
C     ===========================
C
C     Revisions:
C     ==========
C     Date       Name       Description
C     ---------  -------    --------------------------------------------
C
C      7 Feb 97  K.W.       GCNUM sequence added (a variable was undefined)
C     31 Jul 96  R. V.      Select STAT call only on SUN
C     25 Jul 96  R. V.      Remove unreferenced IERR
C     14 Oct 95  DMcL       Remove obsolete control card file printout;
C                           the relevant unit (4) was no longer opened!
C                           Added server file and general info printout
C                           Corrected error in GCLOSE call!
C      5 May 94  R. V.      Include FLAG to define izeb
C     23 Oct 92  R. V.      Separated from GE_...
C     22 Jul 92  RV         Restore declaration of CARD
C      1 Jun 92  C. Parsons Moved from GPH into GE_ALL_THE_REST

+SEQ, FLAG.
+SEQ, FLAG2.
+SEQ, GCFLAG.
+SEQ, GCNUM.
+SEQ, GCKINE.

C  LOCAL:
      INTEGER LOUT/6/
      INTEGER IER, I, NDH(2), NTH(2), STATB(13)
      CHARACTER*13 CSTATUS
      CHARACTER*24 LKTIME, CTIME
      INTEGER STEND, LENOCC, STAT
      EXTERNAL STEND
      EXTERNAL LENOCC
      EXTERNAL CTIME
      EXTERNAL STAT

C-------------------------------------------------------------------------

      CALL USLAST

C            Print job statistics

      CALL GLAST

C            Finish bank output
      IF(IZEB.NE.0) THEN
         CALL GCLOSE(USRZEB,IER)
      ENDIF

C            Print final summary of the run

      CALL DATIMH (NDH, NTH)
+SELF,IF=UNIX.
      LKTIME = ' '
+SELF,IF=UNIX,IF=SUN.
C          Determine when the SIM executable was generated:
      IERR = STAT( ROOTPATH(1 : LENOCC(ROOTPATH))//
     *       ROOTVERS(1 : LENOCC(ROOTVERS))//'/exe/sim.exe', STATB)
      IF(IERR.NE.0) WRITE(LOUT,*)' Error in uglast UNIX STAT call'
      LKTIME = CTIME(STATB(10))
+SELF,IF=UNIX.
C         The following is meaningful only for UNIX systems:
      IF( IPSIG .EQ. 1) THEN
        CSTATUS = 'stopped early'
      ELSE
        CSTATUS = 'all completed'
      ENDIF
C
+SELF.
+SELF,IF=-NOSERV.
      WRITE(LOUT,100) SERNAME(1:STEND(SERNAME)), (NDH(I),I=1,2),
     *                (NTH(I),I=1,2),CSTATUS,IDRUN,
     *                NTMULT,IEVENT,NEVENT,SIMVER,LKTIME
C
C            Print the locations of the files used in this run (SERVPR)
      CALL SERVPR(' ******   FILES USED FOR DATA AND OUTPUT:')
C
+SELF.
      RETURN

100   FORMAT(3X,76('*'),/,3X,'* PHOBOS SIM run ',A,' on ',
     * 2A4,', ',2A4,', ',A13, T79,'*',/,3X,
     *'* Run # ',I4,', did ',I5,' tracks (primaries and secondaries)'
     * ,T79,'*',/,3X,'* on last event (# ',I4,') out of ',
     * I3,' events requested.',T79,'*',
     * /,3X,'* SIM version ',F5.2,
     * ' linked on ',A,T79,'*',/,3X,76('*'),/)

      END
+DECK,UHITSOUT.
*CMZU:  2.02/00 17/03/97  12.15.11  by  K. Wozniak
*CMZU:  2.00/02 05/04/96  13.43.46  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.09  by  Phobos
*-- Author :
      subroutine UHITSOUT (MODE, HITS, IP, ITRACK, IPARTYP)
*Documentation_Block
************************************************************************
*
* Description:
*  User routine called at the end of each tracking step to record hits
*  on the detector planes in an ASCII file for tracking studies
*
*  Arguments:
*  *MODE    1 to write hits, 2 to write vertex at end            (input)
*  *HITS    True hits (intercepts on detector plane)             (input)
*  *IP      Plane ID                                             (input)
*  *ITRACK  Geant track #                                        (input)
*  *IPARTYP Geant particle type code                             (input)
*
* Called by:
*  PH_HIT
*
* Calls:
*  none
*
* Implicit inputs, outputs, side effects:
*  Input and output variables in commons included below;
*  Data written to dataset with logical name 'HITSOUT'
*
* History:
* Date       Name          Description
* ----       ----          -----------
*  4-Mar-97  K.W.          routine to be removed - removed code
* 27-Jul-95  DMcL          changed UFILE to SERVER for UNIX port etc.
* 12-Feb-93  GSFS          Corrected reformatting of pads to I5
*                          Deleted unnecessary code from Chuck's start at track
*                          reconstruction.
* 10-Feb-93  R. V.         Added Mode arg to write vertex at end and
*                          iostat to avoid abend on write error;
*                          reformat pad numbers to i5
* 12-Jan-93  R. V.         Added FileName
* 15-Dec-92  Robin Verdier Moved into UHITSOUT, called by PH_HIT
* 11-Aug-92  Chuck Parsons Creation as MY_HIT, a version of PH_HIT
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

      REAL HITS(9)
      INTEGER IP, IPARTYP, ITRACK, MODE

      return
      end
+DECK,USANAL.
*CMZ :  1.00/00 17/12/93  07.30.09  by  Phobos
*-- Author :
      SUBROUTINE USANAL

*Documentation_Block
************************************************************************
*
*  Description:
*  User additional analysis, usually on elements of Ntuple
*  with output to extra entries at end of Ntuples
*  This version is a dummy
*
*  Arguments:
*  none
*
*  Called by:
*  PH_OUT
*
*  Calls:
*  none
*
*  Implicit inputs, outputs, side effects:
*  none
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  12-Jan-93  R. V.      COMMON.NTU & COMMON.HST -> NTU.CMN & HST.CMN
*  19-Nov-92  R. Verdier Separated from PH_OUT
*     Apr-92  D. Mcleod  Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

+SEQ, FLAG.   !control words and flags
+SEQ, IO.     !I/O channels etc.
+SEQ, RHSYS.  !PHOBOS detector general parameters
+SEQ, NTU.    !Ntuple structure
+SEQ, RHSIL.  !Detector module parameters
+SEQ, GCFLAG. !GEANT flags

C     LOCAL: none

      RETURN
      END
+DECK,USINIT.
*CMZ :  1.00/00 17/12/93  07.30.09  by  Phobos
*-- Author :
      SUBROUTINE USINIT
*Documentation_Block
************************************************************************
*
*  Description:
*  User interface routine to be called once at the begining of a run
*  for booking histograms etc.
*
*  Arguments:
*  none
*
*  Called by:
*  UGINIT
*
*  Calls:
*  PH_INIT
*
*  Implicit inputs, outputs, side effects:
*  via listed COMMONs
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  30-Jun-92  R. Verdier Add call to PH_INIT
*  10-Jun-92  C. Parsons Creation of dummy version
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE
C
C     Executable Statements
C     =====================
C
      call PH_INIT

      RETURN
      END
+DECK,USLAST.
*CMZ :  1.00/00 17/12/93  07.30.09  by  Phobos
*-- Author :
      SUBROUTINE USLAST
*Documentation_Block
************************************************************************
*
*  Description:
*  User routine called once at end of run.
*
*  Arguments:
*  none
*
*  Called by:
*  GUOUT
*
*  Calls:
*  PH_LAST
*
*  Implicit inputs, outputs, side effects:
*  inputs: GEANT common blocks containing info on current event
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  30-Jun-92  R.Verdier  Added call to PH_LAST
*  10-Jun-92  Chuck Parsons  Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

      call PH_LAST

      RETURN
      END
+DECK,USOUT.
*CMZ :  1.00/00 17/12/93  07.30.09  by  Phobos
*-- Author :
      SUBROUTINE USOUT
*Documentation_Block
************************************************************************
*
*  Description:
*  User routine called once at the end of each event.
*
*  Arguments:
*  none
*
*  Called by:
*  GUOUT
*
*  Calls:
*  PH_OUT
*
*  Implicit inputs, outputs, side effects:
*  inputs: GEANT common blocks containing info on current event
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  27-Jun-92  R.Verdier  Added call to PH_OUT
*  10-Jun-92  Chuck Parsons  Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

      call PH_OUT

      RETURN
      END
+DECK,USSTEP.
*CMZU:  2.00/14 21/11/96  14.55.55  by  K. Wozniak
*CMZU:  2.00/08 25/07/96  13.55.28  by  Phobos (R. Verdier)
*CMZU:  2.00/06 21/07/96  22.05.42  by  Phobos (R. Verdier)
*CMZU:  2.00/03 01/07/96  16.58.59  by  K.Wozniak
*CMZU:  2.00/02 08/07/96  15.30.45  by  Phobos (R. Verdier)
*CMZU:  1.01/19 16/05/95  14.55.42  by  Phobos (R. Verdier)
*CMZU:  1.00/00 17/12/93  07.30.09  by  Phobos
*-- Author :
      SUBROUTINE USSTEP
*Documentation_Block
************************************************************************
*
*  Description:
*  User extension to handle produced secondary tracks.
*
*  This version creates banks in the JKINE and JVERT data structures for
*  no, selected, or all tracks, depending on the control variable ISECT
*  set by a SECT control statement:
*  SECT 0 drops all secondaries.
*  SECT 1 tracks all secondaries but creates VERT and KINE banks for all
*    primary tracks and for secondary tracks that produce at least one
*    HIT.
*  SECT 2 tracks and creates VERT and KINE banks for all tracks.
*  Additional user words, defined in UJKBUF.CMN, are also stored
*  in the user KINE bank extension.
*
*  Arguments:
*  none
*
*  Called by:
*  GUSTEP once for each step before returning
*
*  Calls:
*  GSKINE to create track banks, GSVERT to create vertex banks, GSKING
*  to put newly created secondaries on the tracking stack JSTAK,
*  MZGARB to release unused space in the storage division containing KINE
*
*  Implicit inputs, outputs, side effects:
*  inputs: GEANT common blocks contain info on current particle
*  outputs: entries in VERT, KINE and STAK data structures
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  20-Nov-96  K. W.      In SECT=1 mode the origin volume name is set to 0
*                        for secondaries in place of the name of detector hit
*                        (which is current volume when the particle is stored)
*                        The name of the origin volume has to be retrieved later
*  21-Jul-96  R. V.      Removed unused id, ip, jst, mm, stdout
*   1-JUL-96  K. W.      Correct position of the last point on the
*                        trajectory stored in the KINE bank
*  08-Jul-96  R. V.      IMPLICIT NONE restored [?], format string con-
*                        tinued across line fixed, ios SAVEd
*  16-May-95  K. W.      IFLG(nn) = ITRA => 0 before GSKING call for
*                        SECT=2, reqired by Geant 3.21, reason unknown
*  31-Mar-95  R.V.       Change STRA to SECT to avoid GEANT 3.21 conflict
*  18-Jul-94  K. Wozniak IUBuf(1) -> KCASE, UBuf(11) -> ISTOP
*  18-Jul-94  RV         Implement STRA = 1 to make KINE banks only for
*                        tracks that produce hits; add call to MZGARB;
*                        save # hits on track in common /UJKB/;
*                        replace PSKING call by inline code for clarity
*  1-Nov-93   R. V.      Move NtTot update from GUOUT in case STRA = 1
*  11-Jun-93  MDB        Implement STRA=0; make FLAGS available
*  14-May-93  R. V.      Multipass mods: NtTot, MUPEP.CMN
*   3-Jul-92  RV         Move into USSTEP; call PSKING; change GCBANK
*                        expansion
*  30-Jun-92  RV         Added call to PH_HIT
*  18-Jun-92  RV         Dump only at end of event
*   6-Jun-92  RV         Store secondaries in the JKINE structure, with
*                        final kinematics and parent track index
*  27-May-92  R.Verdier  Original GUSTESI using separate stack
*  10-Jun-92  Chuck Parsons  Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE

c Should the following be declared here, or in the main program?
C
C Declare minimum size GEANT common. True size of the GEANT common is
C determined by the GCBANKSIZE shareable image. The linker will give an
C error message if it is less than this value.
C
      integer nwgean
      real geant
      PARAMETER (NWGEAN=300000)
c* Following changed 4-Jul-92 to avoid overriding the GCBANK layout (RV):
c*      COMMON/GCBANK/GEANT(NWGEAN)
      equivalence (GEANT, NZEBRA)
c* End of mod
C
C
C
      integer npaw,nwpaw
      PARAMETER(NPAW=100000)
C   This declares the MINIMUM size of the PAWC common via the array NWPAW.
C   true size is declared via PAWCSIZE shareable image.
C
      COMMON/PAWC/NWPAW(NPAW)
C
C  The GEANT fixed size commons.
C
+SEQ,GCBANK.
+SEQ,GCFLAG.
+SEQ,GCKINE.
+SEQ,GCKING.
+SEQ,GCNUM.
+SEQ,GCSETS.
+SEQ,GCSTAK.
+SEQ,GCTRAK.
+SEQ,GCVOLU.
+SEQ,IO.
+SEQ,MUPEP.
+SEQ,UJKBUF.
+SEQ,FLAG.
c The following, copied from ZEBRA.CAR, is used only for diagnostics
      COMMON /MZCC/  mzskip(58), LQSTA(21), LQEND(20), NQDMAX(20)
      integer mzskip, LQSTA, LQEND, NQDMAX
C
C     Local definitions:
C     ==================
C
c Local control.  Diagnostic level, Debuglev, should be externally
c controlled; LUD should be assigned to a separate unit

	integer Debuglev /1/ ! diagnostic printout level, none if 0
	integer LUD      /6/ ! diagnostic printout logical unit
	integer Newtl   /50/ ! write tracklist every newtl events
	                     ! if debugging
        integer SaveSec  /2/ ! see SECT above; this is the default

c Temporaries for GEANT calls:
	integer Itl, jk, jku, Nnew, Nt, Nvtx
c Variables for user buffer display and diagnostic print:
	integer ios, ipa, Iparent, ll, Nfw, nn, Ntact, NUBW
	real PhiPFi, PhiPIn, PIn(4), RIn(3), ThePFi, ThePIn
	real DegRad /57.2958/
	save ios
c Initialization flag:
	integer IevPrev/-1/
	save IevPrev

c Local storage for temporarily saving the cumulative ID's of tracks
c until we decide to create permanent VERT and KINE banks for
c them.  Note the cumulative ID is used only for diagnostics:
	integer NltsLim
	parameter (NltsLim = 200)
	integer ItStack, Nlts, NltsMax
	integer IdCum, IdCums(NltsLim)
c Saved starting values of r and p for active track
	real Pinit(6)
c Saved parent track number, particle type, and # of active track
	integer IpaSave, IpSave, ITRASave
c Saved cumulative id of active track
	integer IdcAct
c Index of division containing KINE banks, for garbage collection
	integer Idiv_KINE /2/

C     Executable Statements
C     =====================
C

c Initialize active track count and # final writes when the event
c sequence number changes.

	if (Ievent .ne. IevPrev) then

          if (ISECT.ge.0 .and. ISECT.le.2) SaveSec=ISECT
	  Nfw = 0  ! Clear # final writes
	  if (debuglev .ge. 2)
     1   write (LUD,*) ' USSTEP: starting event ', Ievent

c Initialize the user words for the primary tracks, which are
c already stored in the JKINE structure.

	  do Itl = 1, NTRACK

	    jk = LQ(JKINE-Itl)
	    if (jk .gt. 0) then
	      jku = LQ(jk-1)
	      if (jku .gt. 0) then
	        do nn = 1, Nwubmax
	          Q(jku+nn) = 0.
	        enddo
	        IQ(jku+3) = NAMES(NLEVEL)
	      endif ! jku
	    endif ! jk

	  enddo ! Itl

c If in SaveSec = 1 mode, force the division containing the KINE
c structure, which initially is allocated all unused ZEBRA space, to
c give up its unused space.  This keeps the 1st attempt to add a
c generated track to the tracking stack from aborting on insufficient
c space.  Apparently if the first expansion is done by GSVERT, as
c in SaveSec = 2, the garbage collection is performed automatically.

	  if (Debuglev .ge. 4)
     1   write (LUD,*) ' USSTEP: div limits: 1=', LQSTA(1), '-',
     2     LQEND(1), ', 2=', LQSTA(2), '-', LQEND(2), ', 19=',
     3     LQSTA(19),'-',LQEND(19), ', 20=', LQSTA(20),'-',LQEND(20)

	  if (Idiv_KINE .ne. 0 .and. SaveSec .eq. 1)
     1   CALL MZGARB (Idiv_KINE, 0)

       if (Debuglev .ge. 4)
     1   write (LUD,*) ' USSTEP: div limits: 1=', LQSTA(1), '-',
     2     LQEND(1), ', 2=', LQSTA(2), '-', LQEND(2), ', 19=',
     3     LQSTA(19),'-',LQEND(19), ', 20=', LQSTA(20),'-',LQEND(20)

	  Ntact = NTRACK
	  IdCum = NtPrev + Ntact
	  Nlts = 0
	  NltsMax = 0

	  IevPrev = Ievent

	endif ! Ievent

c Save the starting position, momentum and ID of each track in case
c we need to create VERT and KINE banks for it.  The track belongs to
c KINE bank # ITRA if ISTAK = 0, else to the ISTAKth entry (-1?) in
c the temporary stack

	if (NSTEP .eq. 0) then

c Update the active Id and # of entries in the local tracking storage.
c Clear the number of hits on the active track

	  NHitsAct = 0
	  do nn = 1, 3
	    Pinit(nn) = VECT(nn)
	    Pinit(nn+3) = VECT(nn+3) * VECT(7)
	  enddo

c Debug: write track starting information
	  if (Nlts .eq. 0) then
	    IdcAct = NtPrev + ITRA
	  else
	    IdcAct = IdCums(Nlts)
	    Nlts = Nlts - 1
	  endif
	  if (Debuglev .ge. 4) then
	    if (ISTAK .ne. 0) IpaSave = -IpaSave
	    IpaSave = ITRA
	    IpSave = IPART
	    write (LUD,'(2(a,i6),a,i3,4(a,f7.2))', iostat=ios)
     1     ' USSTEP: IDc=', IdcAct, ', ipa=', IpaSave,
     2     ', ip=', IpSave, ', r=(', VECT(1), ',', VECT(2),
     3     ',', VECT(3), '), p=', VECT(7)
	  endif
c TEMPORARY debug: check that particle type agrees with the currently
c active entry on the tracking stack
	  ItStack = IQ(JSTAK+1) + 1
	  if (IPART .ne. IQ(JSTAK + NWSTAK * ItStack - 7)) then
	    if (Debuglev .ge. 1) write (LUD,'(2(a,i3))', iostat=ios)
     1     ' USSTEP: error, IPART =', IPART,
     2     ', ip saved from tracking stack =',
     3     IQ(JSTAK + NWSTAK * ItStack - 7)
	  endif

	endif ! NSTEP

c If the current track is in a sensitive detector and is for a
c charged particle

	if (ISET .ge. 1 .and. CHARGE .ne. 0.) then

c On entry,

	  if (INWVOL .eq. 1) then

c Update its number of hits

	    NHitsAct = NHitsAct + 1

c Create new VERT and KINE banks if none existed and SaveSec = 1

	    if (ISTAK .ne. 0 .and. SaveSec .eq. 1
     1       .and. NHitsAct .eq. 1) then

	      call GSVERT (Pinit, 0, ITRA, 0, 0, Nvtx)

c Debug: error message if vertex creation failed
	      if (Nvtx .le. 0 .and. Debuglev .ge. 1)
     1       write (LUD,'(a,i6)', iostat=ios)
     2         '  USSTEP: error creating vertex for stack track #',
     3         ISTAK

c Init user buffer.  Negate parent track # to indicate that one or
c more secondary tracks were created since the primary track
	      call UZERO(UBuf, 1, Nwubmax)
	      IUBuf(1) = KCASE
	      UBuf(2) = -(ITRA + NtPrev)
	      IUBuf(3) = 0  !  origin volume of secondary is not the name
C                           !  of the current volume (detector hit)
C                           !  to avoid changes of GEANT volume tree
C                           !  a flag indicates that the name have to be
C                           !  retrieved later (if needed)

	      call GSKINE (Pinit(4), IPART, NVtx, UBuf, Nwubmax, Nt)

c Set ITRA to connect the current track with its new KINE bank
	      ITRA = Nt
c Clear ISTAK to identify this track as having a KINE bank
	      ISTAK = 0

c Debug: note created banks if level >= 3
	      if (Debuglev .ge. 3)
     1       write (LUD,'(4(a,i6))', iostat=ios)
     2         ' USSTEP: created vertex', Nvtx, ', KINE bank', Nt,
     3         ' for IDc = ', IdcAct, ', ip=', IPART

	    endif  !  ISTAK .ne. 0 ...

	  endif  !  INWVOL .eq. 1

c Call PH_HIT to create a HITS bank and store hit information in it.

	  call PH_HIT()

	endif  !  ISET .ge. 1 ...

c If current track interacted or stopped, and has a KINE bank, enter
c terminal information from GCTRAK and GCKINE into the user part

	if (Istop .ne. 0) then

	  if (ISTAK .eq. 0  .or. SaveSec .eq. 2) then
	    jk = LQ(JKINE-ITRA)
	    if (jk .gt. 0) then
	      jku = LQ(jk-1)
	      if (jku .gt. 0) then
c Bookkeeping check: does the stopped track have the correct
c particle type?
	        if (INT(Q(jk+5)) .ne. IPART .and. Debuglev .ge. 1)
     1         write (LUD,'(2(a,i3))',iostat=ios)
     2            ' USSTEP: error, IPART=', IPART, ', active ptype=',
     3            INT(Q(jk+5))
c Save stop flag, final position, momentum, and total energy in the
c user extension to the KINE bank
	        do nn = 1, 3
	          Q(jku+nn+3) = VECT(nn)
	          Q(jku+nn+6) = VECT(7) * VECT(nn+3)
	        enddo
	        Q(jku+10) = GETOT
	        Q(jku+11) = ISTOP
	      endif ! jku
	    endif ! jk

	  endif ! ISTAK

	  Ntact = Ntact - 1

	endif ! Istop

c Process any secondary tracks produced in this step and update counts.
c Note the id's printed out here are not necessarily correct, since
c the new tracks may have kine banks created later, or be discarded.
c Option: bypass processing if SaveSec is 0

	if (SaveSec .eq. 0) go to 100

	Nnew = NGKINE

	if (Nnew .gt. 0) then

	  if (debuglev .ge. 4) then
	    write (LUD,'(a,2(i4,a),z8,a)', iostat=ios)
     1     ' USSTEP: step ', nstep,
     2     ' found', Nnew, ' secondary tracks produced by mech. ',
     3     KCASE, ':'
	    do nn = 1, Nnew
	      ipa = GKIN(5,nn)
	      write (LUD,'(2(a,i5),a,f8.3,a,3f8.3)',iostat=ios)
     1       ' Id=', NtTot+nn, ', ip=', ipa,
     2       ', E=', GKIN(4,nn), ', p=', (GKIN(ll,nn), ll = 1, 3)
	    end do
	  endif

	  if (SaveSec .eq. 1) then

c If SaveSec = 1, call GSKING to put the track on the tracking stack;
c we will create KINE and VERT banks later, if the track produces hits

c Limit saved tracks to available local storage
	    if (Nlts + Nnew .gt. NltsLim) then
	      if (debuglev .ge. 1) then
	        write (LUD, '(3(a,i6))',iostat=ios) ' USSTEP: error,',
     1            Nlts, ' tracks on stack, saved', NltsLim - Nlts,
     2            ' of requested', Nnew
	      endif
	      Nnew = MAX(NltsLim - Nlts, 0)
	    endif

	    do nn = 1, Nnew
	      IdCums(Nlts + nn) = NtTot + nn
c Set flag to 0 so GSKING will not create a new KINE bank
	      IFLGK(nn) = 0
	      call GSKING(nn)
	    end do

	    Nlts = Nlts + Nnew
	    NltsMax = MAX(Nlts, NltsMax)

	  else if (SaveSec .ge. 2) then

c If SaveSec = 2, create a new vertex for the secondaries at the
c current point; the vertex index, Nvtx, is returned by GSVERT.
c Create KINE banks for all the secondary tracks in the JKINE
c structure, adding space for user words to contain stop flag,
c parent id, and final kimematics.  Also put the new tracks on the
c tracking stack, where they will be picked up and propagated AFTER
c the current track has stopped or decayed.
c At this point we could set IFLGK < 0 for low energy tracks and
c neutrinos to save time by discarding them.

	    call GSVERT (VECT, 0, ITRA, 0, 0, Nvtx)

	    ITRASave = ITRA

	    do nn = 1, Nnew

	      call UZERO(UBuf, 1, Nwubmax)
	      IUBuf(1) = KCASE
	      UBuf(2) = ITRASave + NtPrev
	      IUBuf(3) = Names(NLevel)

c Create a KINE bank for the new track
	      call GSKINE (GKIN(1,nn), INT(GKIN(5,nn)), NVtx, UBuf,
     1       Nwubmax, Nt)

c Create a tracking stack entry for the new track
	      ITRA = Nt
	      IFLGK(nn) = 0
	      call GSKING(nn)

	    end do  ! nn

	    ITRA = ITRASave

	    if (debuglev .ge. 6) then
c Debug: print space points for all tracks and tracking and physics
c parameters after the current step
	      write (LUD,'(a)') ' USSTEP: GPJXYZ(0) output:'
	      call GPJXYZ(0)
	      write (LUD,'(a)') ' USSTEP: GPCXYZ output:'
	      call GPCXYZ
	    endif
	  endif  ! SaveSec

	  NtTot = NtTot + Nnew
	  Ntact = Ntact + Nnew

        endif ! Nnew .gt. 0

100	continue

c Debug: display current track at each step
	if (debuglev .ge. 5) then
	  if (mod(Nstep,10) .eq. 0) ! NB-- this restarts for each track
     1   write (LUD,'(12a)') ' St#', '  Ip', '      x', '      y',
     2   '      z', '     tx', '     ty', '     tz', '       p',
     3   '      dE', ' Stp', ' Mec'
	  write (LUD,'(2i4,3f7.2,3f7.3,2f8.3,2i4)', iostat=ios)
     1   Nstep, Ipart, (Vect(nn), nn=1,7), DeStep, Istop, Nmec
	endif

c Debug: write out final track list every Newtl events
c (this should be a user exit call)

	if (Debuglev .ge. 2 .and. NTRACK .gt. 0 .and. Nfw .eq. 0 .and.
     1   mod(Ievent,Newtl) .eq. 0 .and. Ntact .eq. 0) then

	  write (LUD,'(a,3(i6,a))') ' USSTEP: The track list for event',
     1   Ievent, ' now has', NTRACK, ' total entries,', Ntact,
     2   ' active.'
	  write (LUD,'(10a)')
     1   '    Id', '  Ip', '         ', 'Idpar', '       E',
     2   '      x', '      y', '      z', ' Thetap', '   Phip'
	  do Itl = 1, NTRACK
	    call GFKINE(Itl, RIn, PIn, ipa, Nvtx, UBuf, NUBW)
	    if (PIn(1) .ne. 0. .or. PIn(2) .ne. 0.
     1     .or. PIn(3) .ne. 0.) then
	      ThePIn = atan2(sqrt(PIn(1)**2 + PIn(2)**2), PIn(3))
	    else
	      ThePIn = 0.
	    endif
	    if (PIn(1) .ne. 0. .or. PIn(2) .ne. 0.) then
	      PhiPIn = atan2(PIn(2), PIn(1))
       	    else
	      PhiPIn = 0.
	    endif
	    if (UBuf(7) .ne. 0. .or. UBuf(8) .ne. 0.
     1     .or. UBuf(9) .ne. 0.) then
	      ThePFi = atan2(sqrt(UBuf(7)**2 + UBuf(8)**2), UBuf(9))
	    else
	      ThePFi = 0.
	    endif
	    if (UBuf(7) .ne. 0. .or. UBuf(8) .ne. 0.) then
	      PhiPFi = atan2(UBuf(8), UBuf(7))
       	    else
	      PhiPFi = 0.
	    endif
	    Iparent = UBuf(2)
	    write (LUD,'(1x,i6,i6,1x,2a4,i5,f8.3,3f7.2,2f7.1 /'//
     1     '7x,a8,i6,a1,5x,f8.3,3f7.2,2f7.1)', iostat=ios)
     2     Itl + NtTot, ipa, (IQ(LQ(JPART-ipa)+ll), ll=1,2),
     3     Iparent, PIn(4), (RIn(nn), nn=1,3),
     4     DegRad * ThePIn, DegRad * PhiPIn,
     5     'at stop', int(UBuf(1)), ':', UBuf(10),
     6     (UBuf(nn+3), nn=1,3), DegRad * ThePFi,
     7     DegRad * PhiPFi
	  enddo ! Itl

	endif ! Debuglev + ...

 	return
	end
+DECK,UNSATREFS.
*CMZU:  2.00/08 25/07/96  13.48.15  by  Phobos (R. Verdier)
*CMZU:  1.01/17 19/04/95  15.34.48  by  R. Verdier
*-- Author :
      subroutine UNSATREFS
*Documentation_Block
************************************************************************
*
*  Description:
*  UNSATREFS satisfies undefined linker references to avoid meaningless
*  error warnings for unused GEANT subroutine references.
*  It should be included explicitly it the end of the link.
*
*  THIS SUBROUTINE SHOULD BE ELIMINATED WHEN CERN LIBRARIES ARE
*  STRAIGHTENED OUT.
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*  25-Jul-96  R. V.      ")," -> ")" in writes for ANSI compliance
*  19-Apr-92  R. Verdier Creation
************************************************************************
*End_Documentation_Block

      implicit none

c Local declarations:

c Names of unsatisfied references as of Geant 3.21 and Cernlib 94b:
      character*16 names(4) / 'CTL$GL_PCB', 'CTL$T_ACCOUNT',
     1 'CTL$T_USERNAME', 'QNEXT' /
c Idebug = 0 for no output, 1 to warn if called, 2 to stop
      integer idebug /2/, ie, ios, lun /6/, ncalls(4) / 4 * 0 /

c End of declarations

      entry CTL$GL_PCB
      ie = 1
      goto 10

      entry CTL$T_ACCOUNT
      ie = 2
      goto 10

      entry CTL$T_USERNAME
      ie = 3
      goto 10

      entry QNEXT
      ie = 4

 10   ncalls(ie) = ncalls(ie) + 1
      if (idebug .ge. 1) then
        if (ncalls(ie) .le. 10) write (lun,'(3a)',iostat=ios)
     1    ' UNSATREFS: ', names(ie), ' unexpectedly called.'
        if (ncalls(ie) .eq. 10) write (lun,'(a)',iostat=ios)
     1    ' Additional warnings will be suppressed.'
        if (idebug .ge. 2) stop ' UNSATREFS: quit on unexpected call.'
      endif

      return
      end
+DECK,USCOM.
*CMZU:  1.01/17 20/03/95  14.53.13  by  K.Wozniak
*CMZ :  1.01/06 13/05/94  06.18.39  by  K.Wozniak
*CMZ :  1.00/00 17/12/93  07.30.09  by  Phobos
*-- Author :
      SUBROUTINE USCOM
*Documentation_Block
************************************************************************
*
*  Description:
*  User interface routine to be called once at the begining of a run
*  to define parameters and flags that can be read from control file
*  They have to be defined before the control file is read - and it
*  is read before USINIT is called
*
*  Arguments:
*  none
*
*  Called by:
*  UGINIT
*
*  Calls:
*
*  Implicit inputs, outputs, side effects:
*  via listed COMMONs
*
*  History:
*  Date       Name       Description
*  ----       ----       -----------
*   13-May-94  K.W.    Creation
************************************************************************
*End_Documentation_Block

      IMPLICIT NONE
C
C     Executable Statements
C     =====================
C

      RETURN
      END
+PATCH,INC.
*CMZ :  2.00/04 16/07/96  11.08.01  by  K.Wozniak
+KEEP, IOGEN.
*CMZU:  2.00/02 05/04/96  16.21.02  by  Phobos (R. Verdier)
*-- Author :
*Include IOGEN.BLK
*Start_Documentation
***********************************************************************
*                                                                     *
*                    INCLUDE file 'IOGEN.BLK'                         *
*                                                                     *
*Start_Verbatim                                                       *
*                                                                     *
*  Created:  08-JUN-1992   Clive Halliwell                            *
*  Updated:                                                           *
*                                                                     *
***********************************************************************
*                                                                     *
*                            GENERAL I/O UNITS                        *
*                            -----------------                        *
*                                                                     *
*  IOWRIT:  GENERAL OUTPUT UNIT                                       *
*  IOLOG:   OUTPUT UNIT FOR ERROR MESS.                               *
*  IOREAD:  GENERAL INPUT UNIT                                        *
*  IOZBOT:  ZEBRA output unit number                                  *
*  IODATA:  DATA FILES                                                *
*  ITAPIN:  INPUT TAPE UNIT                                           *
*  ITAPOT:  OUTPUT TAPE UNIT                                          *
*  ITAPSC:  STREAMER CHAMBER MERGER IO                                *
*                                                                     *
*    LIMITS ON MULTIPLE STREAM UNITS                                  *
*    --------------------------------                                 *
*    IOSPLF = FIRST UNIT FOR SPLIT OUTPUT                             *
*    IOSPLL = LAST UNIT FOR SPLIT OUTPUT                              *
*    IOMRGF = FIRST UNIT FOR MERGED INPUT                             *
*    IOMRGL = LAST UNIT FOR MERGED INPUT                              *
*    IOQUOF = OFFSET FOR IOQUST STATUS INDEX                          *
*                                                                     *
*                                                                     *
*End_Verbatim                                                         *
*                                                                     *
***********************************************************************
*End_Documentation

      INTEGER    IOSPLF, IOSPLL, IOMRGF, IOMRGL, IOQUOF

      PARAMETER (IOSPLF = 61,
     *           IOSPLL = 70,
     *           IOMRGF = 71,
     *           IOMRGL = 80,
     *           IOQUOF = IOSPLF-1)

      INTEGER        IOWRIT, IOLOG, IOREAD, IOZBOT, IODATA, ITAPIN
     *             , ITAPOT, ITAPSC
     *             , BOTSCR, IZCEDX, IOLAST, BOTSC0

      COMMON /IOGEN/ IOWRIT, IOLOG, IOREAD, IOZBOT, IODATA, ITAPIN
     *             , ITAPOT, ITAPSC
     *             , BOTSCR, IZCEDX, IOLAST, BOTSC0
+KEEP, IOCON.
*CMZU:  2.00/02 05/04/96  16.19.56  by  Phobos (R. Verdier)
*-- Author : D. McLeod, Sep-95
*Include IOCON.BLK
*Start_Documentation
***********************************************************************
*                                                                     *
*     /IOCON/ - CONSTANTS FILE I/O STUFF                              *
*                                                                     *
*Start_Verbatim                                                       *
*                                                                     *
*      IOCONS    = Constants directory unit (external server file)    *
*      IOCONF    = First unit for constants                           *
*      IOCONH    = First unit for Alternate files                     *
*      IOCONL    = Last  unit for constants                           *
*      IOCON9    = Last  unit for Alternate files                     *
*      IOCOND    = Scratch unit used in server (working directory)    *
*      IOCONS    = Scratch unit used for server indirect files        *
*                                                                     *
*      NIOCON    = Number of constants files possible at one time     *
*      NHBCON    = Number of Alternate files possible at one time     *
*                                                                     *
*      CONDIR    = Directory of constants files                       *
*                                                                     *
*      CONFIL()  = List of constants files in use                     *
*      CONTYP()  = Type of constants in use                           *
*      ICONR1()  = First run of range in use                          *
*      ICONR2()  = Last  run of range in use                          *
*                                                                     *
*      CONFHB()  = List of Alternate files in use                     *
*      CONTHB()  = Type of Alternate in use                           *
*      ICONR3()  = First run of range in use                          *
*      ICONR4()  = Last  run of range in use                          *
*                                                                     *
*End_Verbatim                                                         *
*                                                                     *
***********************************************************************
*End_Documentation

      INTEGER    IOCONT,     IOCONS,     IOCONF,     IOCONL
      PARAMETER (IOCONT= 19, IOCONS= 20, IOCONF= 21, IOCONL= 60)
      INTEGER    IOCONH,     IOCON9
      PARAMETER (IOCONH= 81, IOCON9= 99)

      INTEGER    NIOCON, NHBCON
      PARAMETER (NIOCON= IOCONL-IOCONF, NHBCON= IOCON9-IOCONH)

      INTEGER    IOCOND
      PARAMETER (IOCOND= IOCONF)

      INTEGER         ICONR1, ICONR2,  ICONR3, ICONR4
      COMMON /IOCON/  ICONR1 (NIOCON), ICONR2 (NIOCON)
     *              , ICONR3 (NHBCON), ICONR4 (NHBCON)

      CHARACTER*60    CONDIR, CONFIL, CONFHB,  CONTYP*10, CONTHB*10
      COMMON /IOCONC/ CONDIR, CONFIL (NIOCON), CONTYP (NIOCON)
     *                      , CONFHB (NHBCON), CONTHB (NHBCON)
+KEEP, FLAG2.
*CMZU:  2.00/02 05/04/96  16.42.16  by  Phobos (R. Verdier)
*-- Author :
C  PHOBOS flags, run control, operating modes, misc.   File FLAG2.INC
C  14-Nov-95  D. McLeod
*     Glossary:  IPSIG = identity of kill signal sent by user as interrupt
*                EXSERV = flag for existence of external server file
*                SERNAME = name part only of server file, also run name
*                ROOTPATH = program environment pathname (no trailing /)
*                ROOTVERS = version subdirectory e.g. /prod, /test, /dev
*                SIMVER  = version number for the PHOBOS Monte Carlo
      INTEGER IPSIG
      REAL SIMVER
      LOGICAL EXSERV
      CHARACTER SERNAME*20, ROOTPATH*60, ROOTVERS*10
      COMMON/RHFLG2/IPSIG, EXSERV, SIMVER, SERNAME, ROOTPATH, ROOTVERS
+KEEP, RHSILD.
*CMZ :  2.00/02 05/04/96  14.03.25  by  Phobos (R. Verdier)
*CMZU:  1.01/06 10/05/94  17.50.40  by  R. Verdier
*-- Author :    R. Verdier   10/05/94
C RHSILD.INC: Data for PHOBOS detector hit parameters
c 26-Sep-95 D. McL. Moved data value for UgcpMax from RHSIL; UgcpMaxp is
c                   defined there
c 10-May-94 R. V.  Extracted from RHSIL.INC, added Don McLeod's mods
c Number of hit parameters:
      data NSIP /11/
c Names of parameters:
      DATA SINAMH / 'X   ', 'Y   ', 'Z   ', 'DE  ', 'COSX', 'COSY',
     1              'COSZ', 'EFIN', 'IVOL', 'ITRK', 'ISEQ', '    '/
c Mumber of bits stored for each parameter:
      DATA SIBITH / 12*32 /
c Multiplicative scale factors and origins, defined so that
c   Stored value = (Parameter value + SIORIG) * SIFACT:
      DATA SIORIG / 3*50., 0., 3*1., 5*0. /
      DATA SIFACT / 3*1.0E3, 1.0E7, 3*5.0E3, 1.0E4, 4*1. /
c Number of UGC parameters
      DATA UgcpMax /UgcpMaxp/
+KEEP,NTUD.
*CMZ :  1.01/21 11/07/95  13.24.34  by  K.Wozniak
*CMZ :  1.01/17 16/03/95  17.38.13  by  K.Wozniak
*CMZ :  1.01/12 19/07/94  12.12.54  by  Phobos (R. Verdier)
*-- Author :
C Data for Ntuple element tag names.                     File NTUD.INC
C Variables are in common NTTAGS, defined in NTU.INC.
C 20-APR-95  R. V.      Change last tagnames to ... TFn, ITn, SVn
C 16-MAR-95  K. W.      Increase the number of planes to 15
C 19-Jul-94  R. V.      Update tagnames: Cxx -> Dxx, VOLTERM -> VOLUME
C 10-May-94  R.Verdier  Extracted from NTU.INC with new HITS info
      DATA TAGS/'RUN', 'EVENT', 'TRACK', 'GEN', 'ANAL', 'SCAT', 'BIMP',
     1 'XPROD', 'YPROD', 'ZPROD', 'IDPART', 'CHRG', 'TP', 'TK',
     2 'TPHI', 'TTHETA', 'ACCEPT', 'NHITSL', 'USR1', 'USR2', 'STOP',
     3 'PARENT', 'VOLUME', 'XTERM', 'YTERM', 'ZTERM', 'PXTERM',
     4 'PYTERM', 'PZTERM', 'ETERM', 'UNUSED',
     5 'PL1 ','X1  ','Y1  ','Z1  ','DE1 ','DX1 ','DY1 ','DZ1 ','EF1 ',
     6 'TF1 ','IT1 ','SV1 ',
     7 'PL2 ','X2  ','Y2  ','Z2  ','DE2 ','DX2 ','DY2 ','DZ2 ','EF2 ',
     8 'TF2 ','IT2 ','SV2 ',
     9 'PL3 ','X3  ','Y3  ','Z3  ','DE3 ','DX3 ','DY3 ','DZ3 ','EF3 ',
     * 'TF3 ','IT3 ','SV3 ',
     1 'PL4 ','X4  ','Y4  ','Z4  ','DE4 ','DX4 ','DY4 ','DZ4 ','EF4 ',
     2 'TF4 ','IT4 ','SV4 ',
     3 'PL5 ','X5  ','Y5  ','Z5  ','DE5 ','DX5 ','DY5 ','DZ5 ','EF5 ',
     4 'TF5 ','IT5 ','SV5 ',
     5 'PL6 ','X6  ','Y6  ','Z6  ','DE6 ','DX6 ','DY6 ','DZ6 ','EF6 ',
     6 'TF6 ','IT6 ','SV6 ',
     7 'PL7 ','X7  ','Y7  ','Z7  ','DE7 ','DX7 ','DY7 ','DZ7 ','EF7 ',
     8 'TF7 ','IT7 ','SV7 ',
     9 'PL8 ','X8  ','Y8  ','Z8  ','DE8 ','DX8 ','DY8 ','DZ8 ','EF8 ',
     * 'TF8 ','IT8 ','SV8 ',
     1 'PL9 ','X9  ','Y9  ','Z9  ','DE9 ','DX9 ','DY9 ','DZ9 ','EF9 ',
     2 'TF9 ','IT9 ','SV9 ',
     3 'PL10','X10 ','Y10 ','Z10 ','DE10','DX10','DY10','DZ10','EF10',
     4 'TF10','IT10','SV10',
     5 'PL11','X11 ','Y11 ','Z11 ','DE11','DX11','DY11','DZ11','EF11',
     6 'TF11','IT11','SV11',
     7 'PL12','X12 ','Y12 ','Z12 ','DE12','DX12','DY12','DZ12','EF12',
     8 'TF12','IT12','SV12' ,
     9 'PL13','X13 ','Y13 ','Z13 ','DE13','DX13','DY13','DZ13','EF13',
     * 'TF13','IT13','SV13',
     1 'PL14','X14 ','Y14 ','Z14 ','DE14','DX14','DY14','DZ14','EF14',
     2 'TF14','IT14','SV14',
     3 'PL15','X15 ','Y15 ','Z15 ','DE15','DX15','DY15','DZ15','EF15',
     4 'TF15','IT15','SV15',
     5 'PL16','X16 ','Y16 ','Z16 ','DE16','DX16','DY16','DZ16','EF16',
     6 'TF16','IT16','SV16',
     7 'PL17','X17 ','Y17 ','Z17 ','DE17','DX17','DY17','DZ17','EF17',
     8 'TF17','IT17','SV17' /
+KEEP, BANGC.
*CMZ :  2.00/10 19/09/96  13.27.44  by  Unknown
*CMZ :  1.01/21 11/07/95  12.07.16  by  K.Wozniak
*CMZ :  1.01/17 20/03/95  13.18.09  by  K.Wozniak
*-- Author :    K.Wozniak   09/03/95
C Event generator parameters                 File: BANGC.CMN
C 20-Sep-96  K. Wozniak Added new parameters to control BANG mode = 2
C                       RSPX, RSPZ, RSPR (removed RMAG)
C 10-Mar-95  K. Wozniak Added new parameters to control track generation
c                       and selection (ETAMIN,ETAMAX, IDMIN,IDMAX ..)
c 22-Jun-94  R. V.      Remove NSEQN storage (see PH_HIT)
c 10-May-94  D. McLeod  Increased MXMUL to 13000 for HIJET events
c 17-Dec-92  R. Verdier Changed name from BANG to BANGC for CMS
c 22-Nov-92  D. Mcleod  Added EXF and NSEQN
      INTEGER MXMUL
      PARAMETER (MXMUL=13000)  ! maximum multiplicity for BANG etc.
      INTEGER IRMUL         !  multiplicity in random particle generation
      INTEGER IRARM         !  particles going to 1 or 2 arms selected
      INTEGER IRPID(2)      !  particle id range: min, max
      REAL RMOM(3)          !  momentum of particles:  min, max and step
                            !  (first step if 1/p is changed)
      REAL REXP             !  mean transv. mom. - for momentum generation
      REAL RETA(2)          !  ETA range: min, max
      REAL RANG(3)          !  starting theta angle and step
      REAL RPHI(2)          !  range of emission phi angle: min, max
      REAL RROT             !  phi rotation angle (GEN=5)
      REAL RBXX,RBYY,RBZZ   !  central position of the vertex
      REAL RBXY             !  width of the beam intersection in x-y
      REAL RBDX,RBDY,RBDZ   !  the range of positions of the vertex
C                           !
      REAL RSPX,RSPZ,RSPR   !  position and radius of the circle describing
C                           !  area covered by spectrometer
      REAL PHIR,CZ,ZC,RS    !  working variables for BANG
      COMMON/RHBNG/IRMUL, IRARM, IRPID, RMOM, REXP, RETA, RANG, RPHI,
     1             RROT,
     2             RBXX,RBYY,RBZZ, RBDX, RBDY, RBDZ, RBXY,
     3             RSPX,RSPZ,RSPR, PHIR,CZ,ZC,RS
+KEEP, CARDS.
*CMZ :  1.00/00 17/12/93  07.30.26  by  Phobos
*-- Author :
C  Common blocks for GPH PHOBOS simulation:  FILE CARDS.CMN
C  General geometric layout of PHOBOS detector exclusive of detectors
C  These values are on input cards or data statements.
C
      REAL YGAP,YCRH,THCR
C     1   OUT1,OUT2,BMV1,BMV2,BMT1,BMT2,SPE1,SPE2,CRB1,CRB2,
C     1   CRS1,CRS2,FIL1,FIL2
C
      COMMON/CARDS/YGAP,YCRH,THCR
C         OUT1(6),OUT2(6),BMV1(6),BMV2(6),
C     1   BMT1(6),BMT2(6),SPE1(7),SPE2(7),CRB1(6),CRB2(6),
C     1   CRS1(6),CRS2(6),FIL1(6),FIL2(6)



+KEEP, CYFLDC.
*CMZ :  1.00/00 17/12/93  07.30.26  by  Phobos
*-- Author :
*Include CYBFLD.BLK
*Start_Documentation
***********************************************************************
*                                                                     *
*                     INCLUDE file 'CYBFLD.INC'                       *
*Start_Verbatim                                                       *
*                                                                     *
*  Created:  02-MAR-1993   K. Wozniak                                 *
*                                                                     *
*                 Cylindrical magnetic field map                      *
*                 ------------------------------                      *
*                                                                     *
*  NNRMAX   Parameter - maximal size of the map in radial direction   *
*  NNVMAX   Parameter - maximal size of the map in vertical direction *
*  NNR      actual size of the map in radial direction                *
*  NNV      actual size of the map in vertical direction              *
*  XTAB     radial (XTAB(1)..XTYAB(NNR)  and vertical (XTAB(NNR+1)..  *
*            XTAB(NNR+NNV))  coordiantes of the grid points of the map*
*  BRTAB    table of the radial compoments of the field               *
*  BVTAB    table of the vertical components of the field             *
*           Field value at the point  (XTAB(I), XTAB(NNR+K) is:       *
*             (BRTAB(I+(K-1)*NNR), BVTAB(I+(K-1)*NNR))                *
*                                                                     *
*                                                                     *
*End_Verbatim                                                         *
***********************************************************************
*End_Documentation

      INTEGER NNRMAX, NNR, NNVMAX, NNV

      PARAMETER (NNRMAX = 200, NNVMAX = 150)

      REAL XTAB, BRTAB, BVTAB
      COMMON /CYBFLD/ NNR, NNV, XTAB(NNRMAX+NNVMAX),
     +                BRTAB(NNRMAX*NNVMAX), BVTAB(NNRMAX*NNVMAX)

+KEEP, FLAG.
*CMZ :  2.00/03 04/07/96  18.10.18  by  K.Wozniak
*CMZ :  1.01/17 31/03/95  15.46.22  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.26  by  Phobos
*-- Author :
C  PHOBOS flags, run control, operating modes, misc.   File FLAG.CMN
C  31-Mar-95  R.V.       Change STRA to SECT to avoid GEANT 3.21 conflict
C  22-Nov-92  D. McLeod
C   These are set in input cards
      INTEGER ISASC,ISHBO,ISHDO,ISNTU,ISAOU, ISECT,IDRAW,
     1        IGEN,IANAL,ISCAT,IPIXL,ISEQ,NTRK,IZEB
      REAL WPIXL,WLOSS
      COMMON/RHFLG/ISASC,ISHBO,ISHDO,ISNTU,ISAOU, ISECT,IDRAW,
     1  IGEN,IANAL,ISCAT,IPIXL,ISEQ,NTRK,IZEB,WPIXL,WLOSS
+KEEP, HST.
*CMZ :  1.00/00 17/12/93  07.30.26  by  Phobos
*-- Author :
C  File HST.CMN (originally COMMON.HST)
C  Common block for inline plot control.. to generate plots during
C  the GEANT run from the track Ntuples (rather than later via PAW)
C  Its contents are set by control cards in the same file as FFREAD:

C  HIST ID TAGNAME  (short form.. default bins and interval)
C    TAGNAME can be Ntuple tag name or e.g. #35 for 35th entry

C  HIST ID TAGNAME NCHANNELS XMIN XMAX is the long form.
C  HIST ID TAGX NX XMI XMA TAGY NY YMI YMA  scatterplot, args as HBOOK2
C  (The number of arguments distinguishes these three formats.)

C      HCONTROL(I,J), J = 1,NHMX contains the control information:
C  I = 1:  User supplied ID number of plot, floated integer
C  I = 2:  Ntuple entry number (floated), from TAGNAME or # input
C  I = 3:  number of channels (0 if short form card)
C  I = 4-5 or 4-9: arguments as in card formats above, all floating

      INTEGER NHMX,NHSTS
      PARAMETER(NHMX=50)
      REAL HCONTROL
      COMMON/RHHST/HCONTROL(9,NHMX),NHSTS

+KEEP, IO.
*CMZ :  2.00/08 13/08/96  13.16.58  by  Phobos (R. Verdier)
*CMZ :  2.00/06 21/07/96  21.43.11  by  Phobos (R. Verdier)
*CMZ :  2.00/03 04/07/96  18.08.51  by  K.Wozniak
*CMZ :  2.00/02 18/07/96  10.40.46  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.27  by  Phobos
*-- Author :
C Common block for GPH logical units etc.: file IO.CMN
c 13-Aug-96  R. V.       Added USRBATCHK for KUIP commands for UGCONS
c 21-Jul-96  R. V.       Remove unused record; note CARDDEF now obsolete
c 22-Feb-93  R. V.       Added USRMCNTU and IMCNTU for MC Ntuple
c 14-Nov-92  R. Verdier  Added UGCIN, IUGCIN, CARDDEF and ICARDDEF
+SELF,IF=EUCARD.
c                        for UGC and EUCARD input units
+SELF,IF=-EUCARD.
c                        for UGC and EUCARD (obsolete) input units
+SELF.
C    Apr-92  C. Parsons  Replacement for original COMMON.CDT
      INTEGER USRGCIN, CARDDEF, USRIN, USROUT, USRMAP, USRNTU, USRZEB,
     *  USRMCNTU, USRBATKUMAC
      PARAMETER (USRIN = 4, USROUT = 16, USRMAP = 18)
      PARAMETER (USRNTU = 15, USRZEB = 17, USRGCIN = 19, CARDDEF = 20)
      PARAMETER (USRMCNTU = 21, USRBATKUMAC = 22)
      INTEGER ICARDDEF, IMCNTU, IUSRGCIN, IUSRIN, IUSROUT, IUSRMAP,
     *  IUSRNTU, IUSRZEB, IUSRAOU, IUSRBATKUMAC
      COMMON /IO/ IUSRIN, IUSROUT, IUSRMAP, IUSRNTU, IUSRZEB, IUSRGCIN,
     *  ICARDDEF, IMCNTU, IUSRAOU, IUSRBATKUMAC
+KEEP, MUPEP.
*CMZ :  1.01/17 16/03/95  17.43.09  by  K.Wozniak
*CMZ :  1.00/00 17/12/93  07.30.27  by  Phobos
*-- Author :
c MUPEP.CMN: PHOBOS MC multi-pass event processing variables
c 16-Mar-95 K. W.     NeSkip added
c  6-Jun-93 R. V.     Creation
c Multi-pass event processing breaks up each event into groups of
c tracks, in order to avoid overflowing Zebra track storage.
c Common for access to control variables:
      common /MUPEP/ EPState, NtConc, NtpE, NtPrim, NeSkip, NtSkip,
     1  MPind, NtPrev, NtTot, NtMax, NvPrev
c Parameters and data values are assigned in MUPEP.CDA.
c Event processing state: EPState = 0 for first pass,
c 1 for continuing pass, 2 for final pass
      integer EPState
c Current pass index:
      integer MPind
c Maximum number of tracks to process concurrently in a group:
      integer NtConc
c Maximum track number for this group:
      integer NtMax
c Maximum number of tracks per event:
      integer NtpE
c Number of primary and secondary tracks generated before this pass:
      integer NtPrev
c Number of primary tracks and vertices generated:
      integer NtPrim, NvPrev
c Number of input file events to skip initially:
      integer NeSkip
c Number of tracks to skip initially:
      integer NtSkip
c Total number of primary and secondary tracks generated:
      integer NtTot
+KEEP, MUPEPD.
*CMZ :  1.01/17 16/03/95  17.42.16  by  K.Wozniak
*CMZ :  1.00/00 17/12/93  07.30.27  by  Phobos
*-- Author :
c MUPEPD.CMN: Data for PHOBOS common MUPEP
c 16-Mar-95 K. W.     NeSkip added
c  9-May-93 R. V.     Creation
      data EPState /0/, NtConc /1000/, Neskip /0/, NtSkip /0/
      data NtpE /20000/
+KEEP, NTU.
*CMZ :  1.01/21 11/07/95  13.21.44  by  K.Wozniak
*CMZ :  1.01/17 16/03/95  18.07.54  by  K.Wozniak
*CMZ :  1.01/12 19/07/94  12.10.03  by  Phobos (R. Verdier)
*CMZ :  1.01/06 12/05/94  10.24.22  by  R. Verdier
*CMZ :  1.00/00 17/12/93  07.30.27  by  Phobos
*-- Author :
C Common block for Ntuple image and other analysis info.  File NTU.INC
C There may be one Truth Ntuple and/or one Hits Ntuple for each track.
C These must be correlated into events using the event number and other
C event information.
C 10-Jul-95  K. W.      Increased number of planes for spectrometer to 17
C 10-Mar-95  K. W.      Increased number of planes for spectrometer
C 19-Jul-94  R. V.      Update tagnames: Cxx -> Dxx, VOLTERM -> VOLUME
C 10-May-94  R. V.      Modify Ntuples to contain new hits information;
C                       add NTTAGS common for tags; move data to NTUD.INC
C 29-Jun-93  M. Baker   Modify Ntuples
C 10-Jan-93  R.Verdier  Separate Hits and Truth ntuples; rename to NTU.CMN
C    Mar-92  D. Mcleod  Creation as COMMON.NTU
C Number:  Name:    --------------- Description:----------------------------
C>>>>>>>GENERAL INFORMATION<<<<<<<<<<<<<<<<<<
*   1      RUN      run number
*   2      EVENT    event number
*   3      TRACK    track number
*   4      GEN      event generator type; 1 = fixed, 2 = random, etc.
*   5      ANAL     event analysis type; 1 = Ntuple only, 2 = resolution, etc.
*   6      SCAT     ISCAT = IMULS + 3*ILOSS + 9*IPIXL; 1st 2 are in /GCPHYS/
*   7      BIMP     Impact Parameter   ** NOT YET IMPLEMENTED **
C>>>>>>>THE TRUTH<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
*   8      XPROD    track origin
*   9      YPROD       "    "
*   10     ZPROD       "    "
*   11     IDPART   particle type (GEANT code)
*   12     CHRG     particle charge
*   13     TP       particle momentum (at production)
*   14     TK          "     kinetic energy    "
*   15     TPHI        "     azimuth angle
*   16     TTHETA      "     polar angle
C>>>>>>>ANALYSIS RESULTS..FOR THE WHOLE TRACK<<<<<<<<<<<<<<<<<<
*   17     ACCEPT   Acceptance Flag (+/-1=acc. in +/- wing, 2=both, 0=neither)
*   18     NHITSL   number of hits on track, set to a maximum of NHTM
*   19     USR1     spare, for later use
*   20     USR2              "
C>>>>>>>TRACK HITS<<<<<<<<
* The Truth ntuple stops here; the Hits ntuple continues with
* A series of particle history words
* NHITSL groups of 12 words each, at index = 32 + 12*(Ihit-1):
*
*   21     KCASE    creation mechanism
*   22     PARENT   track number
*   23     VOLUME   creation volume name
*   24     XTERM
*   25     YTERM
*   26     ZTERM
*   27     PXTERM
*   28     PYTERM
*   29     PZTERM
*   30     ETERM
*   31     STOP     stop mechanism

*   32+    PL       plane number hit
*   33+    X        Track center in plane in master coords (maybe pixeled)
*   34+    Y          "     "     "   "    "  "      "       "       "
*   35+    Z          "     "     "   "    "  "      "       "       "
*   36+    DE       Energy deposited in the plane
*   37+    DX       Exit minus entry position in master coord system
*   38+    DY        "    "    "    "      "        "    "
*   39+    DZ        "    "    "    "      "        "    "
*   40+    EFIN     track energy at exit from plane
*   41+    TOF      time registered by a TOF detector, in seconds
*   42+    ITRK     track number for this hit
*   43+    IS       Combined information:  IS = IVOL + 1000 * ISEQ
*                   ISEQ = sequential (first = 1) hit number on this track
*                   IVOL = system volume number of the plane
C The maximal number of hits is now NHTM = 17
C There are thus 31 + 12*NHTM or 235 entries in a Hits Ntuple, with zeroes
C after the last hit

      INTEGER NVMCTUP,NVTUP,NTOFF,NHTM
      PARAMETER (NTOFF=31, NVMCTUP=20, NHTM=17)
      PARAMETER (NVTUP=31+12*NHTM)

      REAL    RUN, EVENT, TRACK, GEN, ANAL, SCAT, BIMP
      REAL    XPROD, YPROD, ZPROD, IDPART, CHRG, TP, TK, TPHI, TTHETA
      REAL    ACCEPT, NHITSL, USR1, USR2
      REAL    STOP, PARENT, VOLTERM, XTERM, YTERM, ZTERM, PXTERM, PYTERM
      REAL    PZTERM, ETERM, UNUSED
      REAL    TRK(12,NHTM), TUP(NVTUP)

      COMMON/RHTUP/ RUN, EVENT, TRACK, GEN, ANAL, SCAT, BIMP,
     1  XPROD, YPROD, ZPROD, IDPART, CHRG, TP, TK, TPHI, TTHETA,
     2  ACCEPT, NHITSL, USR1, USR2, STOP, PARENT, VOLTERM, XTERM,
     3  YTERM, ZTERM, PXTERM, PYTERM, PZTERM, ETERM, UNUSED,
     4  TRK

      EQUIVALENCE (TUP(1),RUN)

      COMMON /NTTAGS/ TAGS(NVTUP)
      CHARACTER*8 TAGS
+KEEP, NTUEX.
*CMZ :  1.01/06 12/05/94  10.26.15  by  R. Verdier
*CMZ :  1.00/00 17/12/93  07.30.28  by  Phobos
*-- Author :
c NTUEX.INC: PHOBOS MC Ntuple option extensions
c 10-May-94 R. V.     Correct filenames in documentation
c 6-Jun-93 R. V.     Creation
c This include file defines options for the size and format of the
c Phobos ntuples.  Data values are assigned in NTUEXD.INC.
c Define sizes for allocating ntuples, in 4-byte words.  The NHtrks
c and NMCtrks values limit the total size of the created disk file.
c The default values assigned to NWHits and NWMC here are actually
c overridden by Nvtup and Nvmctup, respectively, in NTUD.INC.
      common /NTUEX/ LreclW, NWHits, NWMC, NWover, NWPRIM,
     1               NHtrks, NMCtrks
      integer
     1  LreclW,  ! Disk file logical record length, words
     2  NWHits,  ! # Hits ntuple variables [columns]
     3  NWMC,    ! # MC Truth ntuple variables [columns]
     4  NWover,  ! Approx. Zebra system overhead, words
     5  NWprim,  ! Primary storage buffer, words
     6  NHtrks,  ! Maximum # of tracks in Hits ntuple
     7  NMCtrks  ! Maximum # of tracks in MC ntuple
+KEEP, NTUEXD.
*CMZ :  1.01/06 12/05/94  10.27.38  by  R. Verdier
*CMZ :  1.00/00 17/12/93  07.30.28  by  Phobos
*-- Author :
c NTUEXD.INC: PHOBOS MC Ntuple option extensions data
c 10-May-94 R. V.      NWHits and NWMC changed for new HITS information
c 6-Jun-93 R. V.     Creation
c This include file specifies data values for common NTUEX, defined
c in NTUEX.INC.
c Define sizes for allocating ntuples, in 4-byte words.  The NHtrks
c and NMCtrks values limit the total size of the created disk file.
c The default values assigned to NWHits and NWMC here are actually
c overridden by Nvtup and Nvmctup, respectively, in NTUD.INC.
      data
     1  LreclW /  1024 /, ! Disk file logical record length, words
     2  NWHits /   175 /, ! # Hits ntuple variables [columns]
     3  NWMC   /    20 /, ! # MC Truth ntuple variables [columns]
     4  NWover /  3500 /, ! Approx. Zebra system overhead, words
     5  NWprim /  8192 /, ! Primary storage buffer, words
     6  NHtrks / 60000 /, ! Maximum # of tracks in Hits ntuple
     7  NMCtrks/ 60000 /  ! Maximum # of tracks in MC ntuple
+KEEP, RHSIL.
*CMZ :  2.03/00 02/07/97  12.53.11  by  K. Wozniak
*CMZ :  2.02/01 01/05/97  12.31.23  by  Phobos (R. Verdier)
*CMZ :  2.02/00 17/03/97  12.08.22  by  K. Wozniak
*CMZ :  2.01/00 15/01/97  14.34.10  by  K.Wozniak
*CMZ :  2.00/03 09/07/96  13.34.33  by  K.Wozniak
*CMZ :  2.00/02 05/04/96  13.59.09  by  Phobos (R. Verdier)
*CMZ :  2.00/00 08/10/95  08.50.51  by  Phobos (R. Verdier)
*CMZ :  1.01/06 10/05/94  17.43.02  by  R. Verdier
*CMZ :  1.01/04 22/03/94  11.52.02  by  R. Verdier
*CMZ :  1.00/00 17/12/93  07.30.28  by  Phobos
*-- Author :
C RHSIL.CMN: PHOBOS detector plane dimensions, positions, and
c granularity; UGC parameters
c The actual and maximum numbers of detector planes and detector hit
c parameters.  Their default values are defined in RHSILD.INC.
c  1-Jul-97 K. W.       Added data for GEANT pixelization (GSDVN)
c  1-May-97 R. V.       Increased NSLPM to 500
c  3-MAR-97 K. W.       Removed SPL, added PADS data
C  3-Jan-97 K. W.       Increased NSLPM to 180
c  3-Jul-96 K. W.       Geometry version number added
c  5-Apr-96 D. McL.     Moved data value of UgcpMax to RHSILD
c  ...
c    Mar-92 D.McLeod    Creation
c Storage limit for number of silicon planes:
      INTEGER NSLPM
      PARAMETER (NSLPM=500)
c Storage limit for number of parameters for each hit:
      integer NSipMaxp
      parameter (NSipMaxp = 12)
c Safety limit for number of parameter values that may be entered in
c a UGC text input record:
      integer UgcpMaxp
      parameter (UgcpMaxp = 10)
c Number of silicon planes in use:
      integer NSLP
c Additional information on detectors - pad sizes:
C  DETNAME  - name of the detector volume
C  DIVXNAME - name for division in X direction
C  DIVYNAME - name for division in Y direction
C  DIVZNAME - name for division in Z direction
C  NDIVX    - number of divisions in X direction
C  NDIVY    - number of divisions in Y direction
C  NDIVZ    - number of divisions in Z direction
C  IPADFL   - pad type flag
C  PADn   - four pad parameters
C             (pad size in X, Y, Z direction for IPADFL=1 for example)
      CHARACTER*4 DETNAME(NSLPM), DIVXNAME(NSLPM),
     +             DIVYNAME(NSLPM), DIVZNAME(NSLPM)
      INTEGER NDIVX(NSLPM), NDIVY(NSLPM), NDIVZ(NSLPM)
      REAL PAD1(NSLPM), PAD2(NSLPM), PAD3(NSLPM), PAD4(NSLPM)
      INTEGER NDETS, IPADFL(NSLPM)
      COMMON /RHPADS/ NDETS, DETNAME, DIVXNAME, DIVYNAME, DIVZNAME,
     +       NDIVX, NDIVY, NDIVZ,
     +       IPADFL, PAD1, PAD2, PAD3, PAD4
c Number of silicon planes - compared with final value of NDETS
      COMMON /RHSIL/ NSLP
c UGC parameter information:
      integer UgcpMax
      real UGCpars(UgcpMaxp)
c Declare silicon plane parameters; their default values are specified
c in RHSILD.INC
      integer NSIP
c Names of parameters:
      CHARACTER*4 SINAMH(NSipMaxp)
c Mumber of bits stored for each parameter:
      INTEGER SIBITH(NSipMaxp)
c Multiplicative scale factors and origins, defined so that
c   Stored value = (Parameter value + SIORIG) * SIFACT:
      REAL SIFACT(NSipMaxp), SIORIG(NSipMaxp)
c Common for access to UGC parameters and hit parameter definitions:
      common /UGCPAR/ UgcpMax, UGCpars,
     1                NSIP, SINAMH, SIBITH, SIORIG, SIFACT
      real GEOV  !  geometry version number
      common /ugGEOV/ GEOV
+KEEP, RHSYS.
*CMZ :  2.00/10 19/09/96  13.23.14  by  Unknown
*CMZ :  2.00/04 16/07/96  11.08.01  by  Phobos (K. Wozniak)
*CMZ :  1.00/00 17/12/93  07.30.29  by  Phobos
*-- Author :
C  Common blocks for GPH PHOBOS simulation:  FILE RHSYS.CMN
C  General geometric layout of PHOBOS detector exclusive of detectors
C  These values are on input cards or data statements, except *MAX are
C  calculated to encompass all elements of the system.
C  20-Sep-96  K.W       Removed obsolete BMTBRAD, BERTHIK
C                       Removed FANGL - now local variable in BANG
C  12-Jul-96  K.W       Position of the magnet pole center MAGX, MAGZ
C                       (previously XOFF,ZOFF) separated from the magnet
C                       offset (now MOFF - 3-D vector)
C  14 Dec-92  R.V.      TMAG redefined and changed to integer
C  22-Nov-92 D. McLeod  Renamed from COMMON.SYS; TMAG, ZOFF, XOFF
C                       are added from the original GPH version
      REAL   BFLD         ! Magnetic field strength
     &      ,MAGX,MAGZ    ! Coordinates of field center
     &      ,MOFF(3)      ! offset of the field
     &      ,RFLD         ! Radius of field (perfect dipole only)
     1   ,XMAX,YMAX,ZMAX,ZMIN,XMMAX,ZMMAX
      INTEGER MAGT, TMAG  ! Field type: 0 Zebra bank, 1 = dipole,
                          ! 2 = ASCII map
      COMMON/RHSYS/ BFLD,MAGT,MAGX,MAGZ,MOFF
     1  ,RFLD,XMAX,YMAX,ZMAX,ZMIN,XMMAX,ZMMAX
      EQUIVALENCE (TMAG, MAGT)
+KEEP,TLIMIT.
*CMZU:  2.02/01 23/04/97  11.15.47  by  K.Wozniak
*-- Author :    K.Wozniak   23/04/97
C   CPU time limit flag
C   NTLIM = 1  simulation stops about 1 second before the CPU
C              time assigned to batch job is exhausted
C   NTLIM = 0  ignores estimated CPU time limit, program continues
C              with a warning message and could eventually crash.
C              It is the default as for long queues CERN library
C              assumes only 9999 seconds (about 2 hours 47 minutes)
C
      INTEGER NTLIM
      COMMON /TLIMIT/ NTLIM
+KEEP, UHITS.
*CMZ :  1.00/00 17/12/93  07.30.29  by  Phobos
*-- Author :
c UHITS.CMN: control variables for UHITSOUT.FOR
c  5-Feb-93  R. Verdier     Creation
      integer draw_mode, HitsOut
      logical draw_hits
      common /Hitsocon/ HitsOut, draw_hits, draw_mode
+KEEP, UJKBUF.
*CMZ :  2.02/00 17/03/97  12.08.22  by  K. Wozniak
*CMZ :  2.00/14 21/11/96  14.58.39  by  Unknown
*CMZ :  2.00/03 09/07/96  14.01.10  by  K.Wozniak
*CMZ :  1.01/12 18/07/94  11.24.51  by  Phobos (R. Verdier)
*CMZ :  1.00/00 17/12/93  07.30.30  by  Phobos
*-- Author :
C  PHOBOS JKINE user buffer definitions.          File: UJKBUF.INC
c 18-Jul-94  R. V.  Added NHitsAct
	integer Nwubuf, Nwubmax, NHitsAct
	parameter (Nwubmax = 11)
	common /UJKB/ Nwubuf, Ubuf(Nwubmax), NHitsAct
	real Ubuf
	integer IUBUF(Nwubmax)
	equivalence (IUBUF, UBUF)
c NHitsAct:   The number of hits on the track being propagated
c The user words at present are:
c UBUF(1):    Istop at track termination
c     (3):    Volume number at origin, not definded for primaries
c             undefined for all tracks in SECT=1 mode
c     (3):    Volume number at origin, (4 characters in one integer word)
c             not definded for primaries and undefined for all tracks
c             in SECT=1 mode (integer value 0)
c     (4-6):  X, Y, Z at termination
c     (7-10): Px, Py, Pz, E at termination
c     (11):   Unused
+KEEP, ZBBFLD.
*CMZ :  1.00/00 17/12/93  07.30.30  by  Phobos
*-- Author :
*Include ZBBFLD.BLK
*Start_Documentation
***********************************************************************
*                                                                     *
* Storage of the PHOBOS magnetic field.  The field is stored in a     *
* single ZEBRA bank with no links.                                    *
*                                                                     *
*Start_Verbatim                                                       *
*                                                                     *
*                        BFLD bank structure                          *
*                        --------------------                         *
*                                                                     *
*  BFLDTL:  Total number of links                                     *
*  BFLDSL:  Number of structural links                                *
*  BFLDDA:  Number of data words                                      *
*  BFLDIO:  IO charateristic (not standard)                           *
*  BFLDFM:  IO form of bank                                           *
*                                                                     *
*                       BFLD data POINTERS                            *
*                       ------------------                            *
*  Pointer  Contents                                                  *
*  -------  --------                                                  *
*                                                                     *
*  BFLDMX   Field value at center of one coil (for normalization)     *
*  BFLDBX   X cordinates of field                                     *
*  BFLDBY   Y cordinates of field                                     *
*  BFLDBZ   Z cordinates of field                                     *
*  BFLDA    Grid points                                               *
*  BFLDNA   Number of grid points (NX, NY, NZ)                        *
*                                                                     *
* To accesses values:                                                 *
*                                                                     *
*      BMAX = Q (BFLDPT + BFLDMX)                                     *
*      NX   = IQ(BFLDPT + BFLDNA + 1)                                 *
*      NY   = IQ(BFLDPT + BFLDNA + 2)                                 *
*      NZ   = IQ(BFLDPT + BFLDNA + 3)                                 *
*                                                                     *
*      BFLDBX = BFLDA  + NX + NY + NZ                                 *
*      BFLDBY = BFLDBX + NX * NY * NZ                                 *
*      BFLDBZ = BFLDBY + NX * NY * NZ                                 *
*                                                                     *
*  Created:  15-JUL-1992   Christopher Conner                         *
*  Updated:  18-NOV-1992   Christopher Conner (added BFLDMX)          *
*                                                                     *
*End_Verbatim                                                         *
***********************************************************************
*End_Documentation

      INTEGER BFLDSL, BFLDTL, BFLDDA, BFLDIO

      PARAMETER (BFLDSL = 0,
     *           BFLDTL = 0)

      INTEGER BFLDBX, BFLDBY, BFLDBZ, BFLDA, BFLDNA, BFLDMX
      PARAMETER (BFLDNA = 0,
     *           BFLDMX = 4,
     *           BFLDA  = 4)

**********************
*     I/O format     *
**********************

      CHARACTER*5 BFLDFM
      PARAMETER (BFLDFM = '3I -F')

      COMMON /ZBBFLD/ BFLDBX, BFLDBY, BFLDBZ, BFLDIO
+PATCH,KUMAC.
*CMZ :  1.01/00 18/04/94  16.12.57  by  Phobos (R. Verdier)
+DECK,TOPVIEW  ,T=DATA.
*CMZU:  2.03/00 23/07/97  11.07.04  by  Phobos (R. Verdier)
*-- Author :
MACRO TOPVIEW [1]=' ' [2]=' '
* Draw a labelled plan view of the active elements of the Phobos detector
* Use: in Geant,
* exe topview <name of postscript output file> <label option>
* <label option> = L (UPPERCASE) adds labels for some detector elements.
* 22-Jul-97  for UGCDATA v. 3.7
* 10-Nov-93: R. Verdier
if [1] = ' ' goto SET
  for/file 31 [1]
  metafile 31 -113
* was -111 for PS
  next
SET:
satt * seen 0
satt orig seen 1
satt spa1 seen 1
satt spb1 seen 1
satt spc1 seen 1
satt spd1 seen 1
satt spe1 seen 1
satt spf1 seen 1
satt sph1 seen 1
satt spi1 seen 1
satt spi2 seen 1
satt spj1 seen 1
satt spj2 seen 1
satt spk1 seen 1
satt spk2 seen 1
satt spk3 seen 1
satt spk4 seen 1
satt spl1 seen 1
satt spl3 seen 1
satt spl4 seen 1
satt spm1 seen 1
satt spm2 seen 1
satt spm3 seen 1
satt spm4 seen 1
satt spn2 seen 1
satt spn4 seen 1
satt spo1 seen 1
satt spo2 seen 1
satt spo3 seen 1
satt spo4 seen 1
satt spp1 seen 1
satt spp3 seen 1
satt spp4 seen 1
satt sna1 seen 1
satt snb1 seen 1
satt snc1 seen 1
satt snd1 seen 1
satt sne1 seen 1
satt snf1 seen 1
satt snh1 seen 1
satt sni1 seen 1
satt sni2 seen 1
satt snj1 seen 1
satt snj2 seen 1
satt snk1 seen 1
satt snk2 seen 1
satt snk3 seen 1
satt snk4 seen 1
satt snl1 seen 1
satt snl3 seen 1
satt snl4 seen 1
satt snm1 seen 1
satt snm2 seen 1
satt snm3 seen 1
satt snm4 seen 1
satt snn2 seen 1
satt snn4 seen 1
satt sno1 seen 1
satt sno2 seen 1
satt sno3 seen 1
satt sno4 seen 1
satt snp1 seen 1
satt snp3 seen 1
satt snp4 seen 1
satt moa1 seen 1
satt moa2 seen 1
satt mob1 seen 1
satt moc1 seen 1
satt moc2 seen 1
satt mod1 seen 1
satt moe1 seen 1
satt moe2 seen 1
satt mpa1 seen 1
satt mpb1 seen 1
satt mpc1 seen 1
satt mna1 seen 1
satt mnb1 seen 1
satt mnc1 seen 1
satt vpa1 seen 1
satt vpb1 seen 1
draw outs 90 90 0 10 10 .1 .1
dscale  18.5  1.
*
if [2] <> 'L' goto CLOSE
*
* If you execute call arrow, KUIP quits after the call.
*   exe TOPVIEW#ARROW 3. 4. 5. 6.
HL = 10.0
VL = 19.3
dtext [HL] [VL] 'Plan View of the Phobos Detector' 0.6 0. 6 'CENT'
HL = 0.2
VL = 14.0
dtext [HL] [VL]  'Silicon strip detectors' ! ! ! 'LEFT'
HA = [HL] + 8.6
VA = [VL] + 0.2
vec/del *
vec/cre H(10) r [HA] 11.2 [HA] 11.1 [HA] 11.0 [HA] 10.7 [HA] 10.6
vec/cre V(10) r [VA] 14.8 [VA] 14.3 [VA] 13.8 [VA] 13.0 [VA] 12.2
draw/dvec H(1) V(1) 2
draw/dvec H(3) V(3) 2
draw/dvec H(5) V(5) 2
draw/dvec H(7) V(7) 2
draw/dvec H(9) V(9) 2
VL = 12.
dtext [HL] [VL]  'Silicon pad detectors' ! ! ! 'LEFT'
HA = [HL] + 8.3
VA = [VL] + 0.2
vec/inp H [HA] 10.4  [HA] 10.2  [HA] 10.0  0. 0. 0. 0.
vec/inp V [VA] 11.7  [VA] 11.4  [VA] 11.0  0. 0. 0. 0.
draw/dvec H V 2
draw/dvec H(3) V(3) 2
draw/dvec H(5) V(5) 2
VL = 9.8
dtext 0.1 [VL]  'Beam pipe' ! ! ! 'LEFT'
VL = 7.0
dtext [HL] [VL]  'Multiplicity detectors' ! ! ! 'LEFT'
HA = 4.0
VA = [VL] + 0.6
vec/inp H [HA] [HA]  [HA]  6.2  [HA]  7.0  0. 0. 0. 0.
vec/inp V [VA]  8.6  [VA]  8.6  [VA]  8.6  0. 0. 0. 0.
draw/dvec H V 2
draw/dvec H(3) V(3) 2
draw/dvec H(5) V(5) 2
VL = 5.0
dtext [HL] [VL]  'Vertex detectors' ! ! ! 'LEFT'
HA = [HL] + 6.4
VA = [VL] + 0.2
vec/inp H  [HA]  7.6  9.5  0. 0. 0. 0. 0. 0. 0.
vec/inp V  [VA] [VA]  9.1  0. 0. 0. 0. 0. 0. 0.
draw/dvec H V 3
HL = 6.
VL = 2.
dtext [HL] [VL]  'Magnet' ! ! ! 'LEFT'
HA = [HL] + 3.0
VA = [VL] + 0.2
vec/inp H [HA] 10.0  0. 0. 0. 0. 0. 0. 0. 0.
vec/inp V [VA]  3.0  0. 0. 0. 0. 0. 0. 0. 0.
draw/dvec H V 2
*
CLOSE:
if [1] = ' ' goto END
  close 31
END:
return
*
MACRO ARROW
  Message Arrow called for [1] [2] [3] [4]
*
*sln 1
*null 0. 10. 0. 10. A
*igset chhe 0.18
* igset txfp -130
*itx 2. 8. 'The Phobos Detector'
*arrow 3. 6. 7. 7. 0.15
return
+DECK,INSTIFT,T=DATA.
*CMZU:  2.00/02 22/05/96  10.01.20  by  Phobos (R. Verdier)
*CMZU:  1.00/17 21/04/95  13.28.12  by  Phobos (R. Verdier)
*-- Author :
* INSTIFT.KUMAC: Template for installing a correction file with changes
* to one or more Include files, Fortran decks, and TXT files
* This assumes the delta correction files contain
*   A patchname which is the name of the file preceded by $
*   A deck called INFO containing information about the changes, for
*     pasting into the Version description if updating
*   Other decks containing corrections, with a DECK name that is the
*     type of file they correct: COM, TXT, DOC, FOR, INC, KUMAC, or TXT
* This organization is necessary when more than one type of file is
* to be updated and extracted at once, because CMZ only allows the
* name of the extracted files to be global, as in SET name -F TEXT
*
mess This macro will fail unless the VMS logical name CMZRoot has
mess already been defined as the root directory for the CMZ files used
mess here, for example by  $ def CMZRoot disk$scratch:[user.phobos.]
* The use of logicals is required because CMZ apparently can't handle
* more than 32 characters in the filenames specified for -F and -L.
*
CARFile = CMZRoot:[SIM.PRO.CMZ]PHOSIM.CAR
CMZFile = CMZRoot:[SIM.PRO.CMZ]PHOSIM.CMZ
DOLFile = CMZRoot:[SIM.PRO.LIB]PMC_DBG.OLB
GCDFile = CMZRoot:[SIM.PRO.CMZ]GCDES.CMZ
INCFile = CMZRoot:[SIM.PRO.INC]*.INC
OLBFile = CMZRoot:[SIM.PRO.LIB]PMC.OLB
SRCFile = CMZRoot:[SIM.PRO.SRC]*.FOR
COMFile = CMZRoot:[SIM.PRO.CMD]*.COM
DATFile = CMZRoot:[SIM.PRO.DAT]*.TXT
DOCFile = CMZRoot:[SIM.PRO.DOC]*.DOC
KUMFile = CMZRoot:[SIM.PRO.CMD]*.KUMAC
*
* Specify the basic filename of the delta correction file, w/o .CRA:
CorrFile = D020000UGC
*
* Default directory containing the correction file:
CraDir = CMZRoot:
mess Please specify the directory containing the correction file:
read CraDir
mess Please specify the correction file name:
read CorrFile
CorrFileName = [CraDir][CorrFile].CRA
VersUp = -1
mess Updating CMZ library        [CMZFile]
mess using delta correction file [CorrFileName]
file [CMZFile]
file [GCDFile] -r
sel type
seq //PHOSIM/INC //GCDES/GCDES
cd //PHOSIM
arc [CorrFileName]
dir $[CorrFile]
mess Opening INFO deck... use CTRL/Z to continue installation.
edit $[CorrFile]/INFO
*
Includes = N
Reply = N
mess Are there any corrections to Fortran or Include decks?
read Reply
if [Reply] = 'N' goto TXT
INC:
mess Are there any corrections to Include decks?
Reply = N
read Reply
if [Reply] = 'N' goto FOR
* Correct the include sequences
use -p $[CorrFile]/INC
update $use
Includes = Y
VersUp = 0
* Extract the corrected includes
set [INCFile] -F TEXT
ctot -b
Reply = N
mess Are there any corrections to Fortran decks?
read Reply
if [Reply] = 'N' goto UPSRC
*
FOR:
* Clear the decklist buffer
buf .
* Correct the Fortran decks
use -p $[CorrFile]/FOR
update $use
Reply = Y
mess Do you want to update the level part of the CMZ version?
read Reply
if [Reply] <> 'Y' goto UPSRC
* Update the version number now, to make it current in the extracted
* files.  Copy and paste the change description given above.
vers +
VersUp = 1
*
UPSRC:
* Update the normal library and extract the source files
set [SRCFile] -F
set '$ for/obj=$COMPFILE.OBJ $COMPFILE' -C
set [OLBFile] -L
if [Includes] = 'N' goto CF1
mess You have modified include sequences.  A CMAKE is now necessary
mess to recompile all decks using changed sequences.  As this often
mess fails, you may have to execute CFLIB specifically for changes.
cmake
goto CF2
CF1:
cflib -b
CF2:
* Update the debug library
set '$ for/noopt/debug/obj=$COMPFILE.OBJ $COMPFILE' -C
set [DOLFile] -L
if [Includes] = N goto CF3
cmake
goto CF4
CF3:
cflib -b
CF4:
*
TXT:
* Correct the text files.  Note that they will not be correctly
* marked with the new version number, but will belong to it by
* default.  To avoid this, they would have to be copied out
* individually.
*
COM:
Reply = N
mess Are there any corrections to .COM command files?
read Reply
if [Reply] = 'N' goto DAT
* Correct command files
buf .
use .
use -p $[CorrFile]/COM
update $use
VersUp = 0
* Extract the corrected files
set [COMFile] -F TEXT
ctot -b
*
DAT:
Reply = N
mess Are there any corrections to .TXT data files?
read Reply
if [Reply] = 'N' goto DOC
buf .
use .
use -p $[CorrFile]/TXT
update $use
VersUp = 0
set [DATFile] -F TEXT
ctot -b
*
DOC:
Reply = N
mess Are there any corrections to .DOC document files?
read Reply
if [Reply] = 'N' goto KUMAC
buf .
use .
use -p $[CorrFile]/DOC
update $use
VersUp = 0
set [DOCFile] -F TEXT
ctot -b
*
KUMAC:
Reply = N
mess Are there any corrections to .KUMAC macro files?
read Reply
if [Reply] = 'N' goto UP
buf .
use .
use -p $[CorrFile]/KUMAC
update $use
VersUp = 0
set [KUMFile] -F TEXT
ctot -b
*
UP:
* Update version if not done above
if [VersUp] <> 0 goto MAKECAR
Reply = Y
mess Do you want to update the level part of the CMZ version?
read Reply
if [Reply] <> 'Y' goto MAKECAR
* Update the version number now, to make it current in the extracted
* files.  Copy and paste the change description given above.
vers +
*
MAKECAR:
* Optionally create a .CAR file
Reply = N
mess Do you want to create a new .CAR file?
read Reply
if [Reply] = 'N' goto EXIT
car [CARFile]
*
EXIT:
Reply = Y
mess Do you wish to exit from CMZ?
read Reply
if [Reply] = 'n' goto CONT
exit
*
CONT:
return
+DECK,DRAWSPEC  ,T=DATA.
*CMZU:  2.00/05 21/07/96  11.37.47  by  Phobos (R. Verdier)
*-- Author :
macro DRAWSPEC
* Draw the Phobos spectrometer planes using location parameters from
* GEOSPEC.KUMAC, which in turn gets them from the geometry text file,
* UGCDATA.TXT as modified by GEOMODS.KUMAC.
* See Xmin, Xmax, Zmin, Zmax, and Arms for plot sizes
* 16-Feb-96: Select Theta for new or old configuration
* 09-Jan-96  Execute GEOSPEC to get geometry
* 23-Oct-95  Creation, R. Verdier
Vers = NEW
specgeo = 'phobos_root:[SIM.'//[Vers]//'.CMD]SPECGEO.KUMAC'
vec/del *
close 0
*
* Set size of picture in cm.
Zmin = -10.
Zmax = 80.
Xmin = 0.
Xmax = 90.
* Grid size, cm.
GridSize = 10
* Grid range
GridZmin = -10.
GridZmax = [Zmax]
GridXmin = 0.
GridXmax = [Xmax] - [GridSize]
* Draw both arms of the spectrometer if Arms = 2
Arms = 1
goto I1
* For overlaying magnetic field contours
Zmax = 180.
Zmin = -[Zmax]
Xmin = [Zmin]
Xmax = [Zmax]
Arms = 2
GridXmax = 0.
GridXmin = -120.
GridZmax = 120.
I1:
* Scale plane label size
* LabSize = $sigma(36 / ([Zmax] - [Zmin]))
LabSize = $sigma(24 / ([Zmax] - [Zmin]))
* Configuration key legend positions
vec/crea HKey(3) r $sigma(0.68*[Zmax]) $sigma(0.74*[Zmax]) $sigma(0.76*[Zmax])
VKey = 0.84 * [Xmax]
DVKey = 0.04 * [Xmax]
* Output file name, if any:
Outfile = PHOSPEC.PS
* Output file Fortran unit
out = 31
* Output file format, PS for PostScript, EPS for encapsulated PS
format = PS
* Color options for planes, extensions, grid: should be No for B&W printers
Color = Yes
* Label output with date in LL corner
opt DATE
set DATE 3
* Output file format, -111 for PostScript or -113 for EPS
mft = -111
* Put postscript file text in Times-Roman font.
* The following are John Ryan's choice; 131 (vs. 130) allows the
* switch to Greek, etc., inline
set vfon -51
set lfon -131
set cfon -131
set tfon -131
set gfon -131
* Set text sizes (see FONTTEST.KUMAC for definitions)
* keysize = 0.15
* axisize = 0.20
* comsize = 0.20
* Graphics text font and size
igset txfp -131
gtsize = 0.4
* Print out location vectors for checking if PrintLocs is non-0
PrintLocs = 0
*
* Active plane geometry
* # - Name, Feb-96:
*  1 - A1   2 - B1   3 - C1   4 - D1   5 - E1   6 - F1   7 - H1   8 - I1
*  9 - I2  10 - J1  11 - J2  12 - K1  13 - K2  14 - K3  15 - K4  16 - L1
* 17 - L3  18 - L4  19 - M1  20 - M2  21 - M3  22 - M4  23 - N2  24 - N4
* 25 - O1  26 - O2  27 - O3  28 - O4  29 - P1  30 - P3  31 - P4
* Labs = 'A B C D E F H I1I2J1J2K1K2K3K4L1L3L4M1M2M3M4N2N4O1O2O3O4P1P3P4'
* # - Name, old:
*  1 - A1   2 - B1   3 - C1   4 - D1   5 - E1   6 - F1   7 - H1   8 - I1
*  9 - I2  10 - J1  11 - J2  12 - K1  13 - K3  14 - K4  15 - L1  16 - L2
* 17 - L3  18 - L4  19 - M1  20 - M2  21 - M3  22 - M4  23 - N2  24 - N4
* 25 - O1  26 - O3  27 - O4  28 - P1  29 - P2  30 - P3  31 - P4
* Labs = 'A B C D E F H I1I2J1J2K1K3K4L1L2L3L4M1M2M3M4N2N4O1O3O4P1P2P3P4'
*
* Define the geometry:
*
exec [specgeo]
Radian = 57.29578
*
* SPECGEO creates the following vectors:
* PlCos, PlSin, Theta, ThetOld, ThioCDR, Xc, XDetP, XDP, XDPCDR, XDPEnl,
* XDPPro, Xhw, XhwCDR, XhwiCDR, XhwEnl, XhwPro, XUP, XUPCDR, XUPEnl, XUPPro,
* X1, X2, Yhw, YhwCDR, YhwEnl, YhwPR, YhwPro, Zc, ZDetP, ZDP,
* ZDPCDR, ZDPEnl, ZDPPro, ZhwCDR, ZUP, ZUPCDR, ZUPPro, Z1, Z2
*
vec/crea Xe(2) r
vec/crea Ze(2) r
vec/crea Xee(2) r
vec/crea Zee(2) r
vec/crea EV(2) r -1. 1.
vec/crea VKey(2)
* Label positions relative to the centers of the planes, in local RH
* coordinates (X is along the plane, Z perpendicular to it, Y is up)
vec/crea DXLab(31) r
vec/crea DZLab(31) r
* Feb-96 on:
vec/crea DXLabN(31) r  0.0    0.0    7.0    7.0   0.0    0.0    0.0    0.0 _
                       0.0    0.0    0.0    0.0   0.0    0.0    0.0    0.0 _
                       0.0    0.0    0.0    0.0   0.0    0.0    0.0   -1.0 _
                       0.0    0.0    0.0    2.0   0.0    0.0    0.0
vec/crea DZLabN(31) r -2.5    0.5   -2.5    0.5  -2.5    0.5    0.5   -2.5 _
                      -3.0    0.5    0.5   -2.0   02.0  -3.5   -3.5    1.5 _
                       1.0    1.0   -2.0   -3.5  -3.0   -3.0    0.5    1.0 _
                      -1.5    1.0   -3.0   -3.0   2.5    1.5    1.5
* Previous:
vec/crea DXLabO(31) r  0.0    0.0    7.0    7.0   0.0    0.0    0.0    0.0 _
                       0.0    0.0    0.0    0.0   0.0    0.0    0.0    0.0 _
                       0.0    0.0    0.0    0.0   0.0    0.0    0.0    0.0 _
                       0.0    0.0    2.0    0.0   0.0    0.0    0.0
vec/crea DZLabO(31) r -2.5    0.5   -2.5    0.5  -2.5    0.5    0.5   -2.5 _
                      -3.0    0.5    0.5   -2.0  -3.5   -3.5    1.5    0.5 _
                       1.0    1.0   -2.0   -3.5  -3.0   -3.0    0.5    1.0 _
                      -1.5   -3.0   -3.0    2.5   1.0    1.5    1.5
*
GETINF:
Prop = 'yes'
mess Draw proposed plane configuration?
read Prop
Enl = 'yes'
mess Draw enlarged proposed planes?
read Enl
CDR = 'no'
mess Draw planes defined in CDR?
read CDR
PRec = 'no'
mess Draw planes used in pattern recognition study?
read PRec
mess Overlay grid square in cm (0 for none)?
read GridSize
mess Output postscript file name (n for none)?
read outfile
if $LOWER([outfile]) = 'n' goto A1
* Output postscript format
mess Output file format, PS or EPS?
read format
if $LOWER([format]) = 'ps' goto A2
mft = -113
A1:
outfile = nl:
mft = 0
A2:
mess Plot in color? (Should be no for black and white printing)
read Color
*
for/file [out] [outfile]
meta [out] [mft]
*
set dmod 1
igset txci 1
opt nbox
* Set text size for plane labels
gtsize = 0.3
igset CHHE [gtsize]
* CSIZ seems to control the date and statistics sizes.
set CSIZ 0.3
set htyp 0
* size 100. 100. does nothing
* scale 0.1 0.1  does nothing
null [Zmin] [Zmax] [Xmin] [Xmax]  'AB'
*
PColor = 0
PStyle = 0
Labels = 0
*
* Loop over configurations
do icon = 1, 4
  Config = ' '
  if [icon] = 1 then
    if $LOWER($SUBSTRING([Prop],1,1)) = y then
* Plot proposed configuration
      Config = 'Proposed'
* Set locations of centers, and halfwidths
      sigma PlSin = SIN(Theta / [Radian])
      sigma PlCos = COS(Theta / [Radian])
      sigma Xc = XDetP(1) + XDPPro + XUPPro * PlSin - ZUPPro * PlCos
      sigma Zc = ZDetP(1) + ZDPPro + ZUPPro * PlSin + XUPPro * PlCos
      sigma Xhw = XhwPro
      sigma Yhw = YhwPro
      Labs = 'A B C D E F H I1I2J1J2K1K2K3K4L1L3L4M1M2M3M4N2N4O1O2O3O4P1P3P4'
      sigma DXLab = DXLabN
      sigma DZLab = DZLabN
    endif
  endif
  if [icon] = 2 then
    if $LOWER($SUBSTRING([Enl],1,1)) = y then
* Plot proposed configuration enlarged planes
      Config = 'Enlarged'
      sigma PlSin = SIN(Theta / [Radian])
      sigma PlCos = COS(Theta / [Radian])
      sigma Xc = XDetP(1) + XDPEnl + XUPEnl * PlSin - ZUPPro * PlCos
      sigma Zc = ZDetP(1) + ZDPEnl + ZUPPro * PlSin + XUPEnl * PlCos
      sigma Xhw = XhwEnl
      sigma Yhw = YhwEnl
      Labs = 'A B C D E F H I1I2J1J2K1K2K3K4L1L3L4M1M2M3M4N2N4O1O2O3O4P1P3P4'
      sigma DXLab = DXLabN
      sigma DZLab = DZLabN
    endif
  endif
  if [icon] = 3 then
    if $LOWER($SUBSTRING([PRec],1,1)) = y then
* Plot pattern recognition study configuration
      Config = 'Pat Rec Study'
      sigma PlSin = SIN(ThetOld / [Radian])
      sigma PlCos = COS(ThetOld / [Radian])
      sigma Xc = 0.5 * (X1 + X2)
      sigma Zc = 0.5 * (Z1 + Z2)
      sigma Xhw = 0.5 * SQRT((X2 - X1)**2 + (Z2 - Z1)**2)
      sigma Yhw = YhwPR
      sigma DXLab = DXLabO
      sigma DZLab = DZLabO
      Labs = 'A B C D E F H I1I2J1J2K1K3K4L1L2L3L4M1M2M3M4N2N4O1O3O4P1P2P3P4'
    endif
  endif
  if [icon] = 4 then
    if $LOWER($SUBSTRING([CDR],1,1)) = y then
* Plot CDR configuration
      Config = 'July-95 Std'
      sigma PlSin = SIN(ThetOld / [Radian])
      sigma PlCos = COS(ThetOld / [Radian])
      sigma Xc = XDetP(1) + XDPCDR + XUPCDR * PlSin - ZUPCDR * PlCos
      sigma Zc = ZDetP(1) + ZDPCDR + ZUPCDR * PlSin + XUPCDR * PlCos
      sigma Xhw = XhwCDR
      sigma Yhw = YhwCDR
      sigma DXLab = DXLabO
      sigma DZLab = DZLabO
      Labs = 'A B C D E F H I1I2J1J2K1K3K4L1L2L3L4M1M2M3M4N2N4O1O3O4P1P2P3P4'
    endif
  endif
*
  if [Config] = ' ' goto CFEND
  PStyle = [PStyle] + 1
  mess Plane line style for [Config] (1-5 = solid, - -, ..., -.-, - -)?
  read PStyle
  PColor = [PColor] + 1
  mess Plane color (1-7 = black, red, green, blue, yellow, magenta, cyan)?
  read PColor
  LabColor = 0
  if [Labels] = 0 then
    LabColor = 2
  endif
  mess Plane label color (0-7 = none, black, ...)?
  read LabColor
  if [LabColor] <> 0 then
    Labels = [Labels] + 1
  endif
  if $LOWER($SUBSTRING([Color],1,1)) <> y then
    PColor = 1
    GridColor = 1
    LabColor = $sigma(MIN([LabColor],1))
  endif
  if [PrintLocs] <> 0 then
    mess Configuration [Config]:
    N = 1
    mess Xc([N]..) = $sigma(Xc([N])) $sigma(Xc([N]+1)) $sigma(Xc([N]+2)) _
      $sigma(Xc([N]+3)) $sigma(Xc([N]+4)) $sigma(Xc([N]+5)) _
      $sigma(Xc([N]+6)) $sigma(Xc([N]+7))
    N = [N] + 8
    mess Xc([N]..) = $sigma(Xc([N])) $sigma(Xc([N]+1)) $sigma(Xc([N]+2)) _
      $sigma(Xc([N]+3)) $sigma(Xc([N]+4)) $sigma(Xc([N]+5)) _
      $sigma(Xc([N]+6)) $sigma(Xc([N]+7))
    N = [N] + 8
    mess Xc([N]..) = $sigma(Xc([N])) $sigma(Xc([N]+1)) $sigma(Xc([N]+2)) _
      $sigma(Xc([N]+3)) $sigma(Xc([N]+4)) $sigma(Xc([N]+5)) _
      $sigma(Xc([N]+6)) $sigma(Xc([N]+7))
    N = [N] + 8
    mess Xc([N]..) = $sigma(Xc([N])) $sigma(Xc([N]+1)) $sigma(Xc([N]+2)) _
      $sigma(Xc([N]+3)) $sigma(Xc([N]+4)) $sigma(Xc([N]+5)) _
      $sigma(Xc([N]+6))
    N = 1
    mess Zc([N]..) = $sigma(Zc([N])) $sigma(Zc([N]+1)) $sigma(Zc([N]+2)) _
      $sigma(Zc([N]+3)) $sigma(Zc([N]+4)) $sigma(Zc([N]+5)) _
      $sigma(Zc([N]+6)) $sigma(Zc([N]+7))
    N = [N] + 8
    mess Zc([N]..) = $sigma(Zc([N])) $sigma(Zc([N]+1)) $sigma(Zc([N]+2)) _
      $sigma(Zc([N]+3)) $sigma(Zc([N]+4)) $sigma(Zc([N]+5)) _
      $sigma(Zc([N]+6)) $sigma(Zc([N]+7))
    N = [N] + 8
    mess Zc([N]..) = $sigma(Zc([N])) $sigma(Zc([N]+1)) $sigma(Zc([N]+2)) _
      $sigma(Zc([N]+3)) $sigma(Zc([N]+4)) $sigma(Zc([N]+5)) _
      $sigma(Zc([N]+6)) $sigma(Zc([N]+7))
    N = [N] + 8
    mess Zc([N]..) = $sigma(Zc([N])) $sigma(Zc([N]+1)) $sigma(Zc([N]+2)) _
      $sigma(Zc([N]+3)) $sigma(Zc([N]+4)) $sigma(Zc([N]+5)) _
      $sigma(Zc([N]+6))
    N = 1
    mess Xhw([N]..) = $sigma(Xhw([N])) $sigma(Xhw([N]+1)) $sigma(Xhw([N]+2)) _
      $sigma(Xhw([N]+3)) $sigma(Xhw([N]+4)) $sigma(Xhw([N]+5)) _
      $sigma(Xhw([N]+6)) $sigma(Xhw([N]+7))
    N = [N] + 8
    mess Xhw([N]..) = $sigma(Xhw([N])) $sigma(Xhw([N]+1)) $sigma(Xhw([N]+2)) _
      $sigma(Xhw([N]+3)) $sigma(Xhw([N]+4)) $sigma(Xhw([N]+5)) _
      $sigma(Xhw([N]+6)) $sigma(Xhw([N]+7))
    N = [N] + 8
    mess Xhw([N]..) = $sigma(Xhw([N])) $sigma(Xhw([N]+1)) $sigma(Xhw([N]+2)) _
      $sigma(Xhw([N]+3)) $sigma(Xhw([N]+4)) $sigma(Xhw([N]+5)) _
      $sigma(Xhw([N]+6)) $sigma(Xhw([N]+7))
    N = [N] + 8
    mess Xhw([N]..) = $sigma(Xhw([N])) $sigma(Xhw([N]+1)) $sigma(Xhw([N]+2)) _
      $sigma(Xhw([N]+3)) $sigma(Xhw([N]+4)) $sigma(Xhw([N]+5)) _
      $sigma(Xhw([N]+6))
    N = 1
    mess Yhw([N]..) = $sigma(Yhw([N])) $sigma(Yhw([N]+1)) $sigma(Yhw([N]+2)) _
      $sigma(Yhw([N]+3)) $sigma(Yhw([N]+4)) $sigma(Yhw([N]+5)) _
      $sigma(Yhw([N]+6)) $sigma(Yhw([N]+7))
    N = [N] + 8
    mess Yhw([N]..) = $sigma(Yhw([N])) $sigma(Yhw([N]+1)) $sigma(Yhw([N]+2)) _
      $sigma(Yhw([N]+3)) $sigma(Yhw([N]+4)) $sigma(Yhw([N]+5)) _
      $sigma(Yhw([N]+6)) $sigma(Yhw([N]+7))
    N = [N] + 8
    mess Yhw([N]..) = $sigma(Yhw([N])) $sigma(Yhw([N]+1)) $sigma(Yhw([N]+2)) _
      $sigma(Yhw([N]+3)) $sigma(Yhw([N]+4)) $sigma(Yhw([N]+5)) _
      $sigma(Yhw([N]+6)) $sigma(Yhw([N]+7))
    N = [N] + 8
    mess Yhw([N]..) = $sigma(Yhw([N])) $sigma(Yhw([N]+1)) $sigma(Yhw([N]+2)) _
      $sigma(Yhw([N]+3)) $sigma(Yhw([N]+4)) $sigma(Yhw([N]+5)) _
      $sigma(Yhw([N]+6))
* End of printout
  endif
*
* Draw the planes in plan view, with Z horizontal and X vertical
*
  do ip = 1, 31
    lp = $sigma(2 * [ip] - 1)
    if [ip] <= 7 then
      nc = 1
    else
      nc = 2
    endif
    plane = $substring([Labs], [lp], [nc])
*
* Skip missing planes (indicated by width = 0)
    if $sigma(Xhw([ip])) = 0 goto PZ
    set dmod $sigma([PStyle])
    igset plci [PColor]
    sigma Xe = Xc([ip]) + Xhw([ip]) * PlSin([ip]) * EV
    sigma Ze = Zc([ip]) + Xhw([ip]) * PlCos([ip]) * EV
    pline 2 Ze Xe
    if [Plane] = '?' then
      mess Plane [ip], [Plane]: xe = ($sigma(xe(1)), $sigma(xe(2))), _
        ze = ($sigma(ze(1)), $sigma(ze(2)))
    endif
    if [Arms] > 1 then
* Draw the other arm
      sigma Xe = -Xe
      pline 2 Ze Xe
    endif
* Optionally label the plane
    if [LabColor] = 0 goto PZ
    set dmod 1
    igset txci [LabColor]
    igset CHHE [LabSize]
    sigma VLab = _
      Xc([ip]) + DXLab([ip]) * PlSin([ip]) - DZLab([ip]) * PlCos([ip])
    sigma HLab = _
      Zc([ip]) + DXLab([ip]) * PlCos([ip]) + DZLab([ip]) * PlSin([ip])
    itx HLab(1) VLab(1) [Plane]
* mess Label at $sigma(Hlab(1)), $sigma(VLab(1))
*
PZ:
* End plane loop
*
  enddo
*
* Identify the configuration
  vec/input VKey(1) [VKey]
  vec/input VKey(2) VKey(1)
  set dmod [PStyle]
  pline 2 HKey VKey
  itx HKey(3) VKey(1) [Config]
  VKey = $sigma([VKey] - [DVKey])
CFEND:
* End configuration loop
*
enddo
*
GRID:
* The PAW command "grid" does nothing
GridColor = 1
if $LOWER($SUBSTRING([Color],1,1)) <> y goto GA
  GridColor = 4
  mess Grid color (0-7 = none, black, ...)?
  read GridColor
GA:
set dmod 1
Hleg = [Zmin] + 5
Vleg = [Xmax] - 4
igset plci [GridColor]
GridLeg = [GridSize]
if [GridSize] <> 0 goto GB
  GridLeg = 1
  vec/crea Xsq(3) r  0.  1.  1.
  vec/crea Zsq(3) r  1.  1.  0.
  set dmod 1
  pline 3 Xsq Zsq
GB:
gtsize = 0.4
igset CHHE [gtsize]
igset txci 1
itx [Hleg] [Vleg] 'Phobos spectrometer planes (square = '//[GridLeg]//' cm.)'
Vleg = $sigma(.01 * [Xmax])
Hleg = -5.0
igset CHHE [LabSize]
itx [Hleg] [Vleg] 'I.P.'
Hleg = $sigma([Zmax] / 2 + 1.0)
itx [Hleg] [Vleg] 'Beam line'
*Xe = array(2, [Xmin]&[Xmax])
*Ze = array(2, [Zmin]&[Zmax])
vec/del Xe
vec/del Ze
vec/crea Xe(2) r [GridXmin] [GridXmax]
vec/crea Ze(2) r [GridZmin] [GridZmax]
vec/crea Tx(2) r [GridXmin] [GridXmin]
vec/crea Tz(2) r [GridZmin] [GridZmin]
vec/crea Axis(2) r 2*0.
set dmod 1
pline 2 Ze Axis
pline 2 Axis Xe
if [GridSize] = 0 goto END
set dmod 3
NEXTGRID:
  if $sigma(Tx(1)) > [GridXmax] goto END
  pline 2 Ze Tx
  pline 2 Tz Xe
  sigma Tx = Tx + [GridSize]
  sigma Tz = Tz + [GridSize]
  goto NEXTGRID
END:
return
+DECK,SPECGEO  ,T=DATA.
*CMZU:  2.00/05 21/07/96  11.37.47  by  Phobos (R. Verdier)
*-- Author :
macro SPECGEO
* Define the Phobos spectrometer planes using location parameters cut
* and pasted from the geometry text file, UGCDATA.TXT.  This is also
* intended as a compendium of locations and sizes, for making drawings
* and plots directly in PostScript which Geant will no longer do.
* The following vectors are created:
* PlCos, PlSin, Theta, ThetOld, ThioCDR, Xc, XDetP, XDP, XDPCDR, XDPEnl,
* XDPPro, Xhw, XhwCDR, XhwiCDR, XhwEnl, XhwPro, XUP, XUPCDR, XUPEnl, XUPPro,
* X1, X2, Yhw, YhwCDR, YhwEnl, YhwPR, YhwPro, Zc, ZDetP, ZDP,
* ZDPCDR, ZDPEnl, ZDPPro, ZhwCDR, ZUP, ZUPCDR, ZUPPro, Z1, Z2
* 15-Feb-96  Updated xxxPro and Theta from UGCDATA_15_FEB_1996
* 22-Jan-96  Updated xxxPro from UGCDATA_15-JAN-1996
* 23-Dec-95  Extracted from DRAWSPEC for general use
* 23-Oct-95  Creation, R. Verdier
*
* Active plane geometry
* # - Name
* For Feb-96:
*  1 - A1   2 - B1   3 - C1   4 - D1   5 - E1   6 - F1   7 - H1   8 - I1
*  9 - I2  10 - J1  11 - J2  12 - K1  13 - K2  14 - K3  15 - K4  16 - L1
* 17 - L3  18 - L4  19 - M1  20 - M2  21 - M3  22 - M4  23 - N2  24 - N4
* 25 - O1  26 - O2  27 - O3  28 - O4  29 - P1  30 - P3  31 - P4
* For Jan-96 and previous:
*  1 - A1   2 - B1   3 - C1   4 - D1   5 - E1   6 - F1   7 - H1   8 - I1
*  9 - I2  10 - J1  11 - J2  12 - K1  13 - K3  14 - K4  15 - L1  16 - L2
* 17 - L3  18 - L4  19 - M1  20 - M2  21 - M3  22 - M4  23 - N2  24 - N4
* 25 - O1  26 - O3  27 - O4  28 - P1  29 - P2  30 - P3  31 - P4
*
* Polar angles of the local x-axes in the master system, degrees
* for Feb-96 configuration:
vec/crea Theta(31) r _
  171.00  171.00  156.00  156.00  146.00  146.00   140.00  170.00 _
   99.00  170.00   99.00  200.00  135.00   70.00    70.00  200.00 _
   70.00   70.00  210.00  135.00   60.00   60.00   135.00   60.00 _
  215.00  135.00   55.00   55.00  215.00   55.00    55.00
* for Jan-96 and previous: note that if this is called ThetaOld, PAW will
* not access it correctly later(!)
vec/crea ThetOld(31) r _
  170.97  170.97  156.23  156.23  146.00  146.00   140.00  170.05 _
   99.12  170.05   99.12  200.03   70.00   70.00   200.03  135.00 _
   70.00   70.00  209.98  135.00   60.00   60.00   135.00   60.00 _
  215.00   54.94   54.94  215.00  135.00   54.94    54.94
*
* Locations of planes, from UGCDATA.TXT:
* Location of DETP in OUTS, from GS POS DETP:
vec/crea XDetP(1) r 39.00
vec/crea ZDetP(1) r 29.00
* Locations of DPxx in DETP, from GS POS DPAB, ...:
vec/crea XDP(31) r
vec/crea ZDP(31) r
* Locations of UPxx in DPxx (SPxx is assumed centered in UPxx), from
* GS POS UPA1, ...:
vec/crea XUP(31) r
vec/crea ZUP(31) r
* X- and Y-halfwidths in local coordinates (Y-information is not used in
* the present plan view), from GS VOLU SPA1, ...:
vec/crea Xhw(31) r
vec/crea Yhw(31) r
* Calculated coordinates of plane centers
vec/crea Xc(31) r
vec/crea Zc(31) r
* Calculated sines and cosines of plane angles
vec/crea PlSin(31) r
vec/crea PlCos(31) r
* Set defaults
Radian = 57.29578
sigma PlSin = SIN(Theta / [Radian])
sigma PlCos = COS(Theta / [Radian])
*
* Values for the proposed configuration, taken from
* disk$csc:[TRZUPEK]UGCDATA_15_FEB_1996.TXT
*
* From GS POS DPAB, ...:
vec/crea XDPPro(31) r _
  -30.9448 -30.9448 -26.4830 -26.4830 -22.7416 -22.7416 -20.9186 -10.9725 _
  -22.0409 -10.9725 -22.0409   0.0712  -4.9731 -23.3940 -23.3940   0.0712 _
  -23.3940 -23.3940   7.9227   6.3800 -18.3551 -18.3551   6.3800 -18.3551 _
   18.0017  17.8517 -15.4840 -15.4840  18.0017 -15.4840 -15.4840
vec/crea ZDPPro(31) r _
  -27.8112 -27.8112 -23.9698 -23.9698 -20.7820 -20.7820 -15.6936 -14.6692 _
   -1.5511 -14.6692  -1.5511 -15.6735   5.0902  10.9871  10.9871 -15.6735 _
   10.9871  10.9871 -10.4979  16.4619  19.2891  19.2891  16.4619  19.2891 _
   -5.6542  27.8302  28.0843  28.0843  -5.6542  28.0843  28.0843
* From GS POS UPA1, ...:
vec/crea XUPPro(31) r _
   -5.3016  -6.5386  -6.5799  -7.2519  -7.1076  -7.1076  -5.0638  -2.7239 _
   -0.0289  -3.6298   0.8770  -5.2837   0.0021   2.7905  -5.8604  -3.9918 _
    3.5996  -5.0513  -5.2094   0.0013   6.8427  -8.1113   0.0013  -7.1368 _
   -4.1718  -0.0011   8.1923 -15.1659  -3.1363   9.2580 -14.1002
vec/crea ZUPPro(31) r _
   -0.685    0.685   -0.685    0.685   -0.685    0.685    0.685   -0.685 _
   -0.685    0.685    0.685   -0.685   -0.685   -0.685   -0.685    0.685 _
    0.685    0.685   -0.685   -0.685   -0.685   -0.685    0.685    0.685 _
   -0.685   -0.685   -0.685   -0.685    0.685    0.685    0.685
* From GS VOLU SPA1, ...:
vec/crea XhwPro(31) r _
    6.95     6.95     6.95     6.95     8.52     8.52    10.64     8.44 _
    8.44     8.44     8.44     6.34    12.64     6.34     2.13     8.44 _
    6.34     2.13    12.64    14.74     8.44     6.34    14.74     6.34 _
   18.94    18.94    14.74     8.44    21.04    14.74     8.44
vec/crea YhwPro(31) r _
    1.10     1.10     1.10     1.10     1.50     1.50     1.50     3.00 _
    3.00     3.00     3.00     3.00     3.00     3.00     3.00     3.00 _
    3.00     3.00     3.91     3.91     3.91     3.00     3.91     3.00 _
    3.91     3.91     3.91     3.00     3.91     3.91     3.00
*
* Values for the enlarged acceptance study configuration.  These values
* are taken from disk$csc:[TRZUPEK]UGCDATA_15_FEB_1996_ENLARGED.TXT;9
* which were derived from the proposed values above by increasing the
* lengths of the 1-wings by 2 cm.; the 4-wings and heights have not yet
* been enlarged in the UGCDATA file.
*
vec/crea XDPEnl(31) r _
  -30.9488 -30.9488 -26.4830 -26.4830 -22.7416 -22.7416 -20.9186 -10.9725 _
  -22.0409 -10.9725 -22.0409   0.0712  -4.9731 -23.3940 -23.3940   0.0712 _
  -23.3940 -23.3940   7.9227   6.3800 -18.3551 -18.3551   6.3800 -18.3551 _
   18.0017  17.8517 -15.4840 -15.4840  18.0017 -15.4840 -15.4840
vec/crea ZDPEnl(31) r _
  -27.8112 -27.8112 -23.9698 -23.9698 -20.7820 -20.7820 -15.6936 -14.6692 _
   -1.5511 -14.6692  -1.5511 -15.6735   5.0902  10.9871  10.9871 -15.6735 _
   10.9871  10.9871 -10.4979  16.4619  19.2891  19.2891  16.4619  19.2891 _
   -5.6542  27.8302  28.0843  28.0843  -5.6542  28.0843  28.0843
vec/crea XUPEnl(31) r _
   -3.3016  -4.5386  -4.5799  -5.2519  -5.1076  -5.1076  -3.0638  -0.7239 _
   -0.0289  -1.6298   0.8770  -3.2837   0.0021   2.7905  -5.8605  -1.9918 _
    3.5996  -5.0513  -3.2094   0.0013   6.8427  -8.1113   0.0013  -7.1368 _
   -2.1718  -0.0011   8.1923 -15.1659  -1.1363   9.2580 -14.1002
vec/crea XhwEnl(31) r _
    8.95     8.95     8.95     8.95    10.52    10.52    12.64    10.44 _
    8.44    10.44     8.44     8.34    12.64     6.34     2.13    10.44 _
    6.34     2.13    14.64    14.74     8.44     6.34    14.74     6.34 _
   20.94    18.94    14.74     8.44    23.04    14.74     8.44
*    8.00     8.00     8.95     8.95     9.64    10.48    14.50     8.34 _
*    9.00     8.34     9.00     8.34     6.34     4.16     8.34    12.62 _
*    6.34     4.16    14.53    14.72     8.44     8.34    14.72     8.34 _
*   20.90    10.53    12.62    20.90    18.90    10.53    12.62
vec/crea YhwEnl(31) r _
    1.40     1.40     1.60     1.60     1.80     1.80     1.80     3.60 _
    3.60     3.60     3.60     3.60     3.60     3.60     3.60     3.60 _
    3.60     3.60     4.80     4.80     4.80     3.60     4.80     3.60 _
    4.80     4.80     4.80     3.60     4.80     4.80     3.60
*
* Values for the CDR configuration, as updated in UGCDATA.TXT dated
* July 1995.  The H and J planes were also moved to the sides of their
* cooling frames farther from the IP, and I to the closer side.
* Dimensions for planes that did not exist in the CDR configuration--
* K4, L1, L3, M2, and M4-- are included to simplify SIGMA vector
* calculations
*
vec/crea XDPCDR(31) r _
  -30.9148 -30.9148 -26.3370 -26.3370 -22.7997 -22.7997 -20.9151 -11.0196 _
  -22.0100 -11.0196 -22.0100  -2.1326 -17.7607 -27.5142  -2.1326  -4.8410 _
  -17.7607 -27.5142   6.5169   6.5423  -8.9441 -23.2075   6.5423 -23.2075 _
   15.3970  -3.1040 -21.6974  15.3970  17.8212  -3.1040 -21.6974
vec/crea ZDPCDR(31) r _
  -28.5092 -28.5092 -24.5446 -24.5446 -20.8212 -20.8212 -15.6666 -14.5083 _
   -1.4803 -14.5083  -1.4803 -15.8582  10.8353   7.4982 -15.8582   5.1687 _
   10.8353   7.4982 -10.8557  16.5118  23.3383  15.3343  16.5118  15.3343 _
   -6.1601  34.4736  21.4253  -6.1601  27.7897  34.4736  21.4253
vec/crea XUPCDR(31) r _
   -7.4732  -7.7732  -7.4630  -7.4630  -6.6078  -6.6078  -4.4456  -3.9616 _
    1.2663  -4.8877   2.1924  -7.1381   0.0583   2.3649  -6.9216  -0.0357 _
   -0.0583   2.3649  -8.5490  -0.0781   0.0335   3.8035  -0.0781   3.8035 _
   -8.3833   0.0394   3.3545  -8.1541  -0.0081  -0.0745   3.3545
vec/crea ZUPCDR(31) r _
   -0.615    0.615   -0.615    0.615   -0.615    0.615    0.665   -0.665 _
   -0.665    0.665    0.665   -0.465   -0.465   -0.665    0.465    0.465 _
    0.465    0.665   -0.465   -0.465   -0.465   -0.665    0.465    0.665 _
   -0.665   -0.665   -0.665    0.665    0.665    0.665    0.665
vec/crea XhwCDR(31) r _
    5.50     5.50     6.00     6.00     6.85     6.85     7.85     7.20 _
    7.20     7.20     7.20     6.55     5.00     3.00     6.55    11.70 _
    5.00     3.00    10.90    14.90     5.70     7.00    14.90     7.00 _
   16.95     9.40    10.00    16.95    18.225    9.2861  10.00
* Original XhwCDR numbers with missing planes as 0 are:
*   7.20     7.20     7.20     6.55     5.00     0        0       11.70
*   0        3.00    10.90     0        5.70     0       14.90     7.00
vec/crea YhwCDR(31) r _
    1.00     1.00     1.56     1.56     2.00     2.00     2.00     3.50 _
    3.50     3.50     3.50     4.41     4.41     4.41     4.41     4.41 _
    4.41     4.41     4.41     4.41     4.41     4.41     4.41     4.41 _
    4.41     4.41     4.41     4.41     4.41     4.41     4.41
* Dimensions for trapezoids, only meaningful for 1-, 3-, and 4-wings of
* K through P layers, all included to allow SIGMA vector calculations
* Angles from inner (local z negative) to outer faces, - when phi = 180 deg.
vec/crea ThioCDR(31)  r _
    0        0        0        0        0        0        0      -19.6051 _
   19.6052 -19.6051  19.6052  13.1070 -13.1243   0.0     13.1070   0.0 _
  -13.1243   0.0      7.6412   0.0     -7.6306   0.0      0.0      0.0 _
    5.0383  -5.0077   0.0      5.0383   0.0     -5.0077   0.0
* Halflengths of inner (local Z < 0) faces of DP volumes
vec/crea XhwiCDR(31) r _
   13.33    13.33    14.71    14.71    17.06    17.06    17.79    11.46 _
    8.77    11.46     8.77    13.7230   5.0933   5.3649  13.7230  11.7713 _
    5.0933   5.3649  19.4691  14.9839   5.7536  10.688   14.9839  10.688 _
   25.3289   9.4350  13.3545  25.3289  18.7697   9.4350  13.3545
* Halflengths of outer (local Z > 0) faces of DP volumes
vec/crea XhwoCDR(31) r _
   13.33    13.33    14.71    14.71    17.06    17.06    17.79    12.07 _
    9.37    12.07     9.37    13.4203   4.7902   5.3649  13.4203  11.7713 _
    4.7902   5.3649  19.2947  14.9839   5.5794  10.688   14.9839  10.688 _
   25.1790   9.2861  13.3545  25.1790  18.7697   9.2861  13.3545
* Halfwidths in local Z of the grandparent Dxxx volumes
vec/crea ZhwCDR(31) r _
    0.8      0.8      0.8      0.8      0.8      0.8      0.85     0.85 _
    0.85     0.85     0.85     0.65     0.65     0.85     0.65     0.65 _
    0.65     0.85     0.65     0.65     0.65     0.85     0.65     0.85 _
    0.85     0.85     0.85     0.85     0.85     0.85     0.85
*
* Values for the Pattern Recognition study configuration
* The following endpoints in the master coordinate system are from
* Gunther Roland's note to George Stephans dated 23-June-1995
* PR planes # 1-21 are associated with the 31 proposed planes as follows:
* 1  2  3  4  5  6  7   8   9  10  11  12  13  14  15  16  17  18  19  20  21
* A  B  C  D  E  F  H  J1  J2  K1  L2  K3  L4  M1  N2  M3  N4  O1  P2  O3  O4
* 1  2  3  4  5  6  7  10  11  12  16  13  18  19  23  21  24  25  29  26  27
* 1 2 3 4 5 6 7 0 0 8 9 10 12 0 0 11 0 13 14 0 16 0 15 17 18 20 21 0 19 0 0
vec/crea X1(31) r _
    7.174    8.348   11.509   12.636   15.418   16.842   20.817    0     _
    0       29.38    26.865   36.621   16.676    0        0       42.726 _
    0       11.04    43.930    0       25.382    0       56.35    13.247 _
   49.105   28.845   12.484    0       70.166    0        0
vec/crea Z1(31) r _
    2.345    2.835    5.551    6.043    7.626    8.328   11.392    0     _
    0       12.695   26.874   13.785   37.668    0        0       26.26  _
    0       35.6281  16.324    0       49.095    0       35.363   42.097 _
   16.442   57.726   46.219    0       44.386    0        0
vec/crea X2(31) r _
    5.428    6.597    6.662    7.8      8.168    9.196   10.741    0     _
    0       26.864   12.692   41.107   26.059    0        0       26.207 _
    0       16.657   54.806    0       35.229    0       35.291   25.361 _
   68.499   44.224   28.829    0       44.4      0        0
vec/crea Z2(31) r _
   13.204   13.692   16.522   17.023   18.988   19.687   23.419    0     _
    0       26.861   29.385   26.09    41.108    0        0       42.796 _
    0       37.673   35.174    0       54.79     0       56.441   49.09  _
   44.139   68.505   57.702    0       70.151    0        0
vec/crea YhwPR(31) r _
    1.00     1.00     1.20     1.20     1.50     1.50     1.50     0    _
    0        3.00     3.00     3.00     3.00     0        0        3.00 _
    0        3.00     4.00     0        4.00     0        4.00     4.00 _
    4.00     4.00     4.00     0        4.00     0        0
*
return
+DECK,EXPHO  ,T=DATA.
*CMZU:  2.03/00 23/07/97  11.07.03  by  Phobos (R. Verdier)
*-- Author :
* expho.kumac: Execute cmz management operations interactively:
* Create cmz libraries gcdes.cmz, zcdes.cmz, and phosim.cmz
*   cmz ascii-readable file phosim.car;
* Create cmz library server.cmz from cmz ascii-readable file server.car;
* Extract PMC source, command, data, document, and/or include files
*   from the .cmz libraries.
* Use: in cmz, exe expho and follow prompts.
* This macro leaves you in cmz, to allow further work; type exit to
* leave cmz.
* Note that the .cmz files are platform-independent.
* Problem: because library names are entered with .cmz, there's no good
* way to refer or set default to a particularly library.  We could force
* the user to enter the name without the extension, but that has not been
* a good solution in the past.
* 25-Apr-97  Generalize handling of platform-specific code
* The default CMZ selections for UFILE are "type" and the Phobos label
* for the operating system, "aix", ..., as listed below.
* 01-Dec-96  Creation (Robin Verdier)
*
mess Type y for a positive response to any question, q to exit,
mess or press return to accept the default.  If a file to be created
mess already exists, you should answer 'n' to the 'create new' question.
mess If you are unsure whether a file exists, use ctrl-c or q to exit
mess this macro, execute shell or exit and check, then return or restart.
mess
mess Define operating system for default directory syntax and CMZ
mess selections that can be overridden later.  Choose aix for IBM,
mess hp-ux for HP, irix for SGI, osf1 for DEC Unix, solaris for Sun,
mess vms for DEC OpenVMS on Alpha or VAX, or q to quit.
mess Operating system (aix/hp-ux/irix/osf1/solaris/vms/q) [aix]?
os = aix
read os
if [os] = 'q' then
  goto END
endif
dis = UNIX
if [os] = 'vms' then
  dis = VMS
endif
*
mess Optional pathname to cmz files, such as
mess   /phobos/u/phobos/sim/pro   at BNL,
mess   /scratchp/phobos/sim/pro   on Ralph2.mit.edu
mess   /phobos/sim/pro            on abacus.mit.edu
mess   phobos_root:[sim.new       on irene.mit.edu
mess You can refer to this path as '[pr]' in specifying filenames.
pr = /phobos/u/phobos/sim/pro
if [dis] = 'VMS' then
  pr = 'phobos_root:[sim.new'
endif
read pr
*
cardir = 0
cmzdir = 0
gcdcmzfile = 0
pmccmzfile = 0
srvcmzfile = 0
zcdcmzfile = 0
*
* GEANT common descriptor CMZ library
*
mess Make GEANT common descriptor library gcdes.cmz from gcdes.car (y/n/q)?
MakeGCDCMZ = 'n'
read MakeGCDCMZ
if [MakeGCDCMZ] = 'q' then
  goto END
endif
if [MakeGCDCMZ] = 'y' then
  if [cardir] = 0 then
    cardir = [pr]/cmz
* The following rigamarole is necessary since vms directories end in ]
* whereas unix directories do not.  It would be easier if cmz supported
* null strings.
    if [dis] = 'VMS' then
      cardir = [pr].cmz]
    endif
  endif
  mess Directory for gcdes.car?
  read cardir
  gcdcar = gcdes.car
  mess gcdes .car filename?
  read gcdcar
  if [cmzdir] = 0 then
    cmzdir = [cardir]
  endif
  mess Directory for gcdes .cmz file?
  read cmzdir
  gcdcmzlib = gcdes.cmz
  mess gcdes .cmz filename?
  read gcdcmzlib
  carfile = [cardir]/[gcdcar]
  gcdcmzfile = [cmzdir]/[gcdcmzlib]
  if [dis] = 'VMS' then
    carfile = [cardir][gcdcar]
    gcdcmzfile = [cmzdir][gcdcmzlib]
  endif
  newcmz = 'y'
  mess Create new [gcdcmzlib] (n will overwrite existing one)?
  read newcmz
  release *
  if [newcmz] = 'y' then
    mess Creating Geant common descriptor CMZ library [gcdcmzfile]
    mess from [carfile]
    create [gcdcmzfile]
  else
    mess Replacing Geant common descriptor CMZ library [gcdcmzfile]
    mess from [carfile]
    file [gcdcmzfile]
  endif
  arc [carfile]
  mess
endif
*
* Zebra common descriptor CMZ library
*
mess Make Zebra common descriptor library zcdes.cmz from zcdes.car (y/n/q)?
MakeZCDCMZ = 'n'
read MakeZCDCMZ
if [MakeZCDCMZ] = 'q' then
  goto END
endif
if [MakeZCDCMZ] = 'y' then
  if [cardir] = 0 then
    cardir = [pr]/cmz
    if [dis] = 'VMS' then
      cardir = [pr].cmz]
    endif
  endif
  mess Directory for zcdes.car?
  read cardir
  zcdcar = zcdes.car
  mess zcdes .car filename?
  read zcdcar
  if [cmzdir] = 0 then
    cmzdir = [cardir]
  endif
  mess Directory for zcdes .cmz file?
  read cmzdir
  zcdcmzlib = zcdes.cmz
  mess zcdes .cmz filename ?
  read zcdcmzlib
  carfile = [cardir]/[zcdcar]
  zcdcmzfile = [cmzdir]/[zcdcmzlib]
  if [dis] = 'VMS' then
    carfile = [cardir][zcdcar]
    zcdcmzfile = [cmzdir][zcdcmzlib]
  endif
  newcmz = 'y'
  mess Create new [zcdcmzlib] (n will overwrite existing one)?
  read newcmz
  release *
  if [newcmz] = 'y' then
    mess Creating Geant common descriptor CMZ library [zcdcmzfile]
    mess from [carfile]
    create [zcdcmzfile]
  else
    mess Replacing Geant common descriptor CMZ library [zcdcmzfile]
    mess from [carfile]
    file [zcdcmzfile]
  endif
  arc [carfile]
  mess
endif
*
* PMC CMZ library
*
mess Make PMC library phosim.cmz from phosim.car (y/n/q)?
MakePMCLib = 'n'
read MakePMCLib
if [MakePMCLib] = 'q' then
  goto END
endif
if [MakePMCLib] = 'y' then
  if [cardir] = 0 then
    cardir = [pr]/cmz
    if [dis] = 'VMS' then
      cardir = [pr].cmz]
    endif
  endif
  mess Directory for phosim.car?
  read cardir
  pmccar = phosim.car
  mess phosim .car filename?
  read pmccar
  if [cmzdir] = 0 then
    cmzdir = [cardir]
  endif
  mess Directory for phosim .cmz file?
  read cmzdir
  pmccmzlib = phosim.cmz
  mess phosim .cmz filename?
  read pmccmzlib
  carfile = [cardir]/[pmccar]
  pmccmzfile = [cmzdir]/[pmccmzlib]
  if [dis] = 'VMS' then
    carfile = [cardir][pmccar]
    pmccmzfile = [cmzdir][pmccmzlib]
  endif
  newcmz = 'y'
  mess Create new [pmccmzlib] (n will overwrite existing one)?
  read newcmz
  release *
  if [newcmz] = 'y' then
    mess Creating PMC CMZ library [pmccmzfile]
    mess from [carfile]
    create [pmccmzfile]
  else
    mess Replacing PMC CMZ library [pmccmzfile]
    mess from [carfile]
    file [pmccmzfile]
  endif
  arc [carfile]
  mess
endif
*
* Server CMZ library
*
mess Make Phobos MC server library server.cmz from server.car (y/n/q)?
MakeServerLib = 'n'
read MakeServerLib
if [MakeServerLib] = 'q' then
  goto END
endif
if [MakeServerLib] = 'y' then
  if [cardir] = 0 then
    cardir = [pr]/cmz
    if [dis] = 'VMS' then
      cardir = [pr].cmz]
    endif
  endif
  mess Directory for server.car?
  read cardir
  srvcar = server.car
  mess server .car filename?
  read srvcar
  if [cmzdir] = 0 then
    cmzdir = [cardir]
  endif
  mess Directory for server .cmz file?
  read cmzdir
  srvcmzlib = server.cmz
  mess server .cmz filename?
  read srvcmzlib
  carfile = [cardir]/[srvcar]
  srvcmzfile = [cmzdir]/[srvcmzlib]
  if [dis] = 'VMS' then
    carfile = [cardir][srvcar]
    srvcmzfile = [cmzdir][srvcmzlib]
  endif
  newcmz = 'y'
  mess Create new [srvcmzlib] (n will overwrite existing one)?
  read newcmz
  release *
  if [newcmz] = 'y' then
    mess Creating server CMZ library [srvcmzfile]
    mess from [carfile]
    create [srvcmzfile]
  else
    mess Replacing server CMZ library [srvcmzfile]
    mess from [carfile]
    file [srvcmzfile]
  endif
  arc [carfile]
  mess
endif
*
* Command files
*
mess Extract VMS procedures, UNIX scripts, and/or kumacs (y/n/q)?
ExtractCmds = 'n'
read ExtractCmds
if [ExtractCmds] = 'q' then
  goto END
endif
if [ExtractCmds] = 'y' then
  release *
  if [pmccmzfile] = 0 then
    pmccmzfile = [pr]/cmz/phosim.cmz
    if [dis] = 'VMS' then
      pmccmzfile = [pr].cmz]phosim.cmz
    endif
    mess phosim .cmz library?
    read pmccmzfile
  endif
  file [pmccmzfile] -r
*
  mess Extract VMS command procedures (y/n/q)?
  ExtractVMS = 'n'
  read ExtractVMS
  if [ExtractVMS] = 'q' then
    goto END
  endif
  if [ExtractVMS] = 'y' then
    CmdDir = [pr]/cmd
    if [dis] = 'VMS' then
      CmdDir = [pr].cmd]
    endif
    mess Directory for created files?
    read CmdDir
    mess Command procedures to extract?
    Procs = '*'
    dir com/[Procs]
    read Procs
    mess Extracting VMS command procedure files from [pmccmzfile]
    set [CmdDir]/*.com -f text
    if [dis] = 'VMS' then
      set [CmdDir]*.com -f text
    endif
    ctot com/[Procs]
    mess
  endif
*
  mess Extract Unix scripts (y/n/q)?
  ExtractUnix = 'n'
  read ExtractUnix
  if [ExtractUnix] = 'q' then
    goto END
  endif
  if [ExtractUnix] = 'y' then
    UnixDir = [pr]/unix
    if [dis] = 'VMS' then
      UnixDir = [pr].unix]
    endif
    mess Directory for created files?
    read UnixDir
    mess Unix scripts to extract?
    Scripts = '*'
    dir unix/[Scripts]
    read Scripts
    mess Extracting Unix script files from [pmccmzfile]
    set [UnixDir]/* -f text
    if [dis] = 'VMS' then
      set [UnixDir]*. -f text
    endif
    ctot unix/[Scripts]
    mess
  endif
*
  mess Extract .kumac macro files (y/n/q)?
  ExtractKumacs = 'n'
  read ExtractKumacs
  if [ExtractKumacs] = 'q' then
    goto END
  endif
  if [ExtractKumacs] = 'y' then
    CmdDir = [pr]/cmd
    if [dis] = 'VMS' then
      CmdDir = [pr].cmd]
    endif
    mess Directory for created files?
    read CmdDir
    mess Kumac files to extract?
    Kumacs = '*'
    dir kumac/[Kumacs]
    read Kumacs
    mess Extracting .kumac macro files from [pmccmzfile]
    set [CmdDir]/*.kumac -f text
    if [dis] = 'VMS' then
      set [CmdDir]*.kumac -f text
    endif
    ctot kumac/[Kumacs]
    mess
  endif
*
  mess Extract .awk scripts (y/n/q)?
  ExtractAwks = 'n'
  read ExtractAwks
  if [ExtractAwks] = 'q' then
    goto END
  endif
  if [ExtractAwks] = 'y' then
    AwkDir = [pr]/awk
    if [dis] = 'VMS' then
      AwkDir = [pr].awk]
    endif
    mess Directory for created files?
    read AwkDir
    mess Awk scripts to extract?
    Awks = '*'
    dir awk/[Awks]
    read Awks
    mess Extracting .awk scripts from [pmccmzfile]
    set [AwkDir]/*.awk -f text
    if [dis] = 'VMS' then
      set [AwkDir]*.awk -f text
    endif
    ctot awk/[Awks]
    mess
  endif
endif
*
* Data files
*
mess Extract data files including geometry and field maps (y/n/q)?
ExtractData = 'n'
read ExtractData
if [ExtractData] = 'q' then
  goto END
endif
if [ExtractData] = 'y' then
  release *
  if [pmccmzfile] = 0 then
    pmccmzfile = [pr]/cmz/phosim.cmz
    if [dis] = 'VMS' then
      pmccmzfile = [pr].cmz]phosim.cmz
    endif
    mess phosim .cmz library?
    read pmccmzfile
  endif
  file [pmccmzfile] -r
  DataDir = [pr]/dat
  if [dis] = 'VMS' then
    DataDir = [pr].dat]
  endif
  mess Directory for created files?
  read DataDir
  mess Data files to extract?
* The following works interactively but not in a macro:
*  DataFiles = 'cont?* map?* ugcdat?*'
*  DataFiles = 'CONTDEMO CONTROL CONTROL_B PHOMAG?* UGCDAT?*'
  DataFiles = '*'
  dir dat/[DataFiles]
  read DataFiles
  mess Extracting data files from [pmccmzfile]
  set [DataDir]/*.txt -f text
  if [dis] = 'VMS' then
    set [DataDir]*.txt -f text
  endif
  ctot dat/[DataFiles]
  mess Note that the track file and magnetic field map are not included
  mess in the CMZ library.
  mess
endif
*
* Documents:
*
mess Extract document files (y/n/q)?
ExtractDocs = n
read ExtractDocs
if [ExtractDocs] = 'q' then
  goto END
endif
if [ExtractDocs] = 'y' then
  release *
  if [pmccmzfile] = 0 then
    pmccmzfile = [pr]/cmz/phosim.cmz
    if [dis] = 'VMS' then
      pmccmzfile = [pr].cmz]phosim.cmz
    endif
    mess phosim .cmz library?
    read pmccmzfile
  endif
  file [pmccmzfile] -r
  DocDir = [pr]/doc
  if [dis] = 'VMS' then
    DocDir = [pr].doc]
  endif
  mess Directory for created files?
  read DocDir
  mess Document files to extract?
  DocFiles = '*'
  dir doc/[DocFiles]
  read DocFiles
  mess Extracting document files from [pmccmzfile]
  set [DocDir]/*.doc -f text
  if [dis] = 'VMS' then
    set [DocDir]*.doc -f text
  endif
  ctot doc/[DocFiles]
  mess
endif
*
* Platform-specific files
*
mess Extract platform-specific source files (y/n/q)?
mess This is presently necessary only for IBM, HP, and DEC.
mess Note that source file extractions will fail unless the common
mess descriptor libraries gcdes.cmz and zcdes.cmz exist.
ExtractOss = 'n'
read ExtractOss
if [ExtractOss] = 'q' then
  goto END
endif
if [ExtractOss] = 'y' then
  if [gcdcmzfile] = 0 then
    gcdcmzfile = [pr]/cmz/gcdes.cmz
    if [dis] = 'VMS' then
      gcdcmzfile = [pr].cmz]gcdes.cmz
    endif
    mess GCDES .cmz library?
    read gcdcmzfile
  endif
  if [zcdcmzfile] = 0 then
    zcdcmzfile = [pr]/cmz/zcdes.cmz
    if [dis] = 'VMS' then
      zcdcmzfile = [pr].cmz]zcdes.cmz
    endif
    mess ZCDES .cmz library?
    read zcdcmzfile
  endif
  if [pmccmzfile] = 0 then
    pmccmzfile = [pr]/cmz/phosim.cmz
    if [dis] = 'VMS' then
      pmccmzfile = [pr].cmz]phosim.cmz
    endif
    mess phosim .cmz library?
    read pmccmzfile
  endif
  mess Directory for created files?
  SrcDir = [pr]/src[os]/
  if [dis] = 'VMS' then
    SrcDir = [pr].src[os]]
  endif
  read SrcDir
  seq .
  sel .
  sel type
  sel [os]
  mess The following default CMZ selectors should normally be correct
  mes for the [os] operating system:
  sel
  mess If required, you may now enter an additional selector, or an
  mess existing selector preceded by - to remove it, or 0 when no
  mess more changes are required.
SELECT:
  AddSel = 0
  read AddSel
  if [AddSel] <> 0 then
    sel [AddSel]
    sel
    goto SELECT
  endif
  release *
  mess Please ignore the CMZ QTRACEx override messages
  file [zcdcmzfile] -r
  seq /QCDE
  file [gcdcmzfile] -r
  seq -o /gcdes
  file [pmccmzfile] -r
  seq /inc
  set [SrcDir]*.f -f
  if [dis] = 'VMS' then
    set [SrcDir]*.for -f
  endif
* Select on osf1 to get UFILE
  grep -i OSF1 for/*
  mess The following files are selected:
  buffer
  mess Normally only UFILE on IBM, HP-UX, or OSF1 is platform-specific.
  mess If required, you may now enter an additional filename, or an
  mess existing filename preceded by - to remove it, or 0 when no
  mess more changes are required.
FILE:
  AddFile = 0
  read AddFile
  if [AddFile] <> 0 then
    buf [AddFile]
    buf
    goto FILE
  endif
  mess Extracting platform-specific FORTRAN source files from [pmclib]
  cxtract -b
  mess
endif
*
* Include files
*
mess Extract include files (y/n/q)?
ExtractIncs = n
read ExtractIncs
if [ExtractIncs] = 'q' then
  goto END
endif
if [ExtractIncs] = 'y' then
  release *
  if [pmccmzfile] = 0 then
    pmccmzfile = [pr]/cmz/phosim.cmz
    if [dis] = 'VMS' then
      pmccmzfile = [pr].cmz]phosim.cmz
    endif
    mess phosim .cmz library?
    read pmccmzfile
  endif
  file [pmccmzfile] -r
  IncDir = [pr]/inc
  if [dis] = 'VMS' then
    IncDir = [pr].inc]
  endif
  mess Directory for created files?
  read IncDir
  mess Include files to extract?
  IncFiles = '*'
  dir inc/[IncFiles]
  read IncFiles
  mess Extracting include files from [pmccmzfile]
  set [IncDir]/*.inc -f text
  if [dis] = 'VMS' then
    set [IncDir]*.inc -f text
  endif
  ctot inc/[IncFiles]
  mess
endif
*
*  PMC source files
*
mess Extract PMC source files (y/n/q)?
ExtractPMCSrc = 'n'
read ExtractPMCSrc
if [ExtractPMCSrc] = 'q' then
  goto END
endif
if [ExtractPMCSrc] = 'y' then
  mess Normal or server version (n / s)?
  vers = n
  nss = NOSERV
  read vers
  if [vers] = s then
    nss = SERVER
  endif
  if [gcdcmzfile] = 0 then
    gcdcmzfile = [pr]/cmz/gcdes.cmz
    if [dis] = 'VMS' then
      gcdcmzfile = [pr].cmz]gcdes.cmz
    endif
    mess GCDES .cmz library?
    read gcdcmzfile
  endif
  if [zcdcmzfile] = 0 then
    zcdcmzfile = [pr]/cmz/zcdes.cmz
    if [dis] = 'VMS' then
      zcdcmzfile = [pr].cmz]zcdes.cmz
    endif
    mess ZCDES .cmz library?
    read zcdcmzfile
  endif
  if [pmccmzfile] = 0 then
    pmccmzfile = [pr]/cmz/phosim.cmz
    if [dis] = 'VMS' then
      pmccmzfile = [pr].cmz]phosim.cmz
    endif
    mess phosim .cmz library?
    read pmccmzfile
  endif
  mess Directory for created files?
  PMCSrcDir = [pr]/srcgen
  if [dis] = 'VMS' then
    PMCSrcDir = [pr].srcgen]
  endif
  read PMCSrcDir
  mess Extracting PMC source files from [pmccmzfile]
  mess with CMZ selection [dis]
  mess You should edit this kumac if you wish to select EUCARD, IBM,
  mess NONTUP, or SUN.  None of these is necessary.
  release *
  seq .
  sel .
  sel type
  sel [dis]
  sel [nss]
  mess Please ignore the CMZ QTRACEx override messages
  file [zcdcmzfile] -r
  seq /QCDE
  file [gcdcmzfile] -r
  seq -o /gcdes
  file [pmccmzfile] -r
  seq /inc
  set [PMCSrcDir]/*.f -f
  if [dis] = 'VMS' then
    set [PMCSrcDir]*.for -f
  endif
  mess PMC source files to extract?
  PMCSrcFiles = '*'
  dir for/[PMCSrcFiles]
  read PMCSrcFiles
  cxtract for/[PMCSrcFiles]
  mess Modified CERN source files to extract?
  ModCernSrcFiles = '*'
  dir modcern/[ModCernSrcFiles]
  read ModCernSrcFiles
  cxtract modcern/[ModCERNSrcFiles]
  mess
endif
*
* Server Fortran source decks:
*
mess Extract MC server source files (y/n/q)?
ExtractSrvSrc = 'n'
read ExtractSrvSrc
if [ExtractSrvSrc] = 'q' then
  goto END
endif
if [ExtractSrvSrc] = 'y' then
  if [gcdcmzfile] = 0 then
    gcdcmzfile = [pr]/cmz/gcdes.cmz
    if [dis] = 'VMS' then
      gcdcmzfile = [pr].cmz]gcdes.cmz
    endif
    mess GCDES .cmz library?
    read gcdcmzfile
  endif
  if [zcdcmzfile] = 0 then
    zcdcmzfile = [pr]/cmz/zcdes.cmz
    if [dis] = 'VMS' then
      zcdcmzfile = [pr].cmz]zcdes.cmz
    endif
    mess ZCDES .cmz library?
    read zcdcmzfile
  endif
  if [srvcmzfile] = 0 then
    srvcmzfile = [pr]/cmz/server.cmz
    if [dis] = 'VMS' then
      srvcmzfile = [pr].cmz]server.cmz
    endif
    mess server .cmz library?
    read srvcmzfile
  endif
  mess Directory for created files?
  SrvSrcDir = [pr]/srcsrv
  if [dis] = 'VMS' then
    SrvSrcDir = [pr].srcsrv]
  endif
  read SrvSrcDir
  mess Extracting MC server source files from [srvcmzfile]
  mess with CMZ selection [dis].
  mess You should edit this kumac if you wish to select SHELL or UXXL.
  mess SHELL is obsolete, UXXL is specific to the Sun OS, neither is
  mess necessary.
  release *
  seq .
  sel .
  sel type
  sel [dis]
  file [zcdcmzfile] -r
  seq /QCDE
  file [gcdcmzfile] -r
  seq -o /gcdes
  file [srvcmzfile] -r
  seq /inc
  set [SrvSrcDir]/*.f -f
  if [dis] = 'VMS' then
    set [SrvSrcDir]*.for -f
  endif
  mess Server source files to extract?
  SrvSrcFiles = '*'
  dir for/[SrvSrcFiles]
  read SrvSrcFiles
  cxtract for/[SrvSrcFiles]
endif
*
mess Extract server versions of PMC files (unnecessary unless you will
mess compile and link the server version)?
ExtractSrvPMC = 'n'
read ExtractSrvPMC
if [ExtractSrvPMC] = 'y' then
  mess CAUTION: These files should not be extracted into the same directory
  mess as the normal non-server versions, or they will overwrite them.
  mess Directory for created files?
  SrvPMCDir = [pr]/srcsrv
  if [dis] = 'VMS' then
    SrvPMCDir = [pr].srcsrv]
  endif
  read SrvPMCDir
* The following should be checked in stoper, ugserv, and ugcons
  mess Selector key that indicates server versions in the PMC library?
  mess (The default selector, 'noserv', is correct at present.)
  mess To skip this extraction, reply '0'
  SrvSel = 'noserv'
  read SrvSel
  if [SrvSel] <> '0' then
    mess Extracting server versions of PMC source files from [pmclib]
    mess with CMZ selection [dis].
    mess You must edit this kumac if you wish to select EUCARD or SUN.
    if [gcdcmzfile] = 0 then
      gcdcmzfile = [pr]/cmz/gcdes.cmz
      if [dis] = 'VMS' then
        gcdcmzfile = [pr].cmz]gcdes.cmz
      endif
      mess GCDES .cmz library?
      read gcdcmzfile
    endif
    if [zcdcmzfile] = 0 then
      zcdcmzfile = [pr]/cmz/zcdes.cmz
      if [dis] = 'VMS' then
        zcdcmzfile = [pr].cmz]zcdes.cmz
      endif
      mess ZCDES .cmz library?
      read zcdcmzfile
    endif
    if [pmccmzfile] = 0 then
      pmccmzfile = [pr]/cmz/phosim.cmz
      if [dis] = 'VMS' then
        pmccmzfile = [pr].cmz]phosim.cmz
      endif
      mess phosim .cmz library?
      read pmccmzfile
    endif
    release *
    seq .
    sel .
    sel type
    sel [dis]
    sel SERVER
    mess Please ignore the CMZ QTRACEx override messages
    file [zcdcmzfile] -r
    seq /QCDE
    file [gcdcmzfile] -r
    seq -o /gcdes
    file [pmccmzfile] -r
    seq /inc
    set [SrvPMCDir]/*.f -f
    if [dis] = 'VMS' then
      set [SrvPMCDir]*.for -f
    endif
    grep -i [SrvSel] for/*
    buffer
    cxtract -b
    mess
  endif
endif
*
END:
+PATCH,MODCERN.
*CMZ :  1.01/00 18/04/94  16.12.57  by  Phobos (R. Verdier)
+DECK,GRUN
*CMZU:  2.02/01 23/04/97  11.21.53  by  K.Wozniak
*CMZU:  2.00/00 28/02/96  12.41.37  by  Phobos (R. Verdier)
* 07-Aug-94  R. Verdier  Disable timeout if 0 cpu limit (="infinite")
*CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
*-- Author :
      SUBROUTINE GRUN
*.
*.    ******************************************************************
*.    *                                                                *
*.    *       Steering routine to process all the events               *
*.    *                                                                *
*.    *    ==>Called by : <USER>, main program                         *
*.    *       Author    R.Brun  *********                              *
*.    *                                                                *
*.    ******************************************************************
*.
+SEQ,GCBANK
+SEQ,GCFLAG
+SEQ,GCUNIT
+SEQ,GCTIME
+SEQ,TLIMIT.
* Additions for disabling timeout:
      COMMON /SLATE/ SYSTIME
      integer SYSTIME, TIMEOUT /0/
* End of timeout additions
      SAVE IFIRST
      DATA IFIRST/0/
*.
*.    ------------------------------------------------------------------
*.
*             Keep starting time
*
      IF(IFIRST.EQ.0)THEN
         IFIRST=1
         CALL TIMEL(TIMINT)
* Set flag to disable timeout:
c VMS batch queues with INFINITE CMZ limit return 0 in SYS$GETJPI.
c TIMEL sets this to 9999, which is insufficient.
c The awkward solution here is to bypass the timeout if the sum of
c time used and time left is 9999.
         if (abs(SYSTIME * 0.01 + TIMINT - 9999.0) .lt. 0.01)
     &     TIMEOUT = 1
* End of timeout additions
      ENDIF
*
   10 IF(IEVENT.LT.NEVENT) THEN
         IEVENT=IEVENT+1
*
*             Initialises event partition
*
         CALL GTRIGI
*
*             Process one event (trigger)
*
         CALL GTRIG
*
*             Clear event partition
*
         CALL GTRIGC
*
         IF(IEORUN.EQ.0) THEN
*
*             Check time left
*
            IF(ITIME.LE.0)GO TO 10
            IF(MOD(IEVENT,ITIME).NE.0)GO TO 10
            CALL TIMEL(TIMNOW)
            IF(TIMNOW.GT.TIMEND)GO TO 10
c Bypass timeout if flag is set:
            if (TIMEOUT .eq. 0  .and.  NTLIM .gt. 0) then
               WRITE(CHMAIL,10000)TIMEND
               CALL GMAIL(0,2)
               IEORUN = 1
            else
c Write once-only timeout bypass notice
               if (TIMEOUT .gt. 0) then
                  TIMEOUT = -TIMEOUT
                  write (CHMAIL,10001) SYSTIME * 0.01
                  CALL GMAIL(0,1)
               endif
               go to 10
            endif
         ENDIF
      ENDIF
*
10000 FORMAT(5X,'***** THE JOB STOPS NOW BECAUSE THE TIME LEFT IS LESS',
     +' THAN     ',F8.3,' SECONDS *****')
10001 format (' GRUN: Bypassing normal job timeout at', f8.1,
     & ' CPU seconds remaining.')
      END
+DECK, ZABEND.
*CMZU:  2.00/00 28/02/96  12.41.37  by  Phobos (R. Verdier)
* 1-Mar-96  R.V. Modified from ZEBRA.CAR to avoid dump at abend
*CMZ :          03/03/96  00.09.01  by  Phobos (R. Verdier)
*-- Author :
      SUBROUTINE ZABEND

C-    DEFAULT FOR THE USER ROUTINE TO HANDLE ABNORMAL PROGRAM END

+CDE, ZSTATE, ZUNIT.

+CDE, GCBANK.
+SELF, ZABENDPM.
c*    *CALL ZPOSTM ('TCWM.')
      call DZSTOR (' GCBANK', IXSTOR)
+SELF.
      IF (NQPHAS.GT.0)             GO TO 12
+SELF, QTOABEND.
      CALL ABEND
+SELF.
   12 NQPHAS = -2
      CALL ZEND
      RETURN
      END
+SEQ, QCARDL.      ==================================================
+DECK, ZEND.
*CMZU:  2.00/00 28/02/96  12.41.37  by  Phobos (R. Verdier)
* 1-Mar-96  Changed from ZEBRA.CAR to force abend on NOERR > 0 (RV)
*CMZ :          03/03/96  00.09.23  by  Phobos (R. Verdier)
*-- Author :
      SUBROUTINE ZEND

C-    DEFAULT FOR THE USER ROUTINE FOR PROGRAM STOP

+CDE, ZSTATE, ZUNIT.
C--------------    END CDE                             --------------


      CALL ZPHASE (-1)
      CALL MZEND

      IF (NQERR.EQ.0)              GO TO 99
c* +SELF, QTOABEND.
      CALL ABEND
c* +SELF.
   99 CONTINUE
      STOP
      END
+SEQ, QCARDL.      ==================================================
+DECK,GXCONT.
*CMZU:  2.00/00 28/02/96  12.41.37  by  Phobos (R. Verdier)
* 1-Mar-96 Change TRIG handling to allow external batch loop control (RV)
*CMZ :  3.21/02 07/07/94  19.47.38  by  S.Giani
*-- Author :
      SUBROUTINE GXCONT
C.
C.    ******************************************************************
C.    *                                                                *
C.    *      General control commands                                  *
C.    *                                                                *
C.    *       Authors:   R.Brun      **********                        *
C.    *                  P.Zanarini  **********                        *
C.    *                  S.Giani     **********                        *
C.    *                                                                *
C.    ******************************************************************
C.
+SEQ,GCBANK
+SEQ,PAWC
+SEQ,GCTMED
+SEQ,GCUNIT
+SEQ,GCFLAG
+SEQ,GCKINE
+SEQ,GCPHYS
+SEQ,GCMULO
+SEQ,GCLIST
+SEQ,GCSTAK
+SEQ,GCDRAW
      CHARACTER*20 CHNAME
      CHARACTER*4  CHMECA,CHDEB,CHSET,CHDET,CHMECS(20)
      CHARACTER*32 CHPATL
      CHARACTER*32 CHPAR,NAMATE,NAPAR
      CHARACTER*32 UBUF,WMAT,AA,ZZ
C.
C.    ------------------------------------------------------------------
C.
      IWKSTY = IGIWTY(1)
      CALL KUPATL(CHPATL,NPAR)
*
      IF (CHPATL.EQ.'KINE') THEN
         CALL KUGETI(IKINE)
         NPK=NPAR-1
         DO 10 I=1,NPK
            CALL KUGETR(PKINE(I))
   10    CONTINUE
*
      ELSEIF (CHPATL.EQ.'SORD') THEN
         CALL KUGETI(ISTORD)
*
*     ELSEIF (CHPATL.EQ.'PATR') THEN
*        CALL KUGETI(NJTMAX)
*        CALL KUGETI(NJTMIN)
*        WRITE(CHMAIL,'('' *** GXCONT: Parallel tracking disabled, '',
*    +                  ''see documentation'')')
*        CALL GMAIL(1,1)
*
      ELSEIF (CHPATL.EQ.'RUNG') THEN
         CALL KUGETI(IDRUN)
         CALL KUGETI(IDEVT)
*
      ELSEIF (CHPATL.EQ.'GTIME') THEN
         CALL KUGETR(TIMINT)
         CALL KUGETR(TIMEND)
         CALL KUGETI(ITIME)
*
      ELSEIF (CHPATL.EQ.'TRACK') THEN
         IF(JXYZ.NE.0)CALL MZDROP(IXDIV,JXYZ,' ')
         IF(JHITS.NE.0)CALL MZDROP(IXDIV,JHITS,' ')
         CALL MZGARB(IXDIV,0)
         CALL GTREVE
*
      ELSEIF (CHPATL.EQ.'TRIGGER') THEN
         CALL KUGETI(N)

         IF( NEVENT .EQ. 10000000 .OR. NEVENT .NE. IEVENT) THEN
c Following changed from original NEVENT = N for Phobos, 1-Mar-96,
c to use the number of events set in UGINIT in batch mode:
           IF (.NOT.BATCH) NEVENT = N
         ELSE
            NEVENT = NEVENT + N
         ENDIF

 20      CONTINUE

         IF( IEVENT .LT. NEVENT ) THEN

            CALL GTRIGC
            IEVENT=IEVENT+1
            CALL GTRIGI
            CALL GTRIG
            CALL GRNDMQ(IQ(JRUNG+19),IQ(JRUNG+20),0,'G')
            IQ(JRUNG+29)=IEVENT

            GOTO 20

         ENDIF

*         DO 20 I=1,N
*            CALL GTRIGC
*            IEVENT=IEVENT+1
*            CALL GTRIGI
*            CALL GTRIG
*            CALL GRNDMQ(IQ(JRUNG+19),IQ(JRUNG+20),0,'G')
*            IQ(JRUNG+29)=IEVENT
*   20    CONTINUE
*
      ELSEIF (CHPATL.EQ.'SWITCH') THEN
         CALL KUGETI(I)
         IF(I.GE.1.AND.I.LE.10) THEN
            IF(NPAR.LT.2)THEN
               WRITE(CHMAIL,'('' ISWIT('',I2,'')= '',I3)')I,ISWIT(I)
               CALL GMAIL(0,0)
            ENDIF
            CALL KUGETI(ISWIT(I))
         ENDIF
*
      ELSEIF (CHPATL.EQ.'PRINT') THEN
         CALL KUGETC(CHNAME,NCH)
         N=0
         CALL KUGETI(N)
         CALL GPRINT(CHNAME,N)
*
      ELSEIF (CHPATL.EQ.'DEBUG') THEN
         CALL KUGETC(CHDEB,NCH)
         IF(CHDEB.EQ.'ON')THEN
            IDEBUG=1
            IDEMIN=1
            IDEMAX=1000000
            ITIME=1
         ELSE
            IDEBUG=0
            IDEMIN=0
            IDEMAX=0
         ENDIF
*
      ELSEIF (CHPATL.EQ.'OUTPUT_LP') THEN
         CALL KUGETI(LOUT)
*
      ELSEIF (CHPATL.EQ.'PHITS') THEN
         CALL KUGETC(CHSET,NCH)
         CALL KUGETC(CHDET,NCH)
         CALL KUGETI(NUMHIT)
         IPKHIT=NUMHIT
         CALL GPHITS(CHSET,CHDET)
         IPKHIT=0
*
      ELSEIF (CHPATL.EQ.'PDIGI') THEN
         CALL KUGETC(CHSET,NCH)
         CALL KUGETC(CHDET,NCH)
         CALL GPDIGI(CHSET,CHDET)
*
      ELSEIF (CHPATL.EQ.'MZLOGL') THEN
         IXSTOR=0
         LEVEL=0
         CALL KUGETI(LEVEL)
         CALL MZLOGL(IXSTOR,LEVEL)
*
      ELSEIF (CHPATL.EQ.'PMATE') THEN
         CALL KUGETI(NUMB)
         IF(IWKSTY.GE.1.AND.IWKSTY.LE.10) THEN
            CALL GPMATX(NUMB)
         ELSE
            CALL GPMATE(NUMB)
         ENDIF
*
      ELSEIF (CHPATL.EQ.'SMATE') THEN
         CALL KUGETI(IMAT)
         CALL KUGETC(NAMATE,NCH)
         CALL KUGETR(A)
         CALL KUGETR(Z)
         CALL KUGETR(DENS)
         CALL KUGETR(RADL)
         CALL KUGETR(ABSL)
         CALL KUGETV(UBUF,LLOW,LHIGH)
         CALL KUGETI(NWBUF)
         CALL GSMATE(IMAT,NAMATE,A,Z,DENS,RADL,ABSL,QQ(LLOW),NWBUF)
*
      ELSEIF (CHPATL.EQ.'SMIXT') THEN
         CALL KUGETI(IMAT)
         CALL KUGETC(NAMATE,NCH)
         CALL KUGETV(AA,LLOW,LHIGH)
         CALL KUGETV(ZZ,LLO1,LHIG1)
         CALL KUGETR(DENS)
         CALL KUGETI(NLMAT)
         CALL KUGETV(WMAT,LLO2,LHIG2)
         CALL GSMIXT(IMAT,NAMATE,QQ(LLOW),QQ(LLO1),DENS,NLMAT,QQ(LLO2))
*
      ELSEIF (CHPATL.EQ.'PRMAT') THEN
         CALL KUGETI(IMATE)
         CALL KUGETI(IPART)
         CALL KUGETC(CHMECA,NCH)
         CALL GPRMAT(IMATE,IPART,CHMECA,NEKBIN,ELOW)
*
      ELSEIF (CHPATL.EQ.'DRMAT') THEN
         CALL KUGETI(IMATE)
         CALL KUGETI(IPART)
         IF(NPAR.GT.2) THEN
            NMEC = NPAR-2
            DO 11 KMEC=1,NMEC
               CALL KUGETC(CHMECS(KMEC),NCH)
  11        CONTINUE
         ELSE
            NMEC = 1
            CHMECS(1)='ALL'
         ENDIF
         CALL GDRMAT(IMATE,IPART,CHMECS,NMEC)
*
      ELSEIF (CHPATL.EQ.'PLMAT') THEN
         CALL KUGETI(IMATE)
         CALL KUGETI(IPART)
         CALL KUGETC(CHMECA,NCH)
         IDM=0
         CALL KUGETI(IDM)
         CALL GPLMAT(IMATE,IPART,CHMECA,NEKBIN,ELOW,IDM)
*
      ELSEIF (CHPATL.EQ.'SPART') THEN
         CALL KUGETI(IPART)
         CALL KUGETC(NAPAR,NCH)
         CALL KUGETI(ITRTYP)
         CALL KUGETR(AMASS)
         CALL KUGETR(CHARGE)
         CALL KUGETR(TLIFE)
         CALL KUGETV(UBUF,LLOW,LHIGH)
         CALL KUGETI(NWBUF)
         CALL KUGETR(BRATIO)
         CALL KUGETI(MODE)
         CALL GSPART(IPART,NAPAR,ITRTYP,AMASS,CHARGE,TLIFE,
     +               QQ(LLOW),NWBUF)
         CALL GSDK(IPART,BRATIO,MODE)
*
      ELSEIF (CHPATL.EQ.'PPART') THEN
         CALL KUGETI(NUMB)
         IF(IWKSTY.GE.1.AND.IWKSTY.LE.10) THEN
            CALL GPPARX(NUMB)
         ELSE
            CALL GPPART(NUMB)
         ENDIF
*
      ELSEIF (CHPATL.EQ.'PRKINE') THEN
         CALL KUGETI(NUMB)
         IF(IWKSTY.GE.1.AND.IWKSTY.LE.10) THEN
            CALL GPKINX(NUMB)
         ELSE
            CALL GPKINE(NUMB)
         ENDIF
*
      ELSEIF (CHPATL.EQ.'STPAR') THEN
         CALL KUGETI(ITMED)
         CALL KUGETC(CHPAR,NCH)
         CALL KUGETR(PARVAL)
         CALL GSTPAR(ITMED,CHPAR,PARVAL)
*
      ELSEIF (CHPATL.EQ.'RNDM') THEN
         IF (NPAR.EQ.0) THEN
            CALL GRNDMQ(IS1,IS2,0,'G')
            WRITE(CHMAIL, 10000) IS1, IS2
10000 FORMAT('  RANDOM NUMBER = ',2I12)
            CALL GMAIL(0,0)
         ELSEIF (NPAR.EQ.2) THEN
            CALL KUGETI(NRNDM(1))
            CALL KUGETI(NRNDM(2))
            CALL GRNDMQ(NRNDM(1),NRNDM(2),0,'S')
         ELSE
            WRITE(CHMAIL, 10100)
            CALL GMAIL(0,0)
10100 FORMAT(' Please give 2 seeds to initialize the random ',
     +       'number generator')
         ENDIF
      ENDIF
*
   30 END
+PATCH,$VERSION.
*CMZ :  1.01/01 18/04/94  16.12.58  by  Phobos (R. Verdier)
+DECK,V2_03.
*CMZ :  2.03/01 04/08/97  17.05.01  by  Phobos (R. Verdier)
*CMZ :  2.03/00 04/08/97  17.02.10  by  Phobos (R. Verdier)
*-- Author :    Phobos (R. Verdier)   04/08/97
*
*::>          VERSION  2.03/01   04/08/97 17.05.01
* PH_INIT.FOR: give translated filename to HROPEN if available (RV)
* UFILE.FOR: modified to use environment variables, if defined, for
*   filenames (DMcL)
* INSTALL.DOC: update documentation to include environment variables
*   and server version status. (RV)
* RMC: modified to use either environment variables or symbolic links (RV)
* RMCDEFS: modified to use either environment variables or symbolic links (RV)
*
*::>          VERSION  2.03/00   04/08/97 17.02.10
* GUFLD.FOR: modified code to enable magnetic field maps with
*            large number of submaps;
*            additional parameter in the map  PHOIND  informs
*            that a map can be moved (or can not be moved)
*            using  MOFF  parameter (KW)
* PH_GEOM.FOR: added code to test consistency of pixel and planes sizes
*              with number of divisions (KW)
* UGCDEF.FOR: added code to handle new command GS DVN (KW)
* UGCSET.FOR: added initialization for GS DVN (KW)
* UGINIT.FOR: increased PMC version number to  2.03 (KW)
* $RHSIL.INC: added tables for division numbers of silicon detectors (KW)
* RMC.COM: Default magnetic field file -> PHOMAGV108.TXT (RV)
* RMCDEFS.COM: Default magnetic field file -> PHOMAGV108.TXT
* EXPHO.KUMAC: .TXT -> .DOC for documents;
*   correct Ralph2 default directory (RV)
* TOPVIEW.KUMAC: Remove volumes not in UGCDATA v. 3.7 (RV)
* LINKMC. Extract and load gufld.o and ezylink.o for DEC Unix;
*   use CERN 97a libraries (RV)
* LMCDEFS.: use CERN 97a libraries (RV)
* RMC. and RMCDEFS.: Default magnetic field file -> PHOMAGV108.TXT;
*   default geometry file -> UGCDATA_V37.TXT (RV)
* INSTALL.DOC: Unix installation instructions added (RV)
*
+DECK,V2_02.
*CMZ :  2.02/01 16/07/97  15.01.20  by  Phobos (R. Verdier)
*CMZ :  2.02/00 30/03/97  10.02.19  by  Phobos (R. Verdier)
*-- Author :    Phobos (R. Verdier)   30/03/97
*
*::>          VERSION  2.02/01   16/07/97 15.01.20
* COMPHO.: Add flags -K +ppu for hp-ux (RV)
* CONTROL.TXT: Add TLIM (see GRUN)
* EXPHO.KUMAC: Change selectors to aix, hp-ux, osf1, ... (RV)
* GRUN.FOR: Control time limit response by new variable TLIM (KW)
* INSTALL.DOC: Unix installation instructions added (RV)
* LINKMC.COM: Provide for GXINT as main to create PostScript output (AT);
*   add load for hp-ux using ezylink.o (RV)
* LMCDEFS.COM: Provide for GXINT as main to create PostScript output (AT);
*   add pmcsrc (RV)
* MC*.COM: Version NEW (RV)
* RHSIL.INC: Increased NSLPM to 500 (KW)
* RMC.COM: Version NEW; geometry file V3.7 (RV)
* RMCDEFS.COM: (see RMC)
* PH_GEOM.FOR: Correct error when no rotation matrices are defined (KW)
* PH_OUT.FOR: Expand write fieldwidths, add IOSTAT (KW)
* SMC.COM: Version NEW (RV)
* TLIMIT.INC: New common (KW)
* UFILE.FOR: Change selectors to AIX, HP-UX, OSF1, and VMS (RV)
* UGCDATA_V36.TXT: Correct pad sizes (KW)
* UGCDATA_V37.TXT: Many corrections including Al plate density (AT)
*   note that version 3.6 should NOT be used.
* UGINIT.FOR: Read TLIMIT (KW)
*
*::>          VERSION  2.02/00   30/03/97 10.02.19
* BANG.FOR: STOP -> call STOPER (KW)
* EZYLINK.FOR: removed unused references (RV)
* PH_GEOM.FOR: New subroutine to enter geometry data into AOU file (KW)
* PH_HIT.FOR: removed pixelization code and UHITSOUT call (KW)
* PH_OUT.FOR: replaced AOU plane names by indices; removed UHITSOUT call (KW)
* UFILE.FOR: Status new -> unknown for OSF1; add error reporting (RV)
* UGCDEF.FOR: compensate for overflows in reading UGCDATA (KW)
* UGCSET.FOR: changed GS SET SLP and IUDET; added GS SET PADS (KW)
* UGINIT.FOR: vers 2.02: removed unused commands SILD and SILP (KW)
* UHITSOUT.FOR: REMOVED ALL CODE (KW)
* RMC.INC: Update default UGCDATA filename (RV)
* RHSIL.INC:  removed SPL, added PADS data (KW)
* UJKBUF.INC: added comment (KW)
* COMPHO.: add ph_geom and stoper, remove ugeom (RV)
* LINKMC.: reorder for normal (non-server) version (RV)
* LMCDEFS.: reorder for normal (non-server) version (RV)
* RMC.: Update default FLDASC and UGCDATA filenames (RV)
* RMCDEFS.: Update default FLDASC and UGCDATA filenames (RV)
*
+DECK,V2_01.
*CMZ :  2.01/02 14/03/97  17.11.39  by  Phobos (R. Verdier)
*CMZ :  2.01/01 12/03/97  22.31.24  by  Phobos (R. Verdier)
*CMZ :  2.01/00 12/03/97  22.28.59  by  Phobos (R. Verdier)
*-- Author :    Phobos (R. Verdier)   12/03/97
*
*::>          VERSION  2.01/02   14/03/97 17.11.39
* Command procedures: change default version to PRO
* RMC.COM: refer to NEW for magnetic field
* LINKMC.COM: set UserLib = " "
*
*::>          VERSION  2.01/01   12/03/97 22.31.23
* GEPHOB: Change NWGEAN from 3.0 to 3.2 M, NWPAW from .5 to .4 M;
* STOPER added, with formatting error fixed (RV)
* LINKMC, LMCDEFS, MCG, MCGD, MCX, MCXD, RMC, RMCDEFS: update
* defaults for pmc_exe and gcdefs
* The installer UPDATE20.KUMAC also clears some obsolete files
* and includes the geometry file UGCDATA_V35.TXT
*
*::>          VERSION  2.01/00   12/03/97 22.28.59
* GUKINE: correct phi selection criterion
* PH_OUT: add end of header line in AOU file
* UGINIT: update version # SIMVER = 2.16
* UGLAST: include GCNUM to define an undefined variable,
* RHSIL: increase storage limit on # of detector planes to 180 (KW)
+DECK,V2_00.
*CMZ :  2.00/15 08/01/97  12.24.33  by  Phobos (R. Verdier)
*CMZ :  2.00/14 02/12/96  12.53.11  by  Phobos (R. Verdier)
*CMZ :  2.00/13 19/11/96  13.15.04  by  Phobos (R. Verdier)
*CMZ :  2.00/12 08/11/96  17.21.18  by  Phobos (R. Verdier)
*CMZ :  2.00/11 08/11/96  17.20.04  by  Phobos (R. Verdier)
*CMZ :  2.00/10 08/11/96  17.19.22  by  Phobos (R. Verdier)
*CMZ :  2.00/09 14/08/96  12.05.03  by  Phobos (R. Verdier)
*CMZ :  2.00/08 14/08/96  12.03.52  by  Phobos (R. Verdier)
*CMZ :  2.00/07 23/07/96  13.47.00  by  Phobos (R. Verdier)
*CMZ :  2.00/06 23/07/96  13.45.40  by  Phobos (R. Verdier)
*CMZ :  2.00/05 23/07/96  13.44.19  by  Phobos (R. Verdier)
*CMZ :  2.00/04 23/07/96  13.43.30  by  Phobos (R. Verdier)
*CMZ :  2.00/03 23/07/96  13.42.16  by  Phobos (R. Verdier)
*CMZ :  2.00/02 23/07/96  13.40.24  by  Phobos (R. Verdier)
*CMZ :  2.00/01 21/05/96  15.03.51  by  Phobos (R. Verdier)
*CMZ :  2.00/00 03/03/96  00.23.05  by  Phobos (R. Verdier)
*-- Author :    Phobos (R. Verdier)   03/03/96
*
*::>          VERSION  2.00/15   08/01/97 12.24.33
* Mods to COMPHO.: correct the use of uname to get os
* Mods to EXPHO.KUMAC: correct GCDES filename error
* Mods to LINKMC. make the link interactive and execute LMCDEFS
* Add LMCDEFS., the user definitions script for LINKMC
* Mods to TOFPP.AWK: expand comments
*
*::>          VERSION  2.00/14   02/12/96 12.53.10
* Mods to GUKINE.FOR: terminate run for nonexistent input file
* Mods to PH_OUT.FOR, USSTEP.FOR, UJKBUF.INC: correct secondary origin
*   volume name when SECT=1
* Mods to COMPHO.: make the Unix compile interactive; change to new
*   directory forms lib$os and exe$os
* Mods to EXPHO.KUMAC: make the extract procedure interactive.
*
*::>          VERSION  2.00/13   19/11/96 13.15.03
* Mods to PH_OUT.FOR: correct AOU format to allow free-format read
* New COMPILE.COM compiles files selectively or by revision date and
* stores them in VMS object library.
* Mods to UPCMZ.COM to include server.
* New Unix scripts CLEANRMC, COMPHO, RMC, RMCDEFS in new UNIX directory.
* New AWK script TOFPP to convert extracted source files to preprocessor
* form, in new AWK directory.
* New VMS/UNIX CMZ macro EXPHO.KUMAC to extract files from CMZ library.
*
*::>          VERSION  2.00/12   08/11/96 17.21.18
* Mods to CONTROL.TXT, MCxx.COM, RMC*, LINKMC, LMCDEFS
* Add CONTROL_B.TXT
* Update field and geometry map names, add some documentation to
* control, add benchmark control, remove obsolete test directory ref
*
*::>          VERSION  2.00/11   08/11/96 17.20.03
* V3.4 of UGCDATA: 3" beam pipe, new scales for dx...dz, other
* changes from Adam Trzupek since last released version.
*
*::>          VERSION  2.00/10   08/11/96 17.19.22
  Changes in the PMC made by Krzysztof Wozniak, 24-Sep-1996

1. Extension of the AOU file header:
   Additional information is now output into the AOU file. In the header
   the date of run and the versions of GEANT, ZEBRA and PMC are stored.
   Almost all parameters defined in the CONTROL file are now
   available in the AOU file.
  routine: UGINIT
2. Modification of the hits information - added the signal link necessary
   for the file format after pixelization (here set to zero).
   From now the AOU file from PMC is equivalent to the file from
   pixelization (can be then read by the same software), only the
   information about signals from detectors are missing (it corresponds to
   the detectors switched off).
  routine: PH_OUT
3. Modification of the BANG parameters:
   All problems with the magnetic field parameters were caused by the fact
   that they were used both in GUFLD and BANG.
   I decided to separate these functions and introduce new parameters
   for the BANG mode = 2
   RSPX, RSPZ, RSPR - the X, Z position of the center and radius R of the
   circle covering the spectrometer (they substitute MAGX, MAGZ, FANGL and RFLD)
   These parameters can be set in CONTROL file.
  routine: UGINIT, BANG
4. Magnetic field parameters MAGX, MAGZ, RFLD, BFLD set in the CONTROL file
   are NEVER changed by the map file defaults (like Robin suggested)
   However MAGT and MAGV found in the file override the CONTROL file settings.
   There are warning messages when the map contains definition of the
   parameters already defined in the CONTROL file.
   In addition MAGT = 0 or 1 are now available in the map file also.
  routine: GUFLD
5. The definition of the SIMVER - PMC version number was moved from GEPHOB
   to UGINIT (in some cases GEPHOB is not used - then the program version
   would be undefined)
  routine: UGINIT
6. The call to GUFLD done previously in UGINIT intended to read magnetic field
   information and output it to the AOU file was removed. Now the program
   will read the magnetic field map AFTER the TRIG command.
   I regarded magnetic field and geometry information as connected, I wanted to
   have them together in the header of the AOU file and now they are separated.
   But Adam and Robin argued, that in some cases the magnetic field is not
   necessary (detector elements drawings?) and it takes too much time to wait
   for reading of the map file.
   However the map file was read only when the AOU output was required.
   (if SAOU is not zero)
   I see no reason to produce the AOU output when no particles
   are simulated, but if you wish it can be done this way.
  routine: UGINIT
7. Several obsolete commands (like BMTB) were removed
  routine: UGINIT
8. The definition of the magnetic field parameters in the UGCDATA file
   is no more possible
  routine: UGCSET
* BANG.FOR: The angle range in mode 2 is determined by RSPX,RSPZ and RSPR
*       the position and the radius of the circle describing spectrometer
* GEPHOB.FOR:   SIMVER initialization moved to UGINIT
* GUFLD.FOR: Reading of the map file: MAGV, MAGT - always modified;
* MAGX, MAGZ, RFLD - changed only if it was 0.0; removed unused FANGL
* PH_OUT.FOR: Added signal link (set to zero) to make
*   the format of AOU file identical with pixeled data
* UGCSET.FOR: Removed definitions of MAGX, MAGZ, RFLD, BFLD, MOFF
*   (they must not appear in the UGCDATA file now)
* UGINIT.FOR: SIMVER initialization added (moved from GEPHOB);
*   Added new parameters for BANG mode=2; more information in the AScii
*   Output file; removed obsolete keywords
* BANGC.INC: Wozniak Added new parameters to control BANG mode = 2
*   RSPX, RSPZ, RSPR (removed RMAG)
* RHSYS.INC: Removed obsolete BMTBRAD, BERTHIK; removed FANGL - now
*   local variable in BANG
*
*::>          VERSION  2.00/09   14/08/96 12.05.03
* UGLAST.FOR: Include STAT call only if select SUN.
* RMC, RMCDEFS.COM: define the ASCII output file and BATKUMAC;
*   remove FLDZBR.
* UGCDATA.TXT: change XOFF, ZOFF, FANG to MAGX and MAGZ; exclude
*   beam pipe from vacuum
*
*::>          VERSION  2.00/08   14/08/96 12.03.51
* Make IBM OPEN and ANSI format changes to allow compilation on IBM:
* changes to GUKINE, GUSTEP, PH_OUT, UFILE, UGCDEF, UGCIN, UGCONS,
* UGCVAL, UGINIT, UGLAST, UNSATREFS, and USSTEP.FOR; $IO.INC;
* add block data PMCBDAT.FOR
*
*::>          VERSION  2.00/07   23/07/96 13.46.59
* Change default version to NEW in .COM files.
*
*::>          VERSION  2.00/06   23/07/96 13.45.40
* Remove unused local variables to avoid HPUX compiler warnings in
* GUFLD, GUKINE, GUOUT, PH_HIT, PH_INIT, PH_LAST, PH_OUT, STLEN,
* UFILE, UGCSET, UGINIT, and USSTEP.FOR, and $IO.INC.
*
*::>          VERSION  2.00/05   23/07/96 13.44.19
* Update LINKMC.COM and LMCDEFS.COM for server library;
* Update filename in DRAWSPEC.KUMAC, data in SPECGEO.KUMAC.
*
*::>          VERSION  2.00/04   23/07/96 13.43.29
* Replace XOFF, ZOFF, and FANG by XMAG, ZMAG, and MOFF.
*
*::>          VERSION  2.00/03   23/07/96 13.42.15
* Changes to create a sequential Ascii OUtput (AOU) file to replace
* both Zebra banks and Ntuples.  Code to create ntuples is omitted if
* NONTUP is selected in CMZ compile operations.
* Subroutines GUFLD, GUKINE, PH_OUT, UGINIT, and include files FLAG, IO,
* RHSIL, RHSILD, and UJKBUF have changes that implement AOU.
* GUFLD reads field type from ASCII field map if the control dataset
* or geometry file specifies MAGT >= 2.  The field map values override
* values in the other datasets.
* GUFLD also can read both small-range fine grid and large-range coarse
* grid maps.
*
*::>          VERSION  2.00/02   23/07/96 13.40.24
* Change RAN to CERN RANF, Date and Time to CERN DATIMH, replace UFILE by
* SERVER, for port to unix OS (changes made in Sept. 1995 by D. McLeod).
* Delete FINTE and FINTERR.
* Add CMZ conditionals EUCARD, NOSERV, VMS, and UNIX:
*  select EUCARD includes the EUCARD facility.
*  select NOSERV uses UFILE instead of SERVER file access.
*  select VMS includes VMS-specific code in EUCARD and UFILE.
*  select UNIX includes UNIX-specific code in UGLAST.
*
*::>          VERSION  2.00/01   21/05/96 15.03.51
* Update UGCDATA.TXT to Trzupek's version 3.2
*
*::>          VERSION  2.00/00   03/03/96 00.23.05
* This version is functionally equivalent to 1.01/21 with new geometry,
* nslpm increased to 120, Vers = NEW in command procedures, and with
* new management procedures MAKECDES, MODCERN, and UPCMZ in /COM.
* Originals of modified cern programs and associated correction cradles
* are no longer necessary, as MODCERN contains the cradles.
+DECK,V1_01.
*CMZ :  1.01/21 07/08/95  23.58.12  by  Phobos (R. Verdier)
*CMZ :  1.01/20 13/07/95  12.56.31  by  Adam Trzupek
*CMZ :  1.01/19 17/05/95  11.28.16  by  Phobos (R. Verdier)
*CMZ :  1.01/18 21/04/95  16.17.54  by  Phobos (R. Verdier)
*CMZ :  1.01/17 20/04/95  12.48.20  by  Phobos (R. Verdier)
*CMZ :  1.01/16 11/03/95  12.34.05  by  Adam Trzupek
*CMZ :  1.01/15 13/09/94  14.55.42  by  Phobos (A. Trzupek)
*CMZ :  1.01/14 10/08/94  17.39.15  by  Phobos (R. Verdier)
*CMZ :  1.01/13 23/07/94  08.50.44  by  Phobos (R. Verdier)
*CMZ :  1.01/12 22/07/94  17.53.33  by  Phobos (R. Verdier)
*CMZ :  1.01/11 22/07/94  17.47.26  by  Phobos (R. Verdier)
*CMZ :  1.01/10 22/07/94  17.41.59  by  Phobos (R. Verdier)
*CMZ :  1.01/09 22/07/94  17.38.31  by  Phobos (R. Verdier)
*CMZ :  1.01/08 22/07/94  17.11.29  by  Phobos (R. Verdier)
*CMZ :  1.01/07 25/05/94  15.10.42  by  Phobos (R. Verdier)
*CMZ :  1.01/06 25/05/94  15.06.02  by  Phobos (R. Verdier)
*CMZ :  1.01/05 25/05/94  15.03.32  by  Phobos (R. Verdier)
*CMZ :  1.01/04 25/05/94  14.59.59  by  Phobos (R. Verdier)
*CMZ :  1.01/03 25/05/94  14.54.03  by  Phobos (R. Verdier)
*CMZ :  1.01/02 25/05/94  14.40.02  by  Phobos (R. Verdier)
*CMZ :  1.01/01 25/05/94  14.33.28  by  Phobos (R. Verdier)
*CMZ :  1.01/00 18/04/94  16.49.05  by  R. Verdier
*-- Author :    R. Verdier   18/04/94
*
*::>          VERSION  1.01/21   07/08/95 23.58.12
* Change BANG and GUKINE for additional diagnostic generator modes,
* GUFLD for new magnetic field input, and
* $BANGC, $NTU, $NTUD, and CONTROL accordingly.
*
*::>          VERSION  1.01/20   13/07/95 12.56.30
*  corrections to UGCDATA.TXT
*
*::>          VERSION  1.01/19   17/05/95 11.28.15
* Change USSTEP setting of IFLG for SECT=2, needed to work in Geant 3.21
*
*::>          VERSION  1.01/18   21/04/95 16.17.52
* Change LINKMC for Geant 3.21 / CERN 94b; add CMZTOTXT, MAKEGCDES,
* MCX and UPCMZ procedures; correct UserObj in LMCDEFS
*
*::>          VERSION  1.01/17   20/04/95 12.48.19
* Change BANG, GUKINE, PH_HIT, UGCDEF, UGINIT.FOR for new diagnostic
*  generator modes, event reading skips, and TOF handling.
* Add UNSATREF and USCOM.FOR.
* Change $BANGC, $MUPEP, $MUPEPD, $NTU, and $NTUD.INC.
* Change GEOCON.TXT and add identical CONTROL.TXT; default SECT and
*   SNTU to 1.
* Change UGCDATA.TXT for new TOF location and scale.
* Change FLAG.INC, UGINIT and USSTEP.FOR: replace STRA by SECT to
*   avoid conflict with GEANT 3.21's STRA.
*
*::>          VERSION  1.01/16   11/03/95 12.34.04
* see UGCDATA.TXT header for more info (and DECK info, too)
*
*::>          VERSION  1.01/15   13/09/94 14.55.41
* Changed UGCDATA.TXT to add TOF, and increased height of I4, J4, K4
* fixed MOH1 numbering
*
*::>          VERSION  1.01/14   10/08/94 17.39.13
* Mods to LINKMC.COM for Alpha, TOPVIEW.KUMAC for new names
*
*::>          VERSION  1.01/13   23/07/94 08.50.43
* Change UGCDATA.TXT to Trzupek's 1-Jul-94 geometry
*
*::>          VERSION  1.01/12   22/07/94 17.53.32
* Change BANGC, NTU, NTUD, and UJKBUF.INC, and GUKINE, GUOUT, PH_HIT,
* UFILE, and USSTEP.FOR to implement control STRA = 1, to create
* permanent KINE and VERT banks only for primary tracks, and for
* secondary tracks that produce hits.  Also updates ntuple tags and
* makes minor updates and repairs in GUKINE, GUOUT, and UFILE.
*
*::>          VERSION  1.01/11   22/07/94 17.47.24
* Change PH_HIT.FOR to store mean hit position and exit-entry vector
*
*::>          VERSION  1.01/10   22/07/94 17.41.58
* Change PH_OUT.FOR to allow dynamic specification of detector sets
*
*::>          VERSION  1.01/09   22/07/94 17.38.30
* Change UGCDATA.TXT: GS DET to GS DETV to allow GLVOLU, separate
* detectors into sets SPEC, RING, & BARR
*
*::>          VERSION  1.01/08   22/07/94 17.11.28
* Add GSDETV call to UGCDEF.FOR, and store NSIP
*
*::>          VERSION  1.01/07   25/05/94 15.10.41
* Add GSTPAR call to UGCDEF.FOR
*
*::>          VERSION  1.01/06   25/05/94 15.06.01
* Change to 11-parameter HITS bank in PH_HIT, PH_OUT, & UGINIT.FOR,
*   $BANGC, $NTU, $NTUD, $NTUEX, $NTUEXD, $RHSIL, & $RHSILD.INC,
*   TOPVIEW.KUMAC, UGCDATA.TXT.
*
*::>          VERSION  1.01/05   25/05/94 15.03.32
* Update UGCDATA.TXT to Adam Trzupek's current version
*
*::>          VERSION  1.01/04   25/05/94 14.59.58
* Increase NSLPM to 100 in common /RHSIL/
*
*::>          VERSION  1.01/03   25/05/94 14.54.02
* Add GSATT call to UGCDEF.FOR
*
*::>          VERSION  1.01/02   25/05/94 14.39.58
* UGINIT & UGLAST.FOR: correct IZEB use
*
*::>          VERSION  1.01/01   25/05/94 14.33.27
* Change LINKMC, LMCDEFS, RMC, RMCDEFS, and SMC.COM for NEW as
*   default version, new CERN library locations, correct assignments
*   in xxxDEFS templates
*
*::>          VERSION  1.01/00   18/04/94 16.49.05
*
+PATCH,CRA.
*CMZ :  2.00/00 03/03/96  00.19.38  by  Phobos (R. Verdier)
+DECK,NEWVERS  ,T=DATA.
*CMZ :  2.00/00 03/03/96  00.20.45  by  Phobos (R. Verdier)
*-- Author :
+PATCH,DAT.
*CMZ :  2.00/01 04/03/96  11.00.17  by  Phobos (R. Verdier)
+DECK,CONTDEMO  ,T=DATA.
*CMZ :  1.00/00 17/12/93  07.30.56  by  Phobos
*-- Author :
* CONTDEMO.TXT: standard control option file for the Phobos Monte Carlo
*  171-Nov93: Demo version for HIjet events
*
*  ----------------GEANT standard data cards:--------------------
*
TRIG     1
*   number of events to run (cutoff only if reading events)
*   This value is ignored in the interactive versions.
SAVE 'KINE' 'VERT' 'HITS'
*   Banks to be saved if SZEB is 1.  For large events in batch, remove JXYZ.
RUNG     13
*   run number (used in printout, histogram labels etc.)
MULS     1
*   multiple scattering type: 0 = none,
*   1 = Gaussian (default), 2 = Moliere
DCAY     1
*   decay in flight: 0 =none, 1 = make secondaries,
*   2 = ignore secondaries.  (1 = default)
LOSS     2
*   1 = no fluctuations, 2 = Landau dist'n, 0 = no energy loss
HADR     1
*   0 = no hadronic interactions
RNDM    12144 232
*   seeds for random number generator
DEBUG    1  10  1
*   Debug flag; DEBUG NFIRST NLAST DN prints debug information for
*   events NFIRST, NFIRST+DN, ..., NLAST
SWITCH   0  1  0  1
*   Governs what's printed during debug; 0 disable, 1 enable...
*   1st = kine bank print
*   2nd = Ntuple print
*   3rd = bank prints
*   4th = gustep diagnostics
*
*   ----------------------GPH control cards:---------------------------
NTPE  30
*   Tracks per event, for very short demo
NTTK 300000
* Total tracks for allocating MC ntuple
PIXL     0
*   0 = exact coord. on track, 1 = set to center of nearest pad
ANAL     1
*   1 = generate Ntuples, 2 = calculate errors
SAHO     0
*   1 = hits output to ascii file, 0 = suppressed
SHBO     0
*   1 = .HST binary plot output (for PAW), 0 = suppressed
SHDO     0
*   1 = HISTDO is called to output plots in GPH.OUT, 0 = suppressed
SNTU     3
*   1 + 2 = Ntuples are output to (filename) and (filenameMC).NTU RZ files
STRA     2
*   1 = secondary particles from interactions are tracked
SZEB     0
*   1 = Zebra bank output
***DRAW     1
*   1 = draw apparatus, 2 = draw hits also, 0 or missing = no draw
* DISP     0
*   1 = book and fill "event display" scatterplots
*
*   ------------Configuration of PHOBOS system:---------------------------
*   >>NOTE: Units in GEANT are cm., kilogauss, Gev/c, degrees
* These are now usually specified in the GCDEFS geometry file
*
* ----------  event generator control cards ----------------------------
*
GEN      5
*   1 = fixed track, 2 = BANG aimed at det., 3 = random BANG,
*   4 = momentum, pos'n or angle incremented, 5 = Text input
RMOM    0.05 1.5
*  For GEN = 1 there is only one entry i.e. the momentum; GEN = 2,3 (BANG):
*  Range of flat momentum distribution; if PLOW is within 0.001 Gev/c
*  of PHIGH, fixed momentum. If PLOW > PHIGH, "spikes" at PLOW, PLOW-PHIGH,
*  PLOW - 2*PHIGH, ..... provided > 0.
RMUL    40
*  Multiplicity of each event (irrelevant if not BANG generator)
RANG    40.0
*  Polar angle wrt beam (GEN = 1,4) or angle range both sides of FANG,
*  (symmetric) if GEN = 2. The particles are  distributed flat in cos(theta).
RPHI    0.0
*  Azimuth (GEN = 1,4) or range of azimuth (GEN = 2)
RBXX    0.0
RBYY    0.0
RBZZ    0.0
*  This is the particle origin relative to beam center (GEN = 1)
*  For BANG (GEN = 2,3) RBZZ is the length of the intersection diamond in cm.
*  For text event data (GEN = 5), RBZZ is the default vertex z position
RBXY    0.0450
*  Projected width of intersection region. The events are Gaussian
*  distributed about x, y = 0 (only relevant for BANG)
RMAG    15.0
*  nominal radius of field, for GEN = 3
RPAR    8
*  Particle ID.  This is fixed i.e. all particles in an event.  ID = Geant code.
DANG    0.1
*  increment for stepping polar angle (if GEN = 4)
DXX     0.4
*  likewise for position
DMOM    0.02
*  likewise for momentum
*
* -----------HBOOK control cards----------------------------
*  HIST ID TAGNAME  (short form.. default bins and interval)
*    TAGNAME can be Ntuple tag name or e.g. #35 for 35th entry
*  HIST ID TAGNAME NCHANNELS XMIN XMAX is the long form.
*  HIST ID TAGX NX XMI XMA TAGY NY YMI YMA  scatterplot, args as HBOOK2
*  (The number of arguments distinguishes these three formats.)
* The following three histograms are intended for standard benchmarking:
* HIST 14 NHITSL
* HIST 15 TP
* HIST 17 TTHETA
* The following four are omitted in standard runs:
* HIST 11 XPROD
* HIST 12 YPROD
* HIST 13 IDPART
* HIST 16 TPHI
*
* End of control file
+DECK,CONTROL  ,T=DATA.
*CMZU:  2.02/01 29/04/97  11.54.16  by  Phobos (R. Verdier)
*CMZU:  2.00/12 08/11/96  14.02.20  by  Phobos (R. Verdier)
*-- Author :
* CONTROL.TXT: standard control option file for the Phobos Monte Carlo
*  29-Apr-97: Add TLIM to override time cutoff for unlimited queues (KW)
*  08-Nov-96: Update to current standard settings
*  31-Mar-95: Change STRA to SECT to avoid a GEANT 3.21 conflict (RV)
*
*  -------- Global definitions of the events --------------------
*
*   number of events to run (cutoff only if reading events)
*   This value is overridden by an interactively specified value.
TRIG    25
*
* ----------  Magnetic field -------------------------------------------
*
*   Magnetic field description:
*   0 = no field; 1 = diagnostic field; 2 = 3-d field map; 3 = super-
*   position of dipole fields from map.  UGINIT sets default = 2.
* MAGT   2
*
* ----------  event generator control cards ----------------------------
*
*   Generation mode:
*   0 = particles read from an ascii input file
*   1 = flat distributions in p, eta, phi
*   2 = flat distributions in p, phi, theta chosen to fit to the spectrometer
*       (flat cos(theta) distribution used)
*   3 = "physical" distributions of momentum (pt*exp(-pt/REXP)),
*        eta (trapezoid from -6 to 6), flat phi
*   4 = step distributions (increasing first P, then theta, finally Z of vertex)
GEN      0
*
*   Special parameters for GEN=0 only:
*   Number of events NESK and tracks NTSK to skip at the beginning of file
*   (before any particle is given to GEANT)
*   If TRIG is greater than the number of events in the file - the file
*   can be rewound and read again if RROT is different than 0
*   The tracks are however rotated in phi by the angle RROT (degrees)
*   to make the events look different at least in spectrometer
NESK     0
NTSK     0
RROT    15.0
*
*  Multiplicity of each event (GEN=1,2,3 only)
RMUL    40
*
*  Number of arms of the spectrometer (1 or 2) that have to be considerd
*  in the case of PHI cut or generation (see RPHI).
RARM    2
*
*  Particle ID min and max.
*  GEN=0   only the particles from min to max are accepted from the input file
*  GEN=1,2,3  ID is chosen from all values from min to max
*            (in case both numbers are equal 0: pi+-, K+- and p+- are generated
*             with multiplicity about 20:1:1  pi:K:p  and  half +, half -)
*  GEN=4   ID is fixed and equal to RPID(1)
RPID    0  99
*
*  Two first numbers define the range of the momentum, third is the step
*  (the values are given in GeV/c)
*  GEN = 0:  particles with momentum outside (PLOW,PHIGH) are rejected
*  GEN = 1,2: flat momentum distribution (if PSTEP = 0.0) or
*             PLOW, PLOW+PSTEP, PLOW+2*PSTEP, ... PHIGH (if PSTEP > 0.0)
*  GEN = 3:  exponential distribution in (PLOW,PHIGH) interval is used in
*            momentum generation
*  GEN = 4:  PLOW, PLOW+PSTEP, PLOW+2*PSTEP, ... up to PHIGH
RMOM    0.001   999.0  0.0
*
*  Falloff of the exponential distribution of momentum (pt*exp(-pt/REXP))
*  REXP should be equal to mean pt (in GeV/c)
*  (valid for GEN=3 only)
REXP    0.350
*
*  The range of eta (GEN = 0, 1, 3 only)
*  only particles with eta in the given interval are simulated or generated
RETA    -20.0  20.0
*
*  Polar angle range and step (GEN=4 only)  (in degrees)
*  the values of theta are:  RANG(1), RANG(1)+RANG(3), RANG(1)+2*RANG(3) ....
RANG    20.0   60.0  10.0
*
*  Azimuth range (GEN = 0,1,2,3)  (in degrees) depending on RARM
*  RARM = 1:  only particles between (RPHI(1),RPHI(2))  are accepted
*  RARM = 2:  also particles between (RPHI(1)+180,RPHI(2)+180)  are accepted
*  for GEN = 4:  phi is fixed and equal RPHI(1)
RPHI    -360.0   360.0
*
*  These are the coordinates of particle origin central point
*  GEN = 0 the vertex is read from the input file or generated as for GEN=1,2,3
*  GEN = 1,2,3  the vertex is generated around (RBXX,RBYY,RBZZ)
*               depending on the value of RBXY (see RBXY)
*  GEN = 4 the vertex is defined as
*          (RBXX,RBYY,RBZZ), (RBXX,RBYY,RBZZ+RBDZ), (RBXX,RBYY,RBZZ+2*RBDZ), ...
RBXX    0.0
RBYY    0.0
RBZZ    0.0
*
*  Projected width of intersection region. The events are Gaussian
*  distributed about x, y = 0 (not relevant for GEN=4)
*  This is also a flag that defines the kind of vertexes distribution:
*  RBXY > 0  - means gausian in x-y plane and triangular in z
*  RBXY = 0  - means flat between: RBXX-RBDX and RBXX+RBDX, the same for y and z
*              (fixed vertex if RBDX=RBDY=RBDZ=0)
*  A good value for RBXY can be 0.045 (if not 0)
RBXY    0.0
*
*  Width of the distributions of vertex position arround RBXX,RBYY,RBZZ
*  in the case RBXY=0.0 (flat distributions are assumed)
*  For RBXY>0.0 only RBDZ is used to define the length of triangular
*  Z distribution
RBDX    0.0
RBDY    0.0
RBDZ    0.0
*
*  nominal radius of field used to calculate the theta range for GEN = 2
RMAG    15.0
*
*-------- Definition of the simulation options --------------------
*
*   seeds for random number generator
RNDM    12144 232
*
*   primary tracks to read per event
NTPE  15000
*
*   number of primary tracks to process concurrently
NTCO  1000
*
* Detector sets to be active during this run (default = '*' or 'all'):
SETS 'SPEC' 'TOFC' 'VERT' 'BARR' 'RING'
*
*-------- Definition of the output  -------------------------------
*
*   run number (used in printout, histogram labels etc.)
RUNG     13
*
*   0 = exact coord. on track, 1 = set to center of nearest pad
PIXL     0
*
*   1 = generate Ntuples, 2 = calculate errors
ANAL     1
*
* SAOU = 1: hits output to ascii file for primaries and tracks with hits,
*        2 includes parents, 3 all tracks; 0 = none
SAOU     2
*   1 = hits output to ascii file, 0 = suppressed
SAHO     0
*
*   1 = .HST binary plot output (for PAW), 0 = suppressed
SHBO     0
*
*   1 = HISTDO is called to output plots in GPH.OUT, 0 = suppressed
SHDO     0
*
*   1 + 2 = Ntuples are output to (filename) and (filenameMC).NTU RZ files
SNTU     1
*
*   SECT=1 saves all prim, + sec tracks hitting dets, 2 saves all, 0 none
SECT     1
*
*   1 = Zebra bank output
SZEB     0
*
* Banks to be saved if SZEB is 1: may include DIGI, DRAW, HITS, INIT,
*   JXYZ, KINE, MATE, PART, ROTM, SETS, TMED, VERT, VOLU.
*   MATE, ROTM, SETS, TMED, and VOLU, if listed, are saved only on
*   the first event.  For large events in batch, remove JXYZ:
SAVE 'HITS' 'KINE' 'ROTM' 'VERT' 'VOLU' 'SETS'
*
* Total tracks for allocating MC ntuple
NTTK 300000
*
*   Debug flag; DEBUG NFIRST NLAST DN prints debug information for
*   events NFIRST, NFIRST+DN, ..., NLAST
DEBUG    1  10  1
*
*   Governs what's printed during debug; 0 disable, 1 enable...
*   1st = kine bank print
*   2nd = Ntuple print
*   3rd = bank prints
*   4th = gustep diagnostics
SWITCH   0  0  0  0
*
* Time limit switch: set to 1 to stop job at [badly] estimated time
TLIM   0
*
*-------- Definition of the physics of the simulation ------------
*
* Energy cuts for gammas, electrons, neutrons, hadrons and muons (GeV)
* (use PHOBOS default: all 0.001 - for accurate background calculations)
CUTS    0.001  0.001  0.001  0.001  0.001
*
*   multiple scattering type: 0 = none,
*   1 = Gaussian (default), 2 = Moliere
MULS     1
*
*   decay in flight: 0 =none, 1 = make secondaries,
*   2 = ignore secondaries.  (1 = default)
DCAY     1
*
* Hadronic interactions: 0 for none, 1 = hadronic interactions plus second-
* ary production, 2 = 1 without secondaries, 3 = GHEISHA, using NUCRIN for
* hadrons below 5 GeV; 4 = FLUKA (PHOBOS default)
HADR     4
*
* DE/dx loss: 0 = none, 1 or 3 = restricted Landau fluctuations plus delta
* ray production, 2 = Landau-Vavilov fluctuations with no deltas,
* 4 = average energy loss with no fluctuations:
* (3 = PHOBOS default)
LOSS     3
*
* Pair production
PAIR     1
*
*  Bremstrahlung
BREM     1
*
*  Compton scattering
COMP     1
*
*  Photoelectric effect
PHOT     1
*
*  Delta electrons
DRAY     1
*
*  Annihilation
ANNI     1
*
* End of control file
+DECK,MAP_2T  ,T=DATA.
*CMZ :  1.00/00 17/12/93  07.30.59  by  Phobos
*-- Author :
* The cylindrical map of the magnet with iron - outer radius 45.5 cm, coil
* the current 1.25*10**5 Amp_turns  gives finally  1.99 T in the middle.
*
RADIAL:      132
     0.00    0.80    1.60    2.40    3.20    4.00    4.80    5.60    6.40    7.20
     8.00    8.80    9.60   10.40   11.20   12.00   12.80   13.60   14.40   15.20
    16.00   16.80   17.60   18.40   19.20   20.00   20.80   21.60   22.40   23.20
    24.00   24.80   25.60   26.40   27.20   28.00   28.80   29.60   30.40   31.20
    32.00   32.80   33.60   34.40   35.20   36.00   36.80   37.60   38.40   39.20
    40.00   40.80   41.60   42.40   43.20   44.00   44.80   45.60   46.40   47.20
    48.00   48.80   49.60   50.40   51.20   52.00   52.80   53.60   54.40   55.20
    56.00   57.60   59.20   60.80   62.40   64.00   65.60   67.20   68.80   70.40
    72.00   73.60   75.20   76.80   78.40   80.00   81.60   83.20   84.80   86.40
    88.00   89.60   91.20   92.00   92.80   94.40   96.00   97.60   99.20  100.80
   102.40  104.00  105.60  107.20  108.80  110.40  112.00  113.60  115.20  116.80
   118.40  120.00  121.60  123.20  124.80  126.40  128.00  129.60  131.20  132.80
   134.40  136.00  137.60  139.20  140.80  142.40  144.00  145.60  147.20  148.80
   150.40  152.00
VERTICAL:     76
     0.00    0.80    1.60    2.40    3.20    4.00    4.80    5.60    6.40    7.20
     8.00    8.80    9.60   10.40   11.20   12.00   12.80   13.60   14.40   15.20
    16.00   16.80   17.60   18.40   19.20   20.00   20.80   21.60   22.40   23.20
    24.00   24.80   25.60   26.40   27.20   28.00   28.80   29.60   30.40   31.20
    32.00   32.80   33.60   34.40   35.20   36.00   36.80   37.60   38.40   39.20
    40.00   40.80   41.60   42.40   43.20   44.00   44.80   45.60   46.40   47.20
    48.00   48.80   49.60   50.40   51.20   52.00   52.80   53.60   54.40   55.20
    56.00   56.80   57.60   58.40   59.20   60.00
FIELD:
     1    1    0.000000   19.920130
     1    2    0.000000   19.920324
     1    3    0.000000   19.920944
     1    4    0.000000   19.921972
     1    5    0.000000   19.923388
     1    6    0.000000   19.925135
     1    7    0.000000   19.927168
     1    8    0.000000   19.929407
     1    9    0.000000   19.932461
     1   10    0.000000   19.936211
     1   11    0.000000   19.936211
     1   12    0.000000   19.936211
     1   13    0.000000   19.936211
     1   14    0.000000   19.936211
     1   15    0.000000   19.936211
     1   16    0.000000   19.936211
     1   17    0.000000   19.936211
     1   18    0.000000   19.936211
     1   19    0.000000   19.936211
     1   20    0.000000   19.936211
     1   21    0.000000   19.936211
     1   22    0.000000   19.936211
     1   23    0.000000   19.936211
     1   24    0.000000   19.936211
     1   25    0.000000   19.936211
     1   26    0.000000   19.936211
     1   27    0.000000   19.936211
     1   28    0.000000   19.936211
     1   29    0.000000   19.936211
     1   30    0.000000   19.936211
     1   31    0.000000   19.936211
     1   32    0.000000   19.936211
     1   33    0.000000   19.936211
     1   34    0.000000   19.936211
     1   35    0.000000   19.936211
     1   36    0.000000   19.936211
     1   37    0.000000   19.936211
     1   38    0.000000   19.936211
     1   39    0.000000   19.936211
     1   40    0.000000   19.936211
     1   41    0.000000   19.936211
     1   42    0.000000   19.936211
     1   43    0.000000   19.936211
     1   44    0.000000   19.936211
     1   45    0.000000   19.936211
     1   46    0.000000   19.936211
     1   47    0.000000   19.936211
     1   48    0.000000   19.936211
     1   49    0.000000   19.936211
     1   50    0.000000   19.936211
     1   51    0.000000   19.936211
     1   52    0.000000   19.936211
     1   53    0.000000   19.936211
     1   54    0.000000   19.936211
     1   55    0.000000   19.936211
     1   56    0.000000   19.936211
     1   57    0.000000   19.936211
     1   58    0.000000   19.936211
     1   59    0.000000   19.936211
     1   60    0.000000   19.936211
     1   61    0.000000   19.936211
     1   62    0.000000   19.936211
     1   63    0.000000   19.936211
     1   64    0.000000   19.936211
     1   65    0.000000   19.936211
     1   66    0.000000   19.936211
     1   67    0.000000   19.936211
     1   68    0.000000   19.936211
     1   69    0.000000   19.936211
     1   70    0.000000   19.936211
     1   71    0.000000   19.936211
     1   72    0.000000   19.936211
     1   73    0.000000   19.936211
     1   74    0.000000   19.936211
     1   75    0.000000   19.936211
     1   76    0.000000   19.936211
     2    1    0.000006   19.920019
     2    2   -0.000201   19.920216
     2    3   -0.000414   19.920815
     2    4   -0.000610   19.921854
     2    5   -0.000789   19.923292
     2    6   -0.000942   19.925032
     2    7   -0.001080   19.927031
     2    8   -0.001193   19.929390
     2    9   -0.001520   19.931961
     2   10   -0.001622   19.934641
     2   11   -0.001622   19.934641
     2   12   -0.001622   19.934641
     2   13   -0.001622   19.934641
     2   14   -0.001622   19.934641
     2   15   -0.001622   19.934641
     2   16   -0.001622   19.934641
     2   17   -0.001622   19.934641
     2   18   -0.001622   19.934641
     2   19   -0.001622   19.934641
     2   20   -0.001622   19.934641
     2   21   -0.001622   19.934641
     2   22   -0.001622   19.934641
     2   23   -0.001622   19.934641
     2   24   -0.001622   19.934641
     2   25   -0.001622   19.934641
     2   26   -0.001622   19.934641
     2   27   -0.001622   19.934641
     2   28   -0.001622   19.934641
     2   29   -0.001622   19.934641
     2   30   -0.001622   19.934641
     2   31   -0.001622   19.934641
     2   32   -0.001622   19.934641
     2   33   -0.001622   19.934641
     2   34   -0.001622   19.934641
     2   35   -0.001622   19.934641
     2   36   -0.001622   19.934641
     2   37   -0.001622   19.934641
     2   38   -0.001622   19.934641
     2   39   -0.001622   19.934641
     2   40   -0.001622   19.934641
     2   41   -0.001622   19.934641
     2   42   -0.001622   19.934641
     2   43   -0.001622   19.934641
     2   44   -0.001622   19.934641
     2   45   -0.001622   19.934641
     2   46   -0.001622   19.934641
     2   47   -0.001622   19.934641
     2   48   -0.001622   19.934641
     2   49   -0.001622   19.934641
     2   50   -0.001622   19.934641
     2   51   -0.001622   19.934641
     2   52   -0.001622   19.934641
     2   53   -0.001622   19.934641
     2   54   -0.001622   19.934641
     2   55   -0.001622   19.934641
     2   56   -0.001622   19.934641
     2   57   -0.001622   19.934641
     2   58   -0.001622   19.934641
     2   59   -0.001622   19.934641
     2   60   -0.001622   19.934641
     2   61   -0.001622   19.934641
     2   62   -0.001622   19.934641
     2   63   -0.001622   19.934641
     2   64   -0.001622   19.934641
     2   65   -0.001622   19.934641
     2   66   -0.001622   19.934641
     2   67   -0.001622   19.934641
     2   68   -0.001622   19.934641
     2   69   -0.001622   19.934641
     2   70   -0.001622   19.934641
     2   71   -0.001622   19.934641
     2   72   -0.001622   19.934641
     2   73   -0.001622   19.934641
     2   74   -0.001622   19.934641
     2   75   -0.001622   19.934641
     2   76   -0.001622   19.934641
     3    1    0.000019   19.919699
     3    2   -0.000409   19.919905
     3    3   -0.000837   19.920536
     3    4   -0.001230   19.921597
     3    5   -0.001592   19.923027
     3    6   -0.001889   19.924810
     3    7   -0.002152   19.926857
     3    8   -0.002343   19.929041
     3    9   -0.002574   19.931664
     3   10   -0.002676   19.933956
     3   11   -0.002676   19.933956
     3   12   -0.002676   19.933956
     3   13   -0.002676   19.933956
     3   14   -0.002676   19.933956
     3   15   -0.002676   19.933956
     3   16   -0.002676   19.933956
     3   17   -0.002676   19.933956
     3   18   -0.002676   19.933956
     3   19   -0.002676   19.933956
     3   20   -0.002676   19.933956
     3   21   -0.002676   19.933956
     3   22   -0.002676   19.933956
     3   23   -0.002676   19.933956
     3   24   -0.002676   19.933956
     3   25   -0.002676   19.933956
     3   26   -0.002676   19.933956
     3   27   -0.002676   19.933956
     3   28   -0.002676   19.933956
     3   29   -0.002676   19.933956
     3   30   -0.002676   19.933956
     3   31   -0.002676   19.933956
     3   32   -0.002676   19.933956
     3   33   -0.002676   19.933956
     3   34   -0.002676   19.933956
     3   35   -0.002676   19.933956
     3   36   -0.002676   19.933956
     3   37   -0.002676   19.933956
     3   38   -0.002676   19.933956
     3   39   -0.002676   19.933956
     3   40   -0.002676   19.933956
     3   41   -0.002676   19.933956
     3   42   -0.002676   19.933956
     3   43   -0.002676   19.933956
     3   44   -0.002676   19.933956
     3   45   -0.002676   19.933956
     3   46   -0.002676   19.933956
     3   47   -0.002676   19.933956
     3   48   -0.002676   19.933956
     3   49   -0.002676   19.933956
     3   50   -0.002676   19.933956
     3   51   -0.002676   19.933956
     3   52   -0.002676   19.933956
     3   53   -0.002676   19.933956
     3   54   -0.002676   19.933956
     3   55   -0.002676   19.933956
     3   56   -0.002676   19.933956
     3   57   -0.002676   19.933956
     3   58   -0.002676   19.933956
     3   59   -0.002676   19.933956
     3   60   -0.002676   19.933956
     3   61   -0.002676   19.933956
     3   62   -0.002676   19.933956
     3   63   -0.002676   19.933956
     3   64   -0.002676   19.933956
     3   65   -0.002676   19.933956
     3   66   -0.002676   19.933956
     3   67   -0.002676   19.933956
     3   68   -0.002676   19.933956
     3   69   -0.002676   19.933956
     3   70   -0.002676   19.933956
     3   71   -0.002676   19.933956
     3   72   -0.002676   19.933956
     3   73   -0.002676   19.933956
     3   74   -0.002676   19.933956
     3   75   -0.002676   19.933956
     3   76   -0.002676   19.933956
     4    1    0.000036   19.919157
     4    2   -0.000631   19.919357
     4    3   -0.001276   19.920034
     4    4   -0.001886   19.921141
     4    5   -0.002436   19.922615
     4    6   -0.002888   19.924454
     4    7   -0.003255   19.926542
     4    8   -0.003516   19.928864
     4    9   -0.003711   19.931303
     4   10   -0.003696   19.933735
     4   11   -0.003696   19.933735
     4   12   -0.003696   19.933735
     4   13   -0.003696   19.933735
     4   14   -0.003696   19.933735
     4   15   -0.003696   19.933735
     4   16   -0.003696   19.933735
     4   17   -0.003696   19.933735
     4   18   -0.003696   19.933735
     4   19   -0.003696   19.933735
     4   20   -0.003696   19.933735
     4   21   -0.003696   19.933735
     4   22   -0.003696   19.933735
     4   23   -0.003696   19.933735
     4   24   -0.003696   19.933735
     4   25   -0.003696   19.933735
     4   26   -0.003696   19.933735
     4   27   -0.003696   19.933735
     4   28   -0.003696   19.933735
     4   29   -0.003696   19.933735
     4   30   -0.003696   19.933735
     4   31   -0.003696   19.933735
     4   32   -0.003696   19.933735
     4   33   -0.003696   19.933735
     4   34   -0.003696   19.933735
     4   35   -0.003696   19.933735
     4   36   -0.003696   19.933735
     4   37   -0.003696   19.933735
     4   38   -0.003696   19.933735
     4   39   -0.003696   19.933735
     4   40   -0.003696   19.933735
     4   41   -0.003696   19.933735
     4   42   -0.003696   19.933735
     4   43   -0.003696   19.933735
     4   44   -0.003696   19.933735
     4   45   -0.003696   19.933735
     4   46   -0.003696   19.933735
     4   47   -0.003696   19.933735
     4   48   -0.003696   19.933735
     4   49   -0.003696   19.933735
     4   50   -0.003696   19.933735
     4   51   -0.003696   19.933735
     4   52   -0.003696   19.933735
     4   53   -0.003696   19.933735
     4   54   -0.003696   19.933735
     4   55   -0.003696   19.933735
     4   56   -0.003696   19.933735
     4   57   -0.003696   19.933735
     4   58   -0.003696   19.933735
     4   59   -0.003696   19.933735
     4   60   -0.003696   19.933735
     4   61   -0.003696   19.933735
     4   62   -0.003696   19.933735
     4   63   -0.003696   19.933735
     4   64   -0.003696   19.933735
     4   65   -0.003696   19.933735
     4   66   -0.003696   19.933735
     4   67   -0.003696   19.933735
     4   68   -0.003696   19.933735
     4   69   -0.003696   19.933735
     4   70   -0.003696   19.933735
     4   71   -0.003696   19.933735
     4   72   -0.003696   19.933735
     4   73   -0.003696   19.933735
     4   74   -0.003696   19.933735
     4   75   -0.003696   19.933735
     4   76   -0.003696   19.933735
     5    1    0.000060   19.918364
     5    2   -0.000861   19.918581
     5    3   -0.001768   19.919260
     5    4   -0.002597   19.920439
     5    5   -0.003331   19.922012
     5    6   -0.003939   19.923954
     5    7   -0.004438   19.926189
     5    8   -0.004778   19.928619
     5    9   -0.004907   19.931141
     5   10   -0.005030   19.933819
     5   11   -0.005030   19.933819
     5   12   -0.005030   19.933819
     5   13   -0.005030   19.933819
     5   14   -0.005030   19.933819
     5   15   -0.005030   19.933819
     5   16   -0.005030   19.933819
     5   17   -0.005030   19.933819
     5   18   -0.005030   19.933819
     5   19   -0.005030   19.933819
     5   20   -0.005030   19.933819
     5   21   -0.005030   19.933819
     5   22   -0.005030   19.933819
     5   23   -0.005030   19.933819
     5   24   -0.005030   19.933819
     5   25   -0.005030   19.933819
     5   26   -0.005030   19.933819
     5   27   -0.005030   19.933819
     5   28   -0.005030   19.933819
     5   29   -0.005030   19.933819
     5   30   -0.005030   19.933819
     5   31   -0.005030   19.933819
     5   32   -0.005030   19.933819
     5   33   -0.005030   19.933819
     5   34   -0.005030   19.933819
     5   35   -0.005030   19.933819
     5   36   -0.005030   19.933819
     5   37   -0.005030   19.933819
     5   38   -0.005030   19.933819
     5   39   -0.005030   19.933819
     5   40   -0.005030   19.933819
     5   41   -0.005030   19.933819
     5   42   -0.005030   19.933819
     5   43   -0.005030   19.933819
     5   44   -0.005030   19.933819
     5   45   -0.005030   19.933819
     5   46   -0.005030   19.933819
     5   47   -0.005030   19.933819
     5   48   -0.005030   19.933819
     5   49   -0.005030   19.933819
     5   50   -0.005030   19.933819
     5   51   -0.005030   19.933819
     5   52   -0.005030   19.933819
     5   53   -0.005030   19.933819
     5   54   -0.005030   19.933819
     5   55   -0.005030   19.933819
     5   56   -0.005030   19.933819
     5   57   -0.005030   19.933819
     5   58   -0.005030   19.933819
     5   59   -0.005030   19.933819
     5   60   -0.005030   19.933819
     5   61   -0.005030   19.933819
     5   62   -0.005030   19.933819
     5   63   -0.005030   19.933819
     5   64   -0.005030   19.933819
     5   65   -0.005030   19.933819
     5   66   -0.005030   19.933819
     5   67   -0.005030   19.933819
     5   68   -0.005030   19.933819
     5   69   -0.005030   19.933819
     5   70   -0.005030   19.933819
     5   71   -0.005030   19.933819
     5   72   -0.005030   19.933819
     5   73   -0.005030   19.933819
     5   74   -0.005030   19.933819
     5   75   -0.005030   19.933819
     5   76   -0.005030   19.933819
     6    1    0.000085   19.917301
     6    2   -0.001122   19.917519
     6    3   -0.002291   19.918285
     6    4   -0.003377   19.919529
     6    5   -0.004318   19.921259
     6    6   -0.005110   19.923340
     6    7   -0.005722   19.925722
     6    8   -0.006152   19.928316
     6    9   -0.006406   19.931057
     6   10   -0.006527   19.933807
     6   11   -0.006527   19.933807
     6   12   -0.006527   19.933807
     6   13   -0.006527   19.933807
     6   14   -0.006527   19.933807
     6   15   -0.006527   19.933807
     6   16   -0.006527   19.933807
     6   17   -0.006527   19.933807
     6   18   -0.006527   19.933807
     6   19   -0.006527   19.933807
     6   20   -0.006527   19.933807
     6   21   -0.006527   19.933807
     6   22   -0.006527   19.933807
     6   23   -0.006527   19.933807
     6   24   -0.006527   19.933807
     6   25   -0.006527   19.933807
     6   26   -0.006527   19.933807
     6   27   -0.006527   19.933807
     6   28   -0.006527   19.933807
     6   29   -0.006527   19.933807
     6   30   -0.006527   19.933807
     6   31   -0.006527   19.933807
     6   32   -0.006527   19.933807
     6   33   -0.006527   19.933807
     6   34   -0.006527   19.933807
     6   35   -0.006527   19.933807
     6   36   -0.006527   19.933807
     6   37   -0.006527   19.933807
     6   38   -0.006527   19.933807
     6   39   -0.006527   19.933807
     6   40   -0.006527   19.933807
     6   41   -0.006527   19.933807
     6   42   -0.006527   19.933807
     6   43   -0.006527   19.933807
     6   44   -0.006527   19.933807
     6   45   -0.006527   19.933807
     6   46   -0.006527   19.933807
     6   47   -0.006527   19.933807
     6   48   -0.006527   19.933807
     6   49   -0.006527   19.933807
     6   50   -0.006527   19.933807
     6   51   -0.006527   19.933807
     6   52   -0.006527   19.933807
     6   53   -0.006527   19.933807
     6   54   -0.006527   19.933807
     6   55   -0.006527   19.933807
     6   56   -0.006527   19.933807
     6   57   -0.006527   19.933807
     6   58   -0.006527   19.933807
     6   59   -0.006527   19.933807
     6   60   -0.006527   19.933807
     6   61   -0.006527   19.933807
     6   62   -0.006527   19.933807
     6   63   -0.006527   19.933807
     6   64   -0.006527   19.933807
     6   65   -0.006527   19.933807
     6   66   -0.006527   19.933807
     6   67   -0.006527   19.933807
     6   68   -0.006527   19.933807
     6   69   -0.006527   19.933807
     6   70   -0.006527   19.933807
     6   71   -0.006527   19.933807
     6   72   -0.006527   19.933807
     6   73   -0.006527   19.933807
     6   74   -0.006527   19.933807
     6   75   -0.006527   19.933807
     6   76   -0.006527   19.933807
     7    1    0.000131   19.915918
     7    2   -0.001409   19.916155
     7    3   -0.002890   19.916994
     7    4   -0.004250   19.918373
     7    5   -0.005438   19.920267
     7    6   -0.006416   19.922560
     7    7   -0.007155   19.925148
     7    8   -0.007656   19.927954
     7    9   -0.007942   19.930857
     7   10   -0.007938   19.933762
     7   11   -0.007938   19.933762
     7   12   -0.007938   19.933762
     7   13   -0.007938   19.933762
     7   14   -0.007938   19.933762
     7   15   -0.007938   19.933762
     7   16   -0.007938   19.933762
     7   17   -0.007938   19.933762
     7   18   -0.007938   19.933762
     7   19   -0.007938   19.933762
     7   20   -0.007938   19.933762
     7   21   -0.007938   19.933762
     7   22   -0.007938   19.933762
     7   23   -0.007938   19.933762
     7   24   -0.007938   19.933762
     7   25   -0.007938   19.933762
     7   26   -0.007938   19.933762
     7   27   -0.007938   19.933762
     7   28   -0.007938   19.933762
     7   29   -0.007938   19.933762
     7   30   -0.007938   19.933762
     7   31   -0.007938   19.933762
     7   32   -0.007938   19.933762
     7   33   -0.007938   19.933762
     7   34   -0.007938   19.933762
     7   35   -0.007938   19.933762
     7   36   -0.007938   19.933762
     7   37   -0.007938   19.933762
     7   38   -0.007938   19.933762
     7   39   -0.007938   19.933762
     7   40   -0.007938   19.933762
     7   41   -0.007938   19.933762
     7   42   -0.007938   19.933762
     7   43   -0.007938   19.933762
     7   44   -0.007938   19.933762
     7   45   -0.007938   19.933762
     7   46   -0.007938   19.933762
     7   47   -0.007938   19.933762
     7   48   -0.007938   19.933762
     7   49   -0.007938   19.933762
     7   50   -0.007938   19.933762
     7   51   -0.007938   19.933762
     7   52   -0.007938   19.933762
     7   53   -0.007938   19.933762
     7   54   -0.007938   19.933762
     7   55   -0.007938   19.933762
     7   56   -0.007938   19.933762
     7   57   -0.007938   19.933762
     7   58   -0.007938   19.933762
     7   59   -0.007938   19.933762
     7   60   -0.007938   19.933762
     7   61   -0.007938   19.933762
     7   62   -0.007938   19.933762
     7   63   -0.007938   19.933762
     7   64   -0.007938   19.933762
     7   65   -0.007938   19.933762
     7   66   -0.007938   19.933762
     7   67   -0.007938   19.933762
     7   68   -0.007938   19.933762
     7   69   -0.007938   19.933762
     7   70   -0.007938   19.933762
     7   71   -0.007938   19.933762
     7   72   -0.007938   19.933762
     7   73   -0.007938   19.933762
     7   74   -0.007938   19.933762
     7   75   -0.007938   19.933762
     7   76   -0.007938   19.933762
     8    1    0.000187   19.914215
     8    2   -0.001731   19.914471
     8    3   -0.003569   19.915382
     8    4   -0.005267   19.916945
     8    5   -0.006725   19.919048
     8    6   -0.007916   19.921623
     8    7   -0.008785   19.924475
     8    8   -0.009347   19.927542
     8    9   -0.009624   19.930687
     8   10   -0.009593   19.933867
     8   11   -0.009593   19.933867
     8   12   -0.009593   19.933867
     8   13   -0.009593   19.933867
     8   14   -0.009593   19.933867
     8   15   -0.009593   19.933867
     8   16   -0.009593   19.933867
     8   17   -0.009593   19.933867
     8   18   -0.009593   19.933867
     8   19   -0.009593   19.933867
     8   20   -0.009593   19.933867
     8   21   -0.009593   19.933867
     8   22   -0.009593   19.933867
     8   23   -0.009593   19.933867
     8   24   -0.009593   19.933867
     8   25   -0.009593   19.933867
     8   26   -0.009593   19.933867
     8   27   -0.009593   19.933867
     8   28   -0.009593   19.933867
     8   29   -0.009593   19.933867
     8   30   -0.009593   19.933867
     8   31   -0.009593   19.933867
     8   32   -0.009593   19.933867
     8   33   -0.009593   19.933867
     8   34   -0.009593   19.933867
     8   35   -0.009593   19.933867
     8   36   -0.009593   19.933867
     8   37   -0.009593   19.933867
     8   38   -0.009593   19.933867
     8   39   -0.009593   19.933867
     8   40   -0.009593   19.933867
     8   41   -0.009593   19.933867
     8   42   -0.009593   19.933867
     8   43   -0.009593   19.933867
     8   44   -0.009593   19.933867
     8   45   -0.009593   19.933867
     8   46   -0.009593   19.933867
     8   47   -0.009593   19.933867
     8   48   -0.009593   19.933867
     8   49   -0.009593   19.933867
     8   50   -0.009593   19.933867
     8   51   -0.009593   19.933867
     8   52   -0.009593   19.933867
     8   53   -0.009593   19.933867
     8   54   -0.009593   19.933867
     8   55   -0.009593   19.933867
     8   56   -0.009593   19.933867
     8   57   -0.009593   19.933867
     8   58   -0.009593   19.933867
     8   59   -0.009593   19.933867
     8   60   -0.009593   19.933867
     8   61   -0.009593   19.933867
     8   62   -0.009593   19.933867
     8   63   -0.009593   19.933867
     8   64   -0.009593   19.933867
     8   65   -0.009593   19.933867
     8   66   -0.009593   19.933867
     8   67   -0.009593   19.933867
     8   68   -0.009593   19.933867
     8   69   -0.009593   19.933867
     8   70   -0.009593   19.933867
     8   71   -0.009593   19.933867
     8   72   -0.009593   19.933867
     8   73   -0.009593   19.933867
     8   74   -0.009593   19.933867
     8   75   -0.009593   19.933867
     8   76   -0.009593   19.933867
     9    1    0.000256   19.912048
     9    2   -0.002106   19.912342
     9    3   -0.004386   19.913399
     9    4   -0.006454   19.915203
     9    5   -0.008222   19.917583
     9    6   -0.009638   19.920481
     9    7   -0.010645   19.923695
     9    8   -0.011271   19.927126
     9    9   -0.011506   19.930565
     9   10   -0.011378   19.934059
     9   11   -0.011378   19.934059
     9   12   -0.011378   19.934059
     9   13   -0.011378   19.934059
     9   14   -0.011378   19.934059
     9   15   -0.011378   19.934059
     9   16   -0.011378   19.934059
     9   17   -0.011378   19.934059
     9   18   -0.011378   19.934059
     9   19   -0.011378   19.934059
     9   20   -0.011378   19.934059
     9   21   -0.011378   19.934059
     9   22   -0.011378   19.934059
     9   23   -0.011378   19.934059
     9   24   -0.011378   19.934059
     9   25   -0.011378   19.934059
     9   26   -0.011378   19.934059
     9   27   -0.011378   19.934059
     9   28   -0.011378   19.934059
     9   29   -0.011378   19.934059
     9   30   -0.011378   19.934059
     9   31   -0.011378   19.934059
     9   32   -0.011378   19.934059
     9   33   -0.011378   19.934059
     9   34   -0.011378   19.934059
     9   35   -0.011378   19.934059
     9   36   -0.011378   19.934059
     9   37   -0.011378   19.934059
     9   38   -0.011378   19.934059
     9   39   -0.011378   19.934059
     9   40   -0.011378   19.934059
     9   41   -0.011378   19.934059
     9   42   -0.011378   19.934059
     9   43   -0.011378   19.934059
     9   44   -0.011378   19.934059
     9   45   -0.011378   19.934059
     9   46   -0.011378   19.934059
     9   47   -0.011378   19.934059
     9   48   -0.011378   19.934059
     9   49   -0.011378   19.934059
     9   50   -0.011378   19.934059
     9   51   -0.011378   19.934059
     9   52   -0.011378   19.934059
     9   53   -0.011378   19.934059
     9   54   -0.011378   19.934059
     9   55   -0.011378   19.934059
     9   56   -0.011378   19.934059
     9   57   -0.011378   19.934059
     9   58   -0.011378   19.934059
     9   59   -0.011378   19.934059
     9   60   -0.011378   19.934059
     9   61   -0.011378   19.934059
     9   62   -0.011378   19.934059
     9   63   -0.011378   19.934059
     9   64   -0.011378   19.934059
     9   65   -0.011378   19.934059
     9   66   -0.011378   19.934059
     9   67   -0.011378   19.934059
     9   68   -0.011378   19.934059
     9   69   -0.011378   19.934059
     9   70   -0.011378   19.934059
     9   71   -0.011378   19.934059
     9   72   -0.011378   19.934059
     9   73   -0.011378   19.934059
     9   74   -0.011378   19.934059
     9   75   -0.011378   19.934059
     9   76   -0.011378   19.934059
    10    1    0.000345   19.909428
    10    2   -0.002569   19.909782
    10    3   -0.005365   19.910990
    10    4   -0.007879   19.913071
    10    5   -0.010008   19.915825
    10    6   -0.011688   19.919203
    10    7   -0.012822   19.922859
    10    8   -0.013458   19.926710
    10    9   -0.013627   19.930544
    10   10   -0.013284   19.934261
    10   11   -0.013284   19.934261
    10   12   -0.013284   19.934261
    10   13   -0.013284   19.934261
    10   14   -0.013284   19.934261
    10   15   -0.013284   19.934261
    10   16   -0.013284   19.934261
    10   17   -0.013284   19.934261
    10   18   -0.013284   19.934261
    10   19   -0.013284   19.934261
    10   20   -0.013284   19.934261
    10   21   -0.013284   19.934261
    10   22   -0.013284   19.934261
    10   23   -0.013284   19.934261
    10   24   -0.013284   19.934261
    10   25   -0.013284   19.934261
    10   26   -0.013284   19.934261
    10   27   -0.013284   19.934261
    10   28   -0.013284   19.934261
    10   29   -0.013284   19.934261
    10   30   -0.013284   19.934261
    10   31   -0.013284   19.934261
    10   32   -0.013284   19.934261
    10   33   -0.013284   19.934261
    10   34   -0.013284   19.934261
    10   35   -0.013284   19.934261
    10   36   -0.013284   19.934261
    10   37   -0.013284   19.934261
    10   38   -0.013284   19.934261
    10   39   -0.013284   19.934261
    10   40   -0.013284   19.934261
    10   41   -0.013284   19.934261
    10   42   -0.013284   19.934261
    10   43   -0.013284   19.934261
    10   44   -0.013284   19.934261
    10   45   -0.013284   19.934261
    10   46   -0.013284   19.934261
    10   47   -0.013284   19.934261
    10   48   -0.013284   19.934261
    10   49   -0.013284   19.934261
    10   50   -0.013284   19.934261
    10   51   -0.013284   19.934261
    10   52   -0.013284   19.934261
    10   53   -0.013284   19.934261
    10   54   -0.013284   19.934261
    10   55   -0.013284   19.934261
    10   56   -0.013284   19.934261
    10   57   -0.013284   19.934261
    10   58   -0.013284   19.934261
    10   59   -0.013284   19.934261
    10   60   -0.013284   19.934261
    10   61   -0.013284   19.934261
    10   62   -0.013284   19.934261
    10   63   -0.013284   19.934261
    10   64   -0.013284   19.934261
    10   65   -0.013284   19.934261
    10   66   -0.013284   19.934261
    10   67   -0.013284   19.934261
    10   68   -0.013284   19.934261
    10   69   -0.013284   19.934261
    10   70   -0.013284   19.934261
    10   71   -0.013284   19.934261
    10   72   -0.013284   19.934261
    10   73   -0.013284   19.934261
    10   74   -0.013284   19.934261
    10   75   -0.013284   19.934261
    10   76   -0.013284   19.934261
    11    1    0.000467   19.906191
    11    2   -0.003143   19.906580
    11    3   -0.006545   19.907978
    11    4   -0.009606   19.910467
    11    5   -0.012194   19.913795
    11    6   -0.014157   19.917723
    11    7   -0.015402   19.921932
    11    8   -0.016021   19.926369
    11    9   -0.016048   19.930676
    11   10   -0.015439   19.934858
    11   11   -0.015439   19.934858
    11   12   -0.015439   19.934858
    11   13   -0.015439   19.934858
    11   14   -0.015439   19.934858
    11   15   -0.015439   19.934858
    11   16   -0.015439   19.934858
    11   17   -0.015439   19.934858
    11   18   -0.015439   19.934858
    11   19   -0.015439   19.934858
    11   20   -0.015439   19.934858
    11   21   -0.015439   19.934858
    11   22   -0.015439   19.934858
    11   23   -0.015439   19.934858
    11   24   -0.015439   19.934858
    11   25   -0.015439   19.934858
    11   26   -0.015439   19.934858
    11   27   -0.015439   19.934858
    11   28   -0.015439   19.934858
    11   29   -0.015439   19.934858
    11   30   -0.015439   19.934858
    11   31   -0.015439   19.934858
    11   32   -0.015439   19.934858
    11   33   -0.015439   19.934858
    11   34   -0.015439   19.934858
    11   35   -0.015439   19.934858
    11   36   -0.015439   19.934858
    11   37   -0.015439   19.934858
    11   38   -0.015439   19.934858
    11   39   -0.015439   19.934858
    11   40   -0.015439   19.934858
    11   41   -0.015439   19.934858
    11   42   -0.015439   19.934858
    11   43   -0.015439   19.934858
    11   44   -0.015439   19.934858
    11   45   -0.015439   19.934858
    11   46   -0.015439   19.934858
    11   47   -0.015439   19.934858
    11   48   -0.015439   19.934858
    11   49   -0.015439   19.934858
    11   50   -0.015439   19.934858
    11   51   -0.015439   19.934858
    11   52   -0.015439   19.934858
    11   53   -0.015439   19.934858
    11   54   -0.015439   19.934858
    11   55   -0.015439   19.934858
    11   56   -0.015439   19.934858
    11   57   -0.015439   19.934858
    11   58   -0.015439   19.934858
    11   59   -0.015439   19.934858
    11   60   -0.015439   19.934858
    11   61   -0.015439   19.934858
    11   62   -0.015439   19.934858
    11   63   -0.015439   19.934858
    11   64   -0.015439   19.934858
    11   65   -0.015439   19.934858
    11   66   -0.015439   19.934858
    11   67   -0.015439   19.934858
    11   68   -0.015439   19.934858
    11   69   -0.015439   19.934858
    11   70   -0.015439   19.934858
    11   71   -0.015439   19.934858
    11   72   -0.015439   19.934858
    11   73   -0.015439   19.934858
    11   74   -0.015439   19.934858
    11   75   -0.015439   19.934858
    11   76   -0.015439   19.934858
    12    1    0.000633   19.902145
    12    2   -0.003799   19.902599
    12    3   -0.008034   19.904333
    12    4   -0.011844   19.907421
    12    5   -0.014895   19.911324
    12    6   -0.017158   19.916014
    12    7   -0.018567   19.920984
    12    8   -0.019011   19.926140
    12    9   -0.018845   19.931087
    12   10   -0.017971   19.935814
    12   11   -0.017971   19.935814
    12   12   -0.017971   19.935814
    12   13   -0.017971   19.935814
    12   14   -0.017971   19.935814
    12   15   -0.017971   19.935814
    12   16   -0.017971   19.935814
    12   17   -0.017971   19.935814
    12   18   -0.017971   19.935814
    12   19   -0.017971   19.935814
    12   20   -0.017971   19.935814
    12   21   -0.017971   19.935814
    12   22   -0.017971   19.935814
    12   23   -0.017971   19.935814
    12   24   -0.017971   19.935814
    12   25   -0.017971   19.935814
    12   26   -0.017971   19.935814
    12   27   -0.017971   19.935814
    12   28   -0.017971   19.935814
    12   29   -0.017971   19.935814
    12   30   -0.017971   19.935814
    12   31   -0.017971   19.935814
    12   32   -0.017971   19.935814
    12   33   -0.017971   19.935814
    12   34   -0.017971   19.935814
    12   35   -0.017971   19.935814
    12   36   -0.017971   19.935814
    12   37   -0.017971   19.935814
    12   38   -0.017971   19.935814
    12   39   -0.017971   19.935814
    12   40   -0.017971   19.935814
    12   41   -0.017971   19.935814
    12   42   -0.017971   19.935814
    12   43   -0.017971   19.935814
    12   44   -0.017971   19.935814
    12   45   -0.017971   19.935814
    12   46   -0.017971   19.935814
    12   47   -0.017971   19.935814
    12   48   -0.017971   19.935814
    12   49   -0.017971   19.935814
    12   50   -0.017971   19.935814
    12   51   -0.017971   19.935814
    12   52   -0.017971   19.935814
    12   53   -0.017971   19.935814
    12   54   -0.017971   19.935814
    12   55   -0.017971   19.935814
    12   56   -0.017971   19.935814
    12   57   -0.017971   19.935814
    12   58   -0.017971   19.935814
    12   59   -0.017971   19.935814
    12   60   -0.017971   19.935814
    12   61   -0.017971   19.935814
    12   62   -0.017971   19.935814
    12   63   -0.017971   19.935814
    12   64   -0.017971   19.935814
    12   65   -0.017971   19.935814
    12   66   -0.017971   19.935814
    12   67   -0.017971   19.935814
    12   68   -0.017971   19.935814
    12   69   -0.017971   19.935814
    12   70   -0.017971   19.935814
    12   71   -0.017971   19.935814
    12   72   -0.017971   19.935814
    12   73   -0.017971   19.935814
    12   74   -0.017971   19.935814
    12   75   -0.017971   19.935814
    12   76   -0.017971   19.935814
    13    1    0.000849   19.897142
    13    2   -0.004700   19.897720
    13    3   -0.009921   19.899899
    13    4   -0.014637   19.903606
    13    5   -0.018348   19.908419
    13    6   -0.020887   19.914028
    13    7   -0.022358   19.920082
    13    8   -0.022743   19.926191
    13    9   -0.022179   19.931841
    13   10   -0.020492   19.937120
    13   11   -0.020492   19.937120
    13   12   -0.020492   19.937120
    13   13   -0.020492   19.937120
    13   14   -0.020492   19.937120
    13   15   -0.020492   19.937120
    13   16   -0.020492   19.937120
    13   17   -0.020492   19.937120
    13   18   -0.020492   19.937120
    13   19   -0.020492   19.937120
    13   20   -0.020492   19.937120
    13   21   -0.020492   19.937120
    13   22   -0.020492   19.937120
    13   23   -0.020492   19.937120
    13   24   -0.020492   19.937120
    13   25   -0.020492   19.937120
    13   26   -0.020492   19.937120
    13   27   -0.020492   19.937120
    13   28   -0.020492   19.937120
    13   29   -0.020492   19.937120
    13   30   -0.020492   19.937120
    13   31   -0.020492   19.937120
    13   32   -0.020492   19.937120
    13   33   -0.020492   19.937120
    13   34   -0.020492   19.937120
    13   35   -0.020492   19.937120
    13   36   -0.020492   19.937120
    13   37   -0.020492   19.937120
    13   38   -0.020492   19.937120
    13   39   -0.020492   19.937120
    13   40   -0.020492   19.937120
    13   41   -0.020492   19.937120
    13   42   -0.020492   19.937120
    13   43   -0.020492   19.937120
    13   44   -0.020492   19.937120
    13   45   -0.020492   19.937120
    13   46   -0.020492   19.937120
    13   47   -0.020492   19.937120
    13   48   -0.020492   19.937120
    13   49   -0.020492   19.937120
    13   50   -0.020492   19.937120
    13   51   -0.020492   19.937120
    13   52   -0.020492   19.937120
    13   53   -0.020492   19.937120
    13   54   -0.020492   19.937120
    13   55   -0.020492   19.937120
    13   56   -0.020492   19.937120
    13   57   -0.020492   19.937120
    13   58   -0.020492   19.937120
    13   59   -0.020492   19.937120
    13   60   -0.020492   19.937120
    13   61   -0.020492   19.937120
    13   62   -0.020492   19.937120
    13   63   -0.020492   19.937120
    13   64   -0.020492   19.937120
    13   65   -0.020492   19.937120
    13   66   -0.020492   19.937120
    13   67   -0.020492   19.937120
    13   68   -0.020492   19.937120
    13   69   -0.020492   19.937120
    13   70   -0.020492   19.937120
    13   71   -0.020492   19.937120
    13   72   -0.020492   19.937120
    13   73   -0.020492   19.937120
    13   74   -0.020492   19.937120
    13   75   -0.020492   19.937120
    13   76   -0.020492   19.937120
    14    1    0.001106   19.890917
    14    2   -0.005859   19.891582
    14    3   -0.012359   19.894230
    14    4   -0.018084   19.898981
    14    5   -0.022475   19.904760
    14    6   -0.025750   19.911819
    14    7   -0.027168   19.919199
    14    8   -0.027256   19.926519
    14    9   -0.026078   19.933178
    14   10   -0.023494   19.939432
    14   11   -0.023494   19.939432
    14   12   -0.023494   19.939432
    14   13   -0.023494   19.939432
    14   14   -0.023494   19.939432
    14   15   -0.023494   19.939432
    14   16   -0.023494   19.939432
    14   17   -0.023494   19.939432
    14   18   -0.023494   19.939432
    14   19   -0.023494   19.939432
    14   20   -0.023494   19.939432
    14   21   -0.023494   19.939432
    14   22   -0.023494   19.939432
    14   23   -0.023494   19.939432
    14   24   -0.023494   19.939432
    14   25   -0.023494   19.939432
    14   26   -0.023494   19.939432
    14   27   -0.023494   19.939432
    14   28   -0.023494   19.939432
    14   29   -0.023494   19.939432
    14   30   -0.023494   19.939432
    14   31   -0.023494   19.939432
    14   32   -0.023494   19.939432
    14   33   -0.023494   19.939432
    14   34   -0.023494   19.939432
    14   35   -0.023494   19.939432
    14   36   -0.023494   19.939432
    14   37   -0.023494   19.939432
    14   38   -0.023494   19.939432
    14   39   -0.023494   19.939432
    14   40   -0.023494   19.939432
    14   41   -0.023494   19.939432
    14   42   -0.023494   19.939432
    14   43   -0.023494   19.939432
    14   44   -0.023494   19.939432
    14   45   -0.023494   19.939432
    14   46   -0.023494   19.939432
    14   47   -0.023494   19.939432
    14   48   -0.023494   19.939432
    14   49   -0.023494   19.939432
    14   50   -0.023494   19.939432
    14   51   -0.023494   19.939432
    14   52   -0.023494   19.939432
    14   53   -0.023494   19.939432
    14   54   -0.023494   19.939432
    14   55   -0.023494   19.939432
    14   56   -0.023494   19.939432
    14   57   -0.023494   19.939432
    14   58   -0.023494   19.939432
    14   59   -0.023494   19.939432
    14   60   -0.023494   19.939432
    14   61   -0.023494   19.939432
    14   62   -0.023494   19.939432
    14   63   -0.023494   19.939432
    14   64   -0.023494   19.939432
    14   65   -0.023494   19.939432
    14   66   -0.023494   19.939432
    14   67   -0.023494   19.939432
    14   68   -0.023494   19.939432
    14   69   -0.023494   19.939432
    14   70   -0.023494   19.939432
    14   71   -0.023494   19.939432
    14   72   -0.023494   19.939432
    14   73   -0.023494   19.939432
    14   74   -0.023494   19.939432
    14   75   -0.023494   19.939432
    14   76   -0.023494   19.939432
    15    1    0.001418   19.883070
    15    2   -0.007316   19.883953
    15    3   -0.015402   19.887379
    15    4   -0.022556   19.893240
    15    5   -0.027988   19.900499
    15    6   -0.031762   19.909344
    15    7   -0.033146   19.918491
    15    8   -0.032896   19.927362
    15    9   -0.030774   19.935375
    15   10   -0.027223   19.942524
    15   11   -0.027223   19.942524
    15   12   -0.027223   19.942524
    15   13   -0.027223   19.942524
    15   14   -0.027223   19.942524
    15   15   -0.027223   19.942524
    15   16   -0.027223   19.942524
    15   17   -0.027223   19.942524
    15   18   -0.027223   19.942524
    15   19   -0.027223   19.942524
    15   20   -0.027223   19.942524
    15   21   -0.027223   19.942524
    15   22   -0.027223   19.942524
    15   23   -0.027223   19.942524
    15   24   -0.027223   19.942524
    15   25   -0.027223   19.942524
    15   26   -0.027223   19.942524
    15   27   -0.027223   19.942524
    15   28   -0.027223   19.942524
    15   29   -0.027223   19.942524
    15   30   -0.027223   19.942524
    15   31   -0.027223   19.942524
    15   32   -0.027223   19.942524
    15   33   -0.027223   19.942524
    15   34   -0.027223   19.942524
    15   35   -0.027223   19.942524
    15   36   -0.027223   19.942524
    15   37   -0.027223   19.942524
    15   38   -0.027223   19.942524
    15   39   -0.027223   19.942524
    15   40   -0.027223   19.942524
    15   41   -0.027223   19.942524
    15   42   -0.027223   19.942524
    15   43   -0.027223   19.942524
    15   44   -0.027223   19.942524
    15   45   -0.027223   19.942524
    15   46   -0.027223   19.942524
    15   47   -0.027223   19.942524
    15   48   -0.027223   19.942524
    15   49   -0.027223   19.942524
    15   50   -0.027223   19.942524
    15   51   -0.027223   19.942524
    15   52   -0.027223   19.942524
    15   53   -0.027223   19.942524
    15   54   -0.027223   19.942524
    15   55   -0.027223   19.942524
    15   56   -0.027223   19.942524
    15   57   -0.027223   19.942524
    15   58   -0.027223   19.942524
    15   59   -0.027223   19.942524
    15   60   -0.027223   19.942524
    15   61   -0.027223   19.942524
    15   62   -0.027223   19.942524
    15   63   -0.027223   19.942524
    15   64   -0.027223   19.942524
    15   65   -0.027223   19.942524
    15   66   -0.027223   19.942524
    15   67   -0.027223   19.942524
    15   68   -0.027223   19.942524
    15   69   -0.027223   19.942524
    15   70   -0.027223   19.942524
    15   71   -0.027223   19.942524
    15   72   -0.027223   19.942524
    15   73   -0.027223   19.942524
    15   74   -0.027223   19.942524
    15   75   -0.027223   19.942524
    15   76   -0.027223   19.942524
    16    1    0.001875   19.873129
    16    2   -0.009176   19.874378
    16    3   -0.019521   19.878712
    16    4   -0.028432   19.886259
    16    5   -0.035074   19.895590
    16    6   -0.039465   19.906790
    16    7   -0.040699   19.918180
    16    8   -0.039725   19.929087
    16    9   -0.036637   19.938719
    16   10   -0.031106   19.947405
    16   11   -0.031106   19.947405
    16   12   -0.031106   19.947405
    16   13   -0.031106   19.947405
    16   14   -0.031106   19.947405
    16   15   -0.031106   19.947405
    16   16   -0.031106   19.947405
    16   17   -0.031106   19.947405
    16   18   -0.031106   19.947405
    16   19   -0.031106   19.947405
    16   20   -0.031106   19.947405
    16   21   -0.031106   19.947405
    16   22   -0.031106   19.947405
    16   23   -0.031106   19.947405
    16   24   -0.031106   19.947405
    16   25   -0.031106   19.947405
    16   26   -0.031106   19.947405
    16   27   -0.031106   19.947405
    16   28   -0.031106   19.947405
    16   29   -0.031106   19.947405
    16   30   -0.031106   19.947405
    16   31   -0.031106   19.947405
    16   32   -0.031106   19.947405
    16   33   -0.031106   19.947405
    16   34   -0.031106   19.947405
    16   35   -0.031106   19.947405
    16   36   -0.031106   19.947405
    16   37   -0.031106   19.947405
    16   38   -0.031106   19.947405
    16   39   -0.031106   19.947405
    16   40   -0.031106   19.947405
    16   41   -0.031106   19.947405
    16   42   -0.031106   19.947405
    16   43   -0.031106   19.947405
    16   44   -0.031106   19.947405
    16   45   -0.031106   19.947405
    16   46   -0.031106   19.947405
    16   47   -0.031106   19.947405
    16   48   -0.031106   19.947405
    16   49   -0.031106   19.947405
    16   50   -0.031106   19.947405
    16   51   -0.031106   19.947405
    16   52   -0.031106   19.947405
    16   53   -0.031106   19.947405
    16   54   -0.031106   19.947405
    16   55   -0.031106   19.947405
    16   56   -0.031106   19.947405
    16   57   -0.031106   19.947405
    16   58   -0.031106   19.947405
    16   59   -0.031106   19.947405
    16   60   -0.031106   19.947405
    16   61   -0.031106   19.947405
    16   62   -0.031106   19.947405
    16   63   -0.031106   19.947405
    16   64   -0.031106   19.947405
    16   65   -0.031106   19.947405
    16   66   -0.031106   19.947405
    16   67   -0.031106   19.947405
    16   68   -0.031106   19.947405
    16   69   -0.031106   19.947405
    16   70   -0.031106   19.947405
    16   71   -0.031106   19.947405
    16   72   -0.031106   19.947405
    16   73   -0.031106   19.947405
    16   74   -0.031106   19.947405
    16   75   -0.031106   19.947405
    16   76   -0.031106   19.947405
    17    1    0.002365   19.860437
    17    2   -0.011807   19.862190
    17    3   -0.024955   19.867966
    17    4   -0.036270   19.877539
    17    5   -0.044523   19.889875
    17    6   -0.049328   19.903879
    17    7   -0.050566   19.918125
    17    8   -0.048395   19.931999
    17    9   -0.043598   19.943766
    17   10   -0.035820   19.953625
    17   11   -0.035820   19.953625
    17   12   -0.035820   19.953625
    17   13   -0.035820   19.953625
    17   14   -0.035820   19.953625
    17   15   -0.035820   19.953625
    17   16   -0.035820   19.953625
    17   17   -0.035820   19.953625
    17   18   -0.035820   19.953625
    17   19   -0.035820   19.953625
    17   20   -0.035820   19.953625
    17   21   -0.035820   19.953625
    17   22   -0.035820   19.953625
    17   23   -0.035820   19.953625
    17   24   -0.035820   19.953625
    17   25   -0.035820   19.953625
    17   26   -0.035820   19.953625
    17   27   -0.035820   19.953625
    17   28   -0.035820   19.953625
    17   29   -0.035820   19.953625
    17   30   -0.035820   19.953625
    17   31   -0.035820   19.953625
    17   32   -0.035820   19.953625
    17   33   -0.035820   19.953625
    17   34   -0.035820   19.953625
    17   35   -0.035820   19.953625
    17   36   -0.035820   19.953625
    17   37   -0.035820   19.953625
    17   38   -0.035820   19.953625
    17   39   -0.035820   19.953625
    17   40   -0.035820   19.953625
    17   41   -0.035820   19.953625
    17   42   -0.035820   19.953625
    17   43   -0.035820   19.953625
    17   44   -0.035820   19.953625
    17   45   -0.035820   19.953625
    17   46   -0.035820   19.953625
    17   47   -0.035820   19.953625
    17   48   -0.035820   19.953625
    17   49   -0.035820   19.953625
    17   50   -0.035820   19.953625
    17   51   -0.035820   19.953625
    17   52   -0.035820   19.953625
    17   53   -0.035820   19.953625
    17   54   -0.035820   19.953625
    17   55   -0.035820   19.953625
    17   56   -0.035820   19.953625
    17   57   -0.035820   19.953625
    17   58   -0.035820   19.953625
    17   59   -0.035820   19.953625
    17   60   -0.035820   19.953625
    17   61   -0.035820   19.953625
    17   62   -0.035820   19.953625
    17   63   -0.035820   19.953625
    17   64   -0.035820   19.953625
    17   65   -0.035820   19.953625
    17   66   -0.035820   19.953625
    17   67   -0.035820   19.953625
    17   68   -0.035820   19.953625
    17   69   -0.035820   19.953625
    17   70   -0.035820   19.953625
    17   71   -0.035820   19.953625
    17   72   -0.035820   19.953625
    17   73   -0.035820   19.953625
    17   74   -0.035820   19.953625
    17   75   -0.035820   19.953625
    17   76   -0.035820   19.953625
    18    1    0.002947   19.844322
    18    2   -0.015377   19.846714
    18    3   -0.032168   19.854183
    18    4   -0.046461   19.866461
    18    5   -0.056953   19.882187
    18    6   -0.062586   19.900585
    18    7   -0.063287   19.919132
    18    8   -0.059695   19.936516
    18    9   -0.052430   19.951313
    18   10   -0.041113   19.963188
    18   11   -0.041113   19.963188
    18   12   -0.041113   19.963188
    18   13   -0.041113   19.963188
    18   14   -0.041113   19.963188
    18   15   -0.041113   19.963188
    18   16   -0.041113   19.963188
    18   17   -0.041113   19.963188
    18   18   -0.041113   19.963188
    18   19   -0.041113   19.963188
    18   20   -0.041113   19.963188
    18   21   -0.041113   19.963188
    18   22   -0.041113   19.963188
    18   23   -0.041113   19.963188
    18   24   -0.041113   19.963188
    18   25   -0.041113   19.963188
    18   26   -0.041113   19.963188
    18   27   -0.041113   19.963188
    18   28   -0.041113   19.963188
    18   29   -0.041113   19.963188
    18   30   -0.041113   19.963188
    18   31   -0.041113   19.963188
    18   32   -0.041113   19.963188
    18   33   -0.041113   19.963188
    18   34   -0.041113   19.963188
    18   35   -0.041113   19.963188
    18   36   -0.041113   19.963188
    18   37   -0.041113   19.963188
    18   38   -0.041113   19.963188
    18   39   -0.041113   19.963188
    18   40   -0.041113   19.963188
    18   41   -0.041113   19.963188
    18   42   -0.041113   19.963188
    18   43   -0.041113   19.963188
    18   44   -0.041113   19.963188
    18   45   -0.041113   19.963188
    18   46   -0.041113   19.963188
    18   47   -0.041113   19.963188
    18   48   -0.041113   19.963188
    18   49   -0.041113   19.963188
    18   50   -0.041113   19.963188
    18   51   -0.041113   19.963188
    18   52   -0.041113   19.963188
    18   53   -0.041113   19.963188
    18   54   -0.041113   19.963188
    18   55   -0.041113   19.963188
    18   56   -0.041113   19.963188
    18   57   -0.041113   19.963188
    18   58   -0.041113   19.963188
    18   59   -0.041113   19.963188
    18   60   -0.041113   19.963188
    18   61   -0.041113   19.963188
    18   62   -0.041113   19.963188
    18   63   -0.041113   19.963188
    18   64   -0.041113   19.963188
    18   65   -0.041113   19.963188
    18   66   -0.041113   19.963188
    18   67   -0.041113   19.963188
    18   68   -0.041113   19.963188
    18   69   -0.041113   19.963188
    18   70   -0.041113   19.963188
    18   71   -0.041113   19.963188
    18   72   -0.041113   19.963188
    18   73   -0.041113   19.963188
    18   74   -0.041113   19.963188
    18   75   -0.041113   19.963188
    18   76   -0.041113   19.963188
    19    1    0.003636   19.823496
    19    2   -0.020258   19.826649
    19    3   -0.041695   19.836281
    19    4   -0.059539   19.852327
    19    5   -0.072664   19.873095
    19    6   -0.079586   19.896914
    19    7   -0.080336   19.920727
    19    8   -0.073629   19.943722
    19    9   -0.063484   19.962391
    19   10   -0.046328   19.974907
    19   11   -0.046328   19.974907
    19   12   -0.046328   19.974907
    19   13   -0.046328   19.974907
    19   14   -0.046328   19.974907
    19   15   -0.046328   19.974907
    19   16   -0.046328   19.974907
    19   17   -0.046328   19.974907
    19   18   -0.046328   19.974907
    19   19   -0.046328   19.974907
    19   20   -0.046328   19.974907
    19   21   -0.046328   19.974907
    19   22   -0.046328   19.974907
    19   23   -0.046328   19.974907
    19   24   -0.046328   19.974907
    19   25   -0.046328   19.974907
    19   26   -0.046328   19.974907
    19   27   -0.046328   19.974907
    19   28   -0.046328   19.974907
    19   29   -0.046328   19.974907
    19   30   -0.046328   19.974907
    19   31   -0.046328   19.974907
    19   32   -0.046328   19.974907
    19   33   -0.046328   19.974907
    19   34   -0.046328   19.974907
    19   35   -0.046328   19.974907
    19   36   -0.046328   19.974907
    19   37   -0.046328   19.974907
    19   38   -0.046328   19.974907
    19   39   -0.046328   19.974907
    19   40   -0.046328   19.974907
    19   41   -0.046328   19.974907
    19   42   -0.046328   19.974907
    19   43   -0.046328   19.974907
    19   44   -0.046328   19.974907
    19   45   -0.046328   19.974907
    19   46   -0.046328   19.974907
    19   47   -0.046328   19.974907
    19   48   -0.046328   19.974907
    19   49   -0.046328   19.974907
    19   50   -0.046328   19.974907
    19   51   -0.046328   19.974907
    19   52   -0.046328   19.974907
    19   53   -0.046328   19.974907
    19   54   -0.046328   19.974907
    19   55   -0.046328   19.974907
    19   56   -0.046328   19.974907
    19   57   -0.046328   19.974907
    19   58   -0.046328   19.974907
    19   59   -0.046328   19.974907
    19   60   -0.046328   19.974907
    19   61   -0.046328   19.974907
    19   62   -0.046328   19.974907
    19   63   -0.046328   19.974907
    19   64   -0.046328   19.974907
    19   65   -0.046328   19.974907
    19   66   -0.046328   19.974907
    19   67   -0.046328   19.974907
    19   68   -0.046328   19.974907
    19   69   -0.046328   19.974907
    19   70   -0.046328   19.974907
    19   71   -0.046328   19.974907
    19   72   -0.046328   19.974907
    19   73   -0.046328   19.974907
    19   74   -0.046328   19.974907
    19   75   -0.046328   19.974907
    19   76   -0.046328   19.974907
    20    1    0.004550   19.796320
    20    2   -0.025922   19.800156
    20    3   -0.054313   19.812883
    20    4   -0.077719   19.834593
    20    5   -0.094594   19.861000
    20    6   -0.102078   19.893602
    20    7   -0.102055   19.924641
    20    8   -0.093734   19.954399
    20    9   -0.078008   19.978094
    20   10   -0.059094   19.997625
    20   11   -0.059094   19.997625
    20   12   -0.059094   19.997625
    20   13   -0.059094   19.997625
    20   14   -0.059094   19.997625
    20   15   -0.059094   19.997625
    20   16   -0.059094   19.997625
    20   17   -0.059094   19.997625
    20   18   -0.059094   19.997625
    20   19   -0.059094   19.997625
    20   20   -0.059094   19.997625
    20   21   -0.059094   19.997625
    20   22   -0.059094   19.997625
    20   23   -0.059094   19.997625
    20   24   -0.059094   19.997625
    20   25   -0.059094   19.997625
    20   26   -0.059094   19.997625
    20   27   -0.059094   19.997625
    20   28   -0.059094   19.997625
    20   29   -0.059094   19.997625
    20   30   -0.059094   19.997625
    20   31   -0.059094   19.997625
    20   32   -0.059094   19.997625
    20   33   -0.059094   19.997625
    20   34   -0.059094   19.997625
    20   35   -0.059094   19.997625
    20   36   -0.059094   19.997625
    20   37   -0.059094   19.997625
    20   38   -0.059094   19.997625
    20   39   -0.059094   19.997625
    20   40   -0.059094   19.997625
    20   41   -0.059094   19.997625
    20   42   -0.059094   19.997625
    20   43   -0.059094   19.997625
    20   44   -0.059094   19.997625
    20   45   -0.059094   19.997625
    20   46   -0.059094   19.997625
    20   47   -0.059094   19.997625
    20   48   -0.059094   19.997625
    20   49   -0.059094   19.997625
    20   50   -0.059094   19.997625
    20   51   -0.059094   19.997625
    20   52   -0.059094   19.997625
    20   53   -0.059094   19.997625
    20   54   -0.059094   19.997625
    20   55   -0.059094   19.997625
    20   56   -0.059094   19.997625
    20   57   -0.059094   19.997625
    20   58   -0.059094   19.997625
    20   59   -0.059094   19.997625
    20   60   -0.059094   19.997625
    20   61   -0.059094   19.997625
    20   62   -0.059094   19.997625
    20   63   -0.059094   19.997625
    20   64   -0.059094   19.997625
    20   65   -0.059094   19.997625
    20   66   -0.059094   19.997625
    20   67   -0.059094   19.997625
    20   68   -0.059094   19.997625
    20   69   -0.059094   19.997625
    20   70   -0.059094   19.997625
    20   71   -0.059094   19.997625
    20   72   -0.059094   19.997625
    20   73   -0.059094   19.997625
    20   74   -0.059094   19.997625
    20   75   -0.059094   19.997625
    20   76   -0.059094   19.997625
    21    1    0.005506   19.760464
    21    2   -0.034313   19.765610
    21    3   -0.070344   19.782742
    21    4   -0.101078   19.811710
    21    5   -0.123266   19.847906
    21    6   -0.134313   19.887938
    21    7   -0.132250   19.930593
    21    8   -0.119250   19.969454
    21    9   -0.096313   19.999977
    21   10   -0.067688   20.023438
    21   11   -0.067688   20.023438
    21   12   -0.067688   20.023438
    21   13   -0.067688   20.023438
    21   14   -0.067688   20.023438
    21   15   -0.067688   20.023438
    21   16   -0.067688   20.023438
    21   17   -0.067688   20.023438
    21   18   -0.067688   20.023438
    21   19   -0.067688   20.023438
    21   20   -0.067688   20.023438
    21   21   -0.067688   20.023438
    21   22   -0.067688   20.023438
    21   23   -0.067688   20.023438
    21   24   -0.067688   20.023438
    21   25   -0.067688   20.023438
    21   26   -0.067688   20.023438
    21   27   -0.067688   20.023438
    21   28   -0.067688   20.023438
    21   29   -0.067688   20.023438
    21   30   -0.067688   20.023438
    21   31   -0.067688   20.023438
    21   32   -0.067688   20.023438
    21   33   -0.067688   20.023438
    21   34   -0.067688   20.023438
    21   35   -0.067688   20.023438
    21   36   -0.067688   20.023438
    21   37   -0.067688   20.023438
    21   38   -0.067688   20.023438
    21   39   -0.067688   20.023438
    21   40   -0.067688   20.023438
    21   41   -0.067688   20.023438
    21   42   -0.067688   20.023438
    21   43   -0.067688   20.023438
    21   44   -0.067688   20.023438
    21   45   -0.067688   20.023438
    21   46   -0.067688   20.023438
    21   47   -0.067688   20.023438
    21   48   -0.067688   20.023438
    21   49   -0.067688   20.023438
    21   50   -0.067688   20.023438
    21   51   -0.067688   20.023438
    21   52   -0.067688   20.023438
    21   53   -0.067688   20.023438
    21   54   -0.067688   20.023438
    21   55   -0.067688   20.023438
    21   56   -0.067688   20.023438
    21   57   -0.067688   20.023438
    21   58   -0.067688   20.023438
    21   59   -0.067688   20.023438
    21   60   -0.067688   20.023438
    21   61   -0.067688   20.023438
    21   62   -0.067688   20.023438
    21   63   -0.067688   20.023438
    21   64   -0.067688   20.023438
    21   65   -0.067688   20.023438
    21   66   -0.067688   20.023438
    21   67   -0.067688   20.023438
    21   68   -0.067688   20.023438
    21   69   -0.067688   20.023438
    21   70   -0.067688   20.023438
    21   71   -0.067688   20.023438
    21   72   -0.067688   20.023438
    21   73   -0.067688   20.023438
    21   74   -0.067688   20.023438
    21   75   -0.067688   20.023438
    21   76   -0.067688   20.023438
    22    1    0.006871   19.714399
    22    2   -0.045219   19.721243
    22    3   -0.093266   19.744055
    22    4   -0.133375   19.781937
    22    5   -0.161625   19.829546
    22    6   -0.174281   19.883125
    22    7   -0.170609   19.938313
    22    8   -0.155281   19.990843
    22    9   -0.119813   20.032343
    22   10   -0.074734   20.063032
    22   11   -0.074734   20.063032
    22   12   -0.074734   20.063032
    22   13   -0.074734   20.063032
    22   14   -0.074734   20.063032
    22   15   -0.074734   20.063032
    22   16   -0.074734   20.063032
    22   17   -0.074734   20.063032
    22   18   -0.074734   20.063032
    22   19   -0.074734   20.063032
    22   20   -0.074734   20.063032
    22   21   -0.074734   20.063032
    22   22   -0.074734   20.063032
    22   23   -0.074734   20.063032
    22   24   -0.074734   20.063032
    22   25   -0.074734   20.063032
    22   26   -0.074734   20.063032
    22   27   -0.074734   20.063032
    22   28   -0.074734   20.063032
    22   29   -0.074734   20.063032
    22   30   -0.074734   20.063032
    22   31   -0.074734   20.063032
    22   32   -0.074734   20.063032
    22   33   -0.074734   20.063032
    22   34   -0.074734   20.063032
    22   35   -0.074734   20.063032
    22   36   -0.074734   20.063032
    22   37   -0.074734   20.063032
    22   38   -0.074734   20.063032
    22   39   -0.074734   20.063032
    22   40   -0.074734   20.063032
    22   41   -0.074734   20.063032
    22   42   -0.074734   20.063032
    22   43   -0.074734   20.063032
    22   44   -0.074734   20.063032
    22   45   -0.074734   20.063032
    22   46   -0.074734   20.063032
    22   47   -0.074734   20.063032
    22   48   -0.074734   20.063032
    22   49   -0.074734   20.063032
    22   50   -0.074734   20.063032
    22   51   -0.074734   20.063032
    22   52   -0.074734   20.063032
    22   53   -0.074734   20.063032
    22   54   -0.074734   20.063032
    22   55   -0.074734   20.063032
    22   56   -0.074734   20.063032
    22   57   -0.074734   20.063032
    22   58   -0.074734   20.063032
    22   59   -0.074734   20.063032
    22   60   -0.074734   20.063032
    22   61   -0.074734   20.063032
    22   62   -0.074734   20.063032
    22   63   -0.074734   20.063032
    22   64   -0.074734   20.063032
    22   65   -0.074734   20.063032
    22   66   -0.074734   20.063032
    22   67   -0.074734   20.063032
    22   68   -0.074734   20.063032
    22   69   -0.074734   20.063032
    22   70   -0.074734   20.063032
    22   71   -0.074734   20.063032
    22   72   -0.074734   20.063032
    22   73   -0.074734   20.063032
    22   74   -0.074734   20.063032
    22   75   -0.074734   20.063032
    22   76   -0.074734   20.063032
    23    1    0.007826   19.653852
    23    2   -0.060672   19.663280
    23    3   -0.123438   19.693125
    23    4   -0.176203   19.741610
    23    5   -0.211625   19.805374
    23    6   -0.230594   19.877562
    23    7   -0.224969   19.952375
    23    8   -0.200563   20.021126
    23    9   -0.154656   20.078516
    23   10   -0.090969   20.116938
    23   11   -0.090969   20.116938
    23   12   -0.090969   20.116938
    23   13   -0.090969   20.116938
    23   14   -0.090969   20.116938
    23   15   -0.090969   20.116938
    23   16   -0.090969   20.116938
    23   17   -0.090969   20.116938
    23   18   -0.090969   20.116938
    23   19   -0.090969   20.116938
    23   20   -0.090969   20.116938
    23   21   -0.090969   20.116938
    23   22   -0.090969   20.116938
    23   23   -0.090969   20.116938
    23   24   -0.090969   20.116938
    23   25   -0.090969   20.116938
    23   26   -0.090969   20.116938
    23   27   -0.090969   20.116938
    23   28   -0.090969   20.116938
    23   29   -0.090969   20.116938
    23   30   -0.090969   20.116938
    23   31   -0.090969   20.116938
    23   32   -0.090969   20.116938
    23   33   -0.090969   20.116938
    23   34   -0.090969   20.116938
    23   35   -0.090969   20.116938
    23   36   -0.090969   20.116938
    23   37   -0.090969   20.116938
    23   38   -0.090969   20.116938
    23   39   -0.090969   20.116938
    23   40   -0.090969   20.116938
    23   41   -0.090969   20.116938
    23   42   -0.090969   20.116938
    23   43   -0.090969   20.116938
    23   44   -0.090969   20.116938
    23   45   -0.090969   20.116938
    23   46   -0.090969   20.116938
    23   47   -0.090969   20.116938
    23   48   -0.090969   20.116938
    23   49   -0.090969   20.116938
    23   50   -0.090969   20.116938
    23   51   -0.090969   20.116938
    23   52   -0.090969   20.116938
    23   53   -0.090969   20.116938
    23   54   -0.090969   20.116938
    23   55   -0.090969   20.116938
    23   56   -0.090969   20.116938
    23   57   -0.090969   20.116938
    23   58   -0.090969   20.116938
    23   59   -0.090969   20.116938
    23   60   -0.090969   20.116938
    23   61   -0.090969   20.116938
    23   62   -0.090969   20.116938
    23   63   -0.090969   20.116938
    23   64   -0.090969   20.116938
    23   65   -0.090969   20.116938
    23   66   -0.090969   20.116938
    23   67   -0.090969   20.116938
    23   68   -0.090969   20.116938
    23   69   -0.090969   20.116938
    23   70   -0.090969   20.116938
    23   71   -0.090969   20.116938
    23   72   -0.090969   20.116938
    23   73   -0.090969   20.116938
    23   74   -0.090969   20.116938
    23   75   -0.090969   20.116938
    23   76   -0.090969   20.116938
    24    1    0.009555   19.573986
    24    2   -0.080438   19.585625
    24    3   -0.162641   19.625298
    24    4   -0.232375   19.689360
    24    5   -0.280031   19.771891
    24    6   -0.305063   19.868750
    24    7   -0.300094   19.967937
    24    8   -0.266188   20.065720
    24    9   -0.205031   20.142313
    24   10   -0.100188   20.200188
    24   11   -0.100188   20.200188
    24   12   -0.100188   20.200188
    24   13   -0.100188   20.200188
    24   14   -0.100188   20.200188
    24   15   -0.100188   20.200188
    24   16   -0.100188   20.200188
    24   17   -0.100188   20.200188
    24   18   -0.100188   20.200188
    24   19   -0.100188   20.200188
    24   20   -0.100188   20.200188
    24   21   -0.100188   20.200188
    24   22   -0.100188   20.200188
    24   23   -0.100188   20.200188
    24   24   -0.100188   20.200188
    24   25   -0.100188   20.200188
    24   26   -0.100188   20.200188
    24   27   -0.100188   20.200188
    24   28   -0.100188   20.200188
    24   29   -0.100188   20.200188
    24   30   -0.100188   20.200188
    24   31   -0.100188   20.200188
    24   32   -0.100188   20.200188
    24   33   -0.100188   20.200188
    24   34   -0.100188   20.200188
    24   35   -0.100188   20.200188
    24   36   -0.100188   20.200188
    24   37   -0.100188   20.200188
    24   38   -0.100188   20.200188
    24   39   -0.100188   20.200188
    24   40   -0.100188   20.200188
    24   41   -0.100188   20.200188
    24   42   -0.100188   20.200188
    24   43   -0.100188   20.200188
    24   44   -0.100188   20.200188
    24   45   -0.100188   20.200188
    24   46   -0.100188   20.200188
    24   47   -0.100188   20.200188
    24   48   -0.100188   20.200188
    24   49   -0.100188   20.200188
    24   50   -0.100188   20.200188
    24   51   -0.100188   20.200188
    24   52   -0.100188   20.200188
    24   53   -0.100188   20.200188
    24   54   -0.100188   20.200188
    24   55   -0.100188   20.200188
    24   56   -0.100188   20.200188
    24   57   -0.100188   20.200188
    24   58   -0.100188   20.200188
    24   59   -0.100188   20.200188
    24   60   -0.100188   20.200188
    24   61   -0.100188   20.200188
    24   62   -0.100188   20.200188
    24   63   -0.100188   20.200188
    24   64   -0.100188   20.200188
    24   65   -0.100188   20.200188
    24   66   -0.100188   20.200188
    24   67   -0.100188   20.200188
    24   68   -0.100188   20.200188
    24   69   -0.100188   20.200188
    24   70   -0.100188   20.200188
    24   71   -0.100188   20.200188
    24   72   -0.100188   20.200188
    24   73   -0.100188   20.200188
    24   74   -0.100188   20.200188
    24   75   -0.100188   20.200188
    24   76   -0.100188   20.200188
    25    1    0.010941   19.469900
    25    2   -0.105164   19.485336
    25    3   -0.212594   19.536032
    25    4   -0.306625   19.618391
    25    5   -0.375375   19.728844
    25    6   -0.404625   19.857437
    25    7   -0.399375   19.994532
    25    8   -0.356500   20.121876
    25    9   -0.271344   20.229906
    25   10   -0.131672   20.325375
    25   11   -0.131672   20.325375
    25   12   -0.131672   20.325375
    25   13   -0.131672   20.325375
    25   14   -0.131672   20.325375
    25   15   -0.131672   20.325375
    25   16   -0.131672   20.325375
    25   17   -0.131672   20.325375
    25   18   -0.131672   20.325375
    25   19   -0.131672   20.325375
    25   20   -0.131672   20.325375
    25   21   -0.131672   20.325375
    25   22   -0.131672   20.325375
    25   23   -0.131672   20.325375
    25   24   -0.131672   20.325375
    25   25   -0.131672   20.325375
    25   26   -0.131672   20.325375
    25   27   -0.131672   20.325375
    25   28   -0.131672   20.325375
    25   29   -0.131672   20.325375
    25   30   -0.131672   20.325375
    25   31   -0.131672   20.325375
    25   32   -0.131672   20.325375
    25   33   -0.131672   20.325375
    25   34   -0.131672   20.325375
    25   35   -0.131672   20.325375
    25   36   -0.131672   20.325375
    25   37   -0.131672   20.325375
    25   38   -0.131672   20.325375
    25   39   -0.131672   20.325375
    25   40   -0.131672   20.325375
    25   41   -0.131672   20.325375
    25   42   -0.131672   20.325375
    25   43   -0.131672   20.325375
    25   44   -0.131672   20.325375
    25   45   -0.131672   20.325375
    25   46   -0.131672   20.325375
    25   47   -0.131672   20.325375
    25   48   -0.131672   20.325375
    25   49   -0.131672   20.325375
    25   50   -0.131672   20.325375
    25   51   -0.131672   20.325375
    25   52   -0.131672   20.325375
    25   53   -0.131672   20.325375
    25   54   -0.131672   20.325375
    25   55   -0.131672   20.325375
    25   56   -0.131672   20.325375
    25   57   -0.131672   20.325375
    25   58   -0.131672   20.325375
    25   59   -0.131672   20.325375
    25   60   -0.131672   20.325375
    25   61   -0.131672   20.325375
    25   62   -0.131672   20.325375
    25   63   -0.131672   20.325375
    25   64   -0.131672   20.325375
    25   65   -0.131672   20.325375
    25   66   -0.131672   20.325375
    25   67   -0.131672   20.325375
    25   68   -0.131672   20.325375
    25   69   -0.131672   20.325375
    25   70   -0.131672   20.325375
    25   71   -0.131672   20.325375
    25   72   -0.131672   20.325375
    25   73   -0.131672   20.325375
    25   74   -0.131672   20.325375
    25   75   -0.131672   20.325375
    25   76   -0.131672   20.325375
    26    1    0.013672   19.334749
    26    2   -0.137844   19.355375
    26    3   -0.276813   19.421343
    26    4   -0.400313   19.525375
    26    5   -0.495688   19.666109
    26    6   -0.543250   19.834406
    26    7   -0.538250   20.017250
    26    8   -0.482375   20.198156
    26    9   -0.369000   20.353437
    26   10   -0.223906   20.476093
    26   11   -0.223906   20.476093
    26   12   -0.223906   20.476093
    26   13   -0.223906   20.476093
    26   14   -0.223906   20.476093
    26   15   -0.223906   20.476093
    26   16   -0.223906   20.476093
    26   17   -0.223906   20.476093
    26   18   -0.223906   20.476093
    26   19   -0.223906   20.476093
    26   20   -0.223906   20.476093
    26   21   -0.223906   20.476093
    26   22   -0.223906   20.476093
    26   23   -0.223906   20.476093
    26   24   -0.223906   20.476093
    26   25   -0.223906   20.476093
    26   26   -0.223906   20.476093
    26   27   -0.223906   20.476093
    26   28   -0.223906   20.476093
    26   29   -0.223906   20.476093
    26   30   -0.223906   20.476093
    26   31   -0.223906   20.476093
    26   32   -0.223906   20.476093
    26   33   -0.223906   20.476093
    26   34   -0.223906   20.476093
    26   35   -0.223906   20.476093
    26   36   -0.223906   20.476093
    26   37   -0.223906   20.476093
    26   38   -0.223906   20.476093
    26   39   -0.223906   20.476093
    26   40   -0.223906   20.476093
    26   41   -0.223906   20.476093
    26   42   -0.223906   20.476093
    26   43   -0.223906   20.476093
    26   44   -0.223906   20.476093
    26   45   -0.223906   20.476093
    26   46   -0.223906   20.476093
    26   47   -0.223906   20.476093
    26   48   -0.223906   20.476093
    26   49   -0.223906   20.476093
    26   50   -0.223906   20.476093
    26   51   -0.223906   20.476093
    26   52   -0.223906   20.476093
    26   53   -0.223906   20.476093
    26   54   -0.223906   20.476093
    26   55   -0.223906   20.476093
    26   56   -0.223906   20.476093
    26   57   -0.223906   20.476093
    26   58   -0.223906   20.476093
    26   59   -0.223906   20.476093
    26   60   -0.223906   20.476093
    26   61   -0.223906   20.476093
    26   62   -0.223906   20.476093
    26   63   -0.223906   20.476093
    26   64   -0.223906   20.476093
    26   65   -0.223906   20.476093
    26   66   -0.223906   20.476093
    26   67   -0.223906   20.476093
    26   68   -0.223906   20.476093
    26   69   -0.223906   20.476093
    26   70   -0.223906   20.476093
    26   71   -0.223906   20.476093
    26   72   -0.223906   20.476093
    26   73   -0.223906   20.476093
    26   74   -0.223906   20.476093
    26   75   -0.223906   20.476093
    26   76   -0.223906   20.476093
    27    1    0.014516   19.160669
    27    2   -0.179531   19.187675
    27    3   -0.365969   19.267220
    27    4   -0.522938   19.402422
    27    5   -0.651125   19.581968
    27    6   -0.723938   19.801874
    27    7   -0.732625   20.047594
    27    8   -0.659625   20.290813
    27    9   -0.511500   20.516937
    27   10   -0.321625   20.683125
    27   11   -0.321625   20.683125
    27   12   -0.321625   20.683125
    27   13   -0.321625   20.683125
    27   14   -0.321625   20.683125
    27   15   -0.321625   20.683125
    27   16   -0.321625   20.683125
    27   17   -0.321625   20.683125
    27   18   -0.321625   20.683125
    27   19   -0.321625   20.683125
    27   20   -0.321625   20.683125
    27   21   -0.321625   20.683125
    27   22   -0.321625   20.683125
    27   23   -0.321625   20.683125
    27   24   -0.321625   20.683125
    27   25   -0.321625   20.683125
    27   26   -0.321625   20.683125
    27   27   -0.321625   20.683125
    27   28   -0.321625   20.683125
    27   29   -0.321625   20.683125
    27   30   -0.321625   20.683125
    27   31   -0.321625   20.683125
    27   32   -0.321625   20.683125
    27   33   -0.321625   20.683125
    27   34   -0.321625   20.683125
    27   35   -0.321625   20.683125
    27   36   -0.321625   20.683125
    27   37   -0.321625   20.683125
    27   38   -0.321625   20.683125
    27   39   -0.321625   20.683125
    27   40   -0.321625   20.683125
    27   41   -0.321625   20.683125
    27   42   -0.321625   20.683125
    27   43   -0.321625   20.683125
    27   44   -0.321625   20.683125
    27   45   -0.321625   20.683125
    27   46   -0.321625   20.683125
    27   47   -0.321625   20.683125
    27   48   -0.321625   20.683125
    27   49   -0.321625   20.683125
    27   50   -0.321625   20.683125
    27   51   -0.321625   20.683125
    27   52   -0.321625   20.683125
    27   53   -0.321625   20.683125
    27   54   -0.321625   20.683125
    27   55   -0.321625   20.683125
    27   56   -0.321625   20.683125
    27   57   -0.321625   20.683125
    27   58   -0.321625   20.683125
    27   59   -0.321625   20.683125
    27   60   -0.321625   20.683125
    27   61   -0.321625   20.683125
    27   62   -0.321625   20.683125
    27   63   -0.321625   20.683125
    27   64   -0.321625   20.683125
    27   65   -0.321625   20.683125
    27   66   -0.321625   20.683125
    27   67   -0.321625   20.683125
    27   68   -0.321625   20.683125
    27   69   -0.321625   20.683125
    27   70   -0.321625   20.683125
    27   71   -0.321625   20.683125
    27   72   -0.321625   20.683125
    27   73   -0.321625   20.683125
    27   74   -0.321625   20.683125
    27   75   -0.321625   20.683125
    27   76   -0.321625   20.683125
    28    1    0.017063   18.938759
    28    2   -0.230734   18.969942
    28    3   -0.467422   19.067558
    28    4   -0.679469   19.236202
    28    5   -0.854156   19.456844
    28    6   -0.970125   19.751219
    28    7   -0.990500   20.070999
    28    8   -0.917750   20.408875
    28    9   -0.709500   20.741125
    28   10   -0.471625   20.955999
    28   11   -0.471625   20.955999
    28   12   -0.471625   20.955999
    28   13   -0.471625   20.955999
    28   14   -0.471625   20.955999
    28   15   -0.471625   20.955999
    28   16   -0.471625   20.955999
    28   17   -0.471625   20.955999
    28   18   -0.471625   20.955999
    28   19   -0.471625   20.955999
    28   20   -0.471625   20.955999
    28   21   -0.471625   20.955999
    28   22   -0.471625   20.955999
    28   23   -0.471625   20.955999
    28   24   -0.471625   20.955999
    28   25   -0.471625   20.955999
    28   26   -0.471625   20.955999
    28   27   -0.471625   20.955999
    28   28   -0.471625   20.955999
    28   29   -0.471625   20.955999
    28   30   -0.471625   20.955999
    28   31   -0.471625   20.955999
    28   32   -0.471625   20.955999
    28   33   -0.471625   20.955999
    28   34   -0.471625   20.955999
    28   35   -0.471625   20.955999
    28   36   -0.471625   20.955999
    28   37   -0.471625   20.955999
    28   38   -0.471625   20.955999
    28   39   -0.471625   20.955999
    28   40   -0.471625   20.955999
    28   41   -0.471625   20.955999
    28   42   -0.471625   20.955999
    28   43   -0.471625   20.955999
    28   44   -0.471625   20.955999
    28   45   -0.471625   20.955999
    28   46   -0.471625   20.955999
    28   47   -0.471625   20.955999
    28   48   -0.471625   20.955999
    28   49   -0.471625   20.955999
    28   50   -0.471625   20.955999
    28   51   -0.471625   20.955999
    28   52   -0.471625   20.955999
    28   53   -0.471625   20.955999
    28   54   -0.471625   20.955999
    28   55   -0.471625   20.955999
    28   56   -0.471625   20.955999
    28   57   -0.471625   20.955999
    28   58   -0.471625   20.955999
    28   59   -0.471625   20.955999
    28   60   -0.471625   20.955999
    28   61   -0.471625   20.955999
    28   62   -0.471625   20.955999
    28   63   -0.471625   20.955999
    28   64   -0.471625   20.955999
    28   65   -0.471625   20.955999
    28   66   -0.471625   20.955999
    28   67   -0.471625   20.955999
    28   68   -0.471625   20.955999
    28   69   -0.471625   20.955999
    28   70   -0.471625   20.955999
    28   71   -0.471625   20.955999
    28   72   -0.471625   20.955999
    28   73   -0.471625   20.955999
    28   74   -0.471625   20.955999
    28   75   -0.471625   20.955999
    28   76   -0.471625   20.955999
    29    1    0.014375   18.657707
    29    2   -0.293813   18.695711
    29    3   -0.590125   18.811312
    29    4   -0.863188   19.007336
    29    5   -1.101375   19.284321
    29    6   -1.280313   19.643047
    29    7   -1.352750   20.074656
    29    8   -1.268000   20.563250
    29    9   -1.017500   21.031750
    29   10   -0.577000   21.326500
    29   11   -0.577000   21.326500
    29   12   -0.577000   21.326500
    29   13   -0.577000   21.326500
    29   14   -0.577000   21.326500
    29   15   -0.577000   21.326500
    29   16   -0.577000   21.326500
    29   17   -0.577000   21.326500
    29   18   -0.577000   21.326500
    29   19   -0.577000   21.326500
    29   20   -0.577000   21.326500
    29   21   -0.577000   21.326500
    29   22   -0.577000   21.326500
    29   23   -0.577000   21.326500
    29   24   -0.577000   21.326500
    29   25   -0.577000   21.326500
    29   26   -0.577000   21.326500
    29   27   -0.577000   21.326500
    29   28   -0.577000   21.326500
    29   29   -0.577000   21.326500
    29   30   -0.577000   21.326500
    29   31   -0.577000   21.326500
    29   32   -0.577000   21.326500
    29   33   -0.577000   21.326500
    29   34   -0.577000   21.326500
    29   35   -0.577000   21.326500
    29   36   -0.577000   21.326500
    29   37   -0.577000   21.326500
    29   38   -0.577000   21.326500
    29   39   -0.577000   21.326500
    29   40   -0.577000   21.326500
    29   41   -0.577000   21.326500
    29   42   -0.577000   21.326500
    29   43   -0.577000   21.326500
    29   44   -0.577000   21.326500
    29   45   -0.577000   21.326500
    29   46   -0.577000   21.326500
    29   47   -0.577000   21.326500
    29   48   -0.577000   21.326500
    29   49   -0.577000   21.326500
    29   50   -0.577000   21.326500
    29   51   -0.577000   21.326500
    29   52   -0.577000   21.326500
    29   53   -0.577000   21.326500
    29   54   -0.577000   21.326500
    29   55   -0.577000   21.326500
    29   56   -0.577000   21.326500
    29   57   -0.577000   21.326500
    29   58   -0.577000   21.326500
    29   59   -0.577000   21.326500
    29   60   -0.577000   21.326500
    29   61   -0.577000   21.326500
    29   62   -0.577000   21.326500
    29   63   -0.577000   21.326500
    29   64   -0.577000   21.326500
    29   65   -0.577000   21.326500
    29   66   -0.577000   21.326500
    29   67   -0.577000   21.326500
    29   68   -0.577000   21.326500
    29   69   -0.577000   21.326500
    29   70   -0.577000   21.326500
    29   71   -0.577000   21.326500
    29   72   -0.577000   21.326500
    29   73   -0.577000   21.326500
    29   74   -0.577000   21.326500
    29   75   -0.577000   21.326500
    29   76   -0.577000   21.326500
    30    1    0.013547   18.313442
    30    2   -0.363250   18.358793
    30    3   -0.731609   18.487972
    30    4   -1.084938   18.712002
    30    5   -1.410156   19.033489
    30    6   -1.679688   19.478352
    30    7   -1.839000   20.037844
    30    8   -1.846000   20.743999
    30    9   -1.489500   21.473749
    30   10   -0.877250   22.112249
    30   11   -0.877250   22.112249
    30   12   -0.877250   22.112249
    30   13   -0.877250   22.112249
    30   14   -0.877250   22.112249
    30   15   -0.877250   22.112249
    30   16   -0.877250   22.112249
    30   17   -0.877250   22.112249
    30   18   -0.877250   22.112249
    30   19   -0.877250   22.112249
    30   20   -0.877250   22.112249
    30   21   -0.877250   22.112249
    30   22   -0.877250   22.112249
    30   23   -0.877250   22.112249
    30   24   -0.877250   22.112249
    30   25   -0.877250   22.112249
    30   26   -0.877250   22.112249
    30   27   -0.877250   22.112249
    30   28   -0.877250   22.112249
    30   29   -0.877250   22.112249
    30   30   -0.877250   22.112249
    30   31   -0.877250   22.112249
    30   32   -0.877250   22.112249
    30   33   -0.877250   22.112249
    30   34   -0.877250   22.112249
    30   35   -0.877250   22.112249
    30   36   -0.877250   22.112249
    30   37   -0.877250   22.112249
    30   38   -0.877250   22.112249
    30   39   -0.877250   22.112249
    30   40   -0.877250   22.112249
    30   41   -0.877250   22.112249
    30   42   -0.877250   22.112249
    30   43   -0.877250   22.112249
    30   44   -0.877250   22.112249
    30   45   -0.877250   22.112249
    30   46   -0.877250   22.112249
    30   47   -0.877250   22.112249
    30   48   -0.877250   22.112249
    30   49   -0.877250   22.112249
    30   50   -0.877250   22.112249
    30   51   -0.877250   22.112249
    30   52   -0.877250   22.112249
    30   53   -0.877250   22.112249
    30   54   -0.877250   22.112249
    30   55   -0.877250   22.112249
    30   56   -0.877250   22.112249
    30   57   -0.877250   22.112249
    30   58   -0.877250   22.112249
    30   59   -0.877250   22.112249
    30   60   -0.877250   22.112249
    30   61   -0.877250   22.112249
    30   62   -0.877250   22.112249
    30   63   -0.877250   22.112249
    30   64   -0.877250   22.112249
    30   65   -0.877250   22.112249
    30   66   -0.877250   22.112249
    30   67   -0.877250   22.112249
    30   68   -0.877250   22.112249
    30   69   -0.877250   22.112249
    30   70   -0.877250   22.112249
    30   71   -0.877250   22.112249
    30   72   -0.877250   22.112249
    30   73   -0.877250   22.112249
    30   74   -0.877250   22.112249
    30   75   -0.877250   22.112249
    30   76   -0.877250   22.112249
    31    1    0.010797   17.899397
    31    2   -0.439813   17.948809
    31    3   -0.887844   18.087299
    31    4   -1.326512   18.326633
    31    5   -1.754922   18.679953
    31    6   -2.151047   19.176003
    31    7   -2.501250   19.866438
    31    8   -2.646750   20.803782
    31    9   -2.528000   22.041000
    31   10   -1.709688   23.227125
    31   11   -1.709688   23.227125
    31   12   -1.709688   23.227125
    31   13   -1.709688   23.227125
    31   14   -1.709688   23.227125
    31   15   -1.709688   23.227125
    31   16   -1.709688   23.227125
    31   17   -1.709688   23.227125
    31   18   -1.709688   23.227125
    31   19   -1.709688   23.227125
    31   20   -1.709688   23.227125
    31   21   -1.709688   23.227125
    31   22   -1.709688   23.227125
    31   23   -1.709688   23.227125
    31   24   -1.709688   23.227125
    31   25   -1.709688   23.227125
    31   26   -1.709688   23.227125
    31   27   -1.709688   23.227125
    31   28   -1.709688   23.227125
    31   29   -1.709688   23.227125
    31   30   -1.709688   23.227125
    31   31   -1.709688   23.227125
    31   32   -1.709688   23.227125
    31   33   -1.709688   23.227125
    31   34   -1.709688   23.227125
    31   35   -1.709688   23.227125
    31   36   -1.709688   23.227125
    31   37   -1.709688   23.227125
    31   38   -1.709688   23.227125
    31   39   -1.709688   23.227125
    31   40   -1.709688   23.227125
    31   41   -1.709688   23.227125
    31   42   -1.709688   23.227125
    31   43   -1.709688   23.227125
    31   44   -1.709688   23.227125
    31   45   -1.709688   23.227125
    31   46   -1.709688   23.227125
    31   47   -1.709688   23.227125
    31   48   -1.709688   23.227125
    31   49   -1.709688   23.227125
    31   50   -1.709688   23.227125
    31   51   -1.709688   23.227125
    31   52   -1.709688   23.227125
    31   53   -1.709688   23.227125
    31   54   -1.709688   23.227125
    31   55   -1.709688   23.227125
    31   56   -1.709688   23.227125
    31   57   -1.709688   23.227125
    31   58   -1.709688   23.227125
    31   59   -1.709688   23.227125
    31   60   -1.709688   23.227125
    31   61   -1.709688   23.227125
    31   62   -1.709688   23.227125
    31   63   -1.709688   23.227125
    31   64   -1.709688   23.227125
    31   65   -1.709688   23.227125
    31   66   -1.709688   23.227125
    31   67   -1.709688   23.227125
    31   68   -1.709688   23.227125
    31   69   -1.709688   23.227125
    31   70   -1.709688   23.227125
    31   71   -1.709688   23.227125
    31   72   -1.709688   23.227125
    31   73   -1.709688   23.227125
    31   74   -1.709688   23.227125
    31   75   -1.709688   23.227125
    31   76   -1.709688   23.227125
    32    1    0.006203   17.412241
    32    2   -0.517164   17.460838
    32    3   -1.042453   17.600372
    32    4   -1.574578   17.838680
    32    5   -2.117344   18.199028
    32    6   -2.665000   18.707947
    32    7   -3.244906   19.442762
    32    8   -3.750000   20.496000
    32    9   -4.536500   22.372999
    32   10   -5.105106   24.645840
    32   11   -5.105106   24.645840
    32   12   -5.105106   24.645840
    32   13   -5.105106   24.645840
    32   14   -5.105106   24.645840
    32   15   -5.105106   24.645840
    32   16   -5.105106   24.645840
    32   17   -5.105106   24.645840
    32   18   -5.105106   24.645840
    32   19   -5.105106   24.645840
    32   20   -5.105106   24.645840
    32   21   -5.105106   24.645840
    32   22   -5.105106   24.645840
    32   23   -5.105106   24.645840
    32   24   -5.105106   24.645840
    32   25   -5.105106   24.645840
    32   26   -5.105106   24.645840
    32   27   -5.105106   24.645840
    32   28   -5.105106   24.645840
    32   29   -5.105106   24.645840
    32   30   -5.105106   24.645840
    32   31   -5.105106   24.645840
    32   32   -5.105106   24.645840
    32   33   -5.105106   24.645840
    32   34   -5.105106   24.645840
    32   35   -5.105106   24.645840
    32   36   -5.105106   24.645840
    32   37   -5.105106   24.645840
    32   38   -5.105106   24.645840
    32   39   -5.105106   24.645840
    32   40   -5.105106   24.645840
    32   41   -5.105106   24.645840
    32   42   -5.105106   24.645840
    32   43   -5.105106   24.645840
    32   44   -5.105106   24.645840
    32   45   -5.105106   24.645840
    32   46   -5.105106   24.645840
    32   47   -5.105106   24.645840
    32   48   -5.105106   24.645840
    32   49   -5.105106   24.645840
    32   50   -5.105106   24.645840
    32   51   -5.105106   24.645840
    32   52   -5.105106   24.645840
    32   53   -5.105106   24.645840
    32   54   -5.105106   24.645840
    32   55   -5.105106   24.645840
    32   56   -5.105106   24.645840
    32   57   -5.105106   24.645840
    32   58   -5.105106   24.645840
    32   59   -5.105106   24.645840
    32   60   -5.105106   24.645840
    32   61   -5.105106   24.645840
    32   62   -5.105106   24.645840
    32   63   -5.105106   24.645840
    32   64   -5.105106   24.645840
    32   65   -5.105106   24.645840
    32   66   -5.105106   24.645840
    32   67   -5.105106   24.645840
    32   68   -5.105106   24.645840
    32   69   -5.105106   24.645840
    32   70   -5.105106   24.645840
    32   71   -5.105106   24.645840
    32   72   -5.105106   24.645840
    32   73   -5.105106   24.645840
    32   74   -5.105106   24.645840
    32   75   -5.105106   24.645840
    32   76   -5.105106   24.645840
    33    1    0.001826   16.854671
    33    2   -0.589305   16.899958
    33    3   -1.189109   17.031746
    33    4   -1.806844   17.253187
    33    5   -2.456250   17.586891
    33    6   -3.151625   18.042938
    33    7   -3.945750   18.689938
    33    8   -4.917500   19.527374
    33    9   -6.325750   21.195875
    33   10   -8.500525   21.596125
    33   11   -8.500525   21.596125
    33   12   -8.500525   21.596125
    33   13   -8.500525   21.596125
    33   14   -8.500525   21.596125
    33   15   -8.500525   21.596125
    33   16   -8.500525   21.596125
    33   17   -8.500525   21.596125
    33   18   -8.500525   21.596125
    33   19   -8.500525   21.596125
    33   20   -8.500525   21.596125
    33   21   -8.500525   21.596125
    33   22   -8.500525   21.596125
    33   23   -8.500525   21.596125
    33   24   -8.500525   21.596125
    33   25   -8.500525   21.596125
    33   26   -8.500525   21.596125
    33   27   -8.500525   21.596125
    33   28   -8.500525   21.596125
    33   29   -8.500525   21.596125
    33   30   -8.500525   21.596125
    33   31   -8.500525   21.596125
    33   32   -8.500525   21.596125
    33   33   -8.500525   21.596125
    33   34   -8.500525   21.596125
    33   35   -8.500525   21.596125
    33   36   -8.500525   21.596125
    33   37   -8.500525   21.596125
    33   38   -8.500525   21.596125
    33   39   -8.500525   21.596125
    33   40   -8.500525   21.596125
    33   41   -8.500525   21.596125
    33   42   -8.500525   21.596125
    33   43   -8.500525   21.596125
    33   44   -8.500525   21.596125
    33   45   -8.500525   21.596125
    33   46   -8.500525   21.596125
    33   47   -8.500525   21.596125
    33   48   -8.500525   21.596125
    33   49   -8.500525   21.596125
    33   50   -8.500525   21.596125
    33   51   -8.500525   21.596125
    33   52   -8.500525   21.596125
    33   53   -8.500525   21.596125
    33   54   -8.500525   21.596125
    33   55   -8.500525   21.596125
    33   56   -8.500525   21.596125
    33   57   -8.500525   21.596125
    33   58   -8.500525   21.596125
    33   59   -8.500525   21.596125
    33   60   -8.500525   21.596125
    33   61   -8.500525   21.596125
    33   62   -8.500525   21.596125
    33   63   -8.500525   21.596125
    33   64   -8.500525   21.596125
    33   65   -8.500525   21.596125
    33   66   -8.500525   21.596125
    33   67   -8.500525   21.596125
    33   68   -8.500525   21.596125
    33   69   -8.500525   21.596125
    33   70   -8.500525   21.596125
    33   71   -8.500525   21.596125
    33   72   -8.500525   21.596125
    33   73   -8.500525   21.596125
    33   74   -8.500525   21.596125
    33   75   -8.500525   21.596125
    33   76   -8.500525   21.596125
    34    1   -0.002959   16.234669
    34    2   -0.652468   16.274422
    34    3   -1.314500   16.389843
    34    4   -2.002938   16.581367
    34    5   -2.734688   16.864969
    34    6   -3.543250   17.236109
    34    7   -4.457500   17.719938
    34    8   -5.549875   18.231501
    34    9   -7.143750   18.924000
    34   10   -8.720282   19.375813
    34   11   -9.650375   19.260937
    34   12   -9.650375   19.260937
    34   13   -9.650375   19.260937
    34   14   -9.650375   19.260937
    34   15   -9.650375   19.260937
    34   16   -9.650375   19.260937
    34   17   -9.650375   19.260937
    34   18   -9.650375   19.260937
    34   19   -9.650375   19.260937
    34   20   -9.650375   19.260937
    34   21   -9.650375   19.260937
    34   22   -9.650375   19.260937
    34   23   -9.650375   19.260937
    34   24   -9.650375   19.260937
    34   25   -9.650375   19.260937
    34   26   -9.650375   19.260937
    34   27   -9.650375   19.260937
    34   28   -9.650375   19.260937
    34   29   -9.650375   19.260937
    34   30   -9.650375   19.260937
    34   31   -9.650375   19.260937
    34   32   -9.650375   19.260937
    34   33   -9.650375   19.260937
    34   34   -9.650375   19.260937
    34   35   -9.650375   19.260937
    34   36   -9.650375   19.260937
    34   37   -9.650375   19.260937
    34   38   -9.650375   19.260937
    34   39   -9.650375   19.260937
    34   40   -9.650375   19.260937
    34   41   -9.650375   19.260937
    34   42   -9.650375   19.260937
    34   43   -9.650375   19.260937
    34   44   -9.650375   19.260937
    34   45   -9.650375   19.260937
    34   46   -9.650375   19.260937
    34   47   -9.650375   19.260937
    34   48   -9.650375   19.260937
    34   49   -9.650375   19.260937
    34   50   -9.650375   19.260937
    34   51   -9.650375   19.260937
    34   52   -9.650375   19.260937
    34   53   -9.650375   19.260937
    34   54   -9.650375   19.260937
    34   55   -9.650375   19.260937
    34   56   -9.650375   19.260937
    34   57   -9.650375   19.260937
    34   58   -9.650375   19.260937
    34   59   -9.650375   19.260937
    34   60   -9.650375   19.260937
    34   61   -9.650375   19.260937
    34   62   -9.650375   19.260937
    34   63   -9.650375   19.260937
    34   64   -9.650375   19.260937
    34   65   -9.650375   19.260937
    34   66   -9.650375   19.260937
    34   67   -9.650375   19.260937
    34   68   -9.650375   19.260937
    34   69   -9.650375   19.260937
    34   70   -9.650375   19.260937
    34   71   -9.650375   19.260937
    34   72   -9.650375   19.260937
    34   73   -9.650375   19.260937
    34   74   -9.650375   19.260937
    34   75   -9.650375   19.260937
    34   76   -9.650375   19.260937
    35    1   -0.006766   15.562232
    35    2   -0.703109   15.594978
    35    3   -1.414016   15.691140
    35    4   -2.153531   15.845328
    35    5   -2.934313   16.066782
    35    6   -3.796625   16.348656
    35    7   -4.771500   16.683001
    35    8   -5.888250   17.016874
    35    9   -7.269375   17.334187
    35   10   -8.566000   17.271000
    35   11   -9.270407   17.066000
    35   12   -9.270407   17.066000
    35   13   -9.270407   17.066000
    35   14   -9.270407   17.066000
    35   15   -9.270407   17.066000
    35   16   -9.270407   17.066000
    35   17   -9.270407   17.066000
    35   18   -9.270407   17.066000
    35   19   -9.270407   17.066000
    35   20   -9.270407   17.066000
    35   21   -9.270407   17.066000
    35   22   -9.270407   17.066000
    35   23   -9.270407   17.066000
    35   24   -9.270407   17.066000
    35   25   -9.270407   17.066000
    35   26   -9.270407   17.066000
    35   27   -9.270407   17.066000
    35   28   -9.270407   17.066000
    35   29   -9.270407   17.066000
    35   30   -9.270407   17.066000
    35   31   -9.270407   17.066000
    35   32   -9.270407   17.066000
    35   33   -9.270407   17.066000
    35   34   -9.270407   17.066000
    35   35   -9.270407   17.066000
    35   36   -9.270407   17.066000
    35   37   -9.270407   17.066000
    35   38   -9.270407   17.066000
    35   39   -9.270407   17.066000
    35   40   -9.270407   17.066000
    35   41   -9.270407   17.066000
    35   42   -9.270407   17.066000
    35   43   -9.270407   17.066000
    35   44   -9.270407   17.066000
    35   45   -9.270407   17.066000
    35   46   -9.270407   17.066000
    35   47   -9.270407   17.066000
    35   48   -9.270407   17.066000
    35   49   -9.270407   17.066000
    35   50   -9.270407   17.066000
    35   51   -9.270407   17.066000
    35   52   -9.270407   17.066000
    35   53   -9.270407   17.066000
    35   54   -9.270407   17.066000
    35   55   -9.270407   17.066000
    35   56   -9.270407   17.066000
    35   57   -9.270407   17.066000
    35   58   -9.270407   17.066000
    35   59   -9.270407   17.066000
    35   60   -9.270407   17.066000
    35   61   -9.270407   17.066000
    35   62   -9.270407   17.066000
    35   63   -9.270407   17.066000
    35   64   -9.270407   17.066000
    35   65   -9.270407   17.066000
    35   66   -9.270407   17.066000
    35   67   -9.270407   17.066000
    35   68   -9.270407   17.066000
    35   69   -9.270407   17.066000
    35   70   -9.270407   17.066000
    35   71   -9.270407   17.066000
    35   72   -9.270407   17.066000
    35   73   -9.270407   17.066000
    35   74   -9.270407   17.066000
    35   75   -9.270407   17.066000
    35   76   -9.270407   17.066000
    36    1   -0.007707   14.849350
    36    2   -0.738531   14.874928
    36    3   -1.483594   14.949992
    36    4   -2.256125   15.067610
    36    5   -3.065500   15.234032
    36    6   -3.948063   15.430344
    36    7   -4.901500   15.644814
    36    8   -5.985500   15.851766
    36    9   -7.165750   15.953314
    36   10   -8.142500   15.806500
    36   11   -8.267000   15.399750
    36   12   -7.964500   14.981250
    36   13   -7.964500   14.981250
    36   14   -7.964500   14.981250
    36   15   -7.964500   14.981250
    36   16   -7.964500   14.981250
    36   17   -7.964500   14.981250
    36   18   -7.964500   14.981250
    36   19   -7.964500   14.981250
    36   20   -7.964500   14.981250
    36   21   -7.964500   14.981250
    36   22   -7.964500   14.981250
    36   23   -7.964500   14.981250
    36   24   -7.964500   14.981250
    36   25   -7.964500   14.981250
    36   26   -7.964500   14.981250
    36   27   -7.964500   14.981250
    36   28   -7.964500   14.981250
    36   29   -7.964500   14.981250
    36   30   -7.964500   14.981250
    36   31   -7.964500   14.981250
    36   32   -7.964500   14.981250
    36   33   -7.964500   14.981250
    36   34   -7.964500   14.981250
    36   35   -7.964500   14.981250
    36   36   -7.964500   14.981250
    36   37   -7.964500   14.981250
    36   38   -7.964500   14.981250
    36   39   -7.964500   14.981250
    36   40   -7.964500   14.981250
    36   41   -7.964500   14.981250
    36   42   -7.964500   14.981250
    36   43   -7.964500   14.981250
    36   44   -7.964500   14.981250
    36   45   -7.964500   14.981250
    36   46   -7.964500   14.981250
    36   47   -7.964500   14.981250
    36   48   -7.964500   14.981250
    36   49   -7.964500   14.981250
    36   50   -7.964500   14.981250
    36   51   -7.964500   14.981250
    36   52   -7.964500   14.981250
    36   53   -7.964500   14.981250
    36   54   -7.964500   14.981250
    36   55   -7.964500   14.981250
    36   56   -7.964500   14.981250
    36   57   -7.964500   14.981250
    36   58   -7.964500   14.981250
    36   59   -7.964500   14.981250
    36   60   -7.964500   14.981250
    36   61   -7.964500   14.981250
    36   62   -7.964500   14.981250
    36   63   -7.964500   14.981250
    36   64   -7.964500   14.981250
    36   65   -7.964500   14.981250
    36   66   -7.964500   14.981250
    36   67   -7.964500   14.981250
    36   68   -7.964500   14.981250
    36   69   -7.964500   14.981250
    36   70   -7.964500   14.981250
    36   71   -7.964500   14.981250
    36   72   -7.964500   14.981250
    36   73   -7.964500   14.981250
    36   74   -7.964500   14.981250
    36   75   -7.964500   14.981250
    36   76   -7.964500   14.981250
    37    1   -0.009105   14.109051
    37    2   -0.761363   14.127268
    37    3   -1.525984   14.182796
    37    4   -2.311406   14.270765
    37    5   -3.134313   14.386844
    37    6   -4.007625   14.521719
    37    7   -4.936875   14.656125
    37    8   -5.930313   14.773920
    37    9   -6.956000   14.803814
    37   10   -7.712000   14.757125
    37   11   -7.541938   14.562282
    37   12   -7.217000   14.281375
    37   13   -7.217000   14.281375
    37   14   -7.217000   14.281375
    37   15   -7.217000   14.281375
    37   16   -7.217000   14.281375
    37   17   -7.217000   14.281375
    37   18   -7.217000   14.281375
    37   19   -7.217000   14.281375
    37   20   -7.217000   14.281375
    37   21   -7.217000   14.281375
    37   22   -7.217000   14.281375
    37   23   -7.217000   14.281375
    37   24   -7.217000   14.281375
    37   25   -7.217000   14.281375
    37   26   -7.217000   14.281375
    37   27   -7.217000   14.281375
    37   28   -7.217000   14.281375
    37   29   -7.217000   14.281375
    37   30   -7.217000   14.281375
    37   31   -7.217000   14.281375
    37   32   -7.217000   14.281375
    37   33   -7.217000   14.281375
    37   34   -7.217000   14.281375
    37   35   -7.217000   14.281375
    37   36   -7.217000   14.281375
    37   37   -7.217000   14.281375
    37   38   -7.217000   14.281375
    37   39   -7.217000   14.281375
    37   40   -7.217000   14.281375
    37   41   -7.217000   14.281375
    37   42   -7.217000   14.281375
    37   43   -7.217000   14.281375
    37   44   -7.217000   14.281375
    37   45   -7.217000   14.281375
    37   46   -7.217000   14.281375
    37   47   -7.217000   14.281375
    37   48   -7.217000   14.281375
    37   49   -7.217000   14.281375
    37   50   -7.217000   14.281375
    37   51   -7.217000   14.281375
    37   52   -7.217000   14.281375
    37   53   -7.217000   14.281375
    37   54   -7.217000   14.281375
    37   55   -7.217000   14.281375
    37   56   -7.217000   14.281375
    37   57   -7.217000   14.281375
    37   58   -7.217000   14.281375
    37   59   -7.217000   14.281375
    37   60   -7.217000   14.281375
    37   61   -7.217000   14.281375
    37   62   -7.217000   14.281375
    37   63   -7.217000   14.281375
    37   64   -7.217000   14.281375
    37   65   -7.217000   14.281375
    37   66   -7.217000   14.281375
    37   67   -7.217000   14.281375
    37   68   -7.217000   14.281375
    37   69   -7.217000   14.281375
    37   70   -7.217000   14.281375
    37   71   -7.217000   14.281375
    37   72   -7.217000   14.281375
    37   73   -7.217000   14.281375
    37   74   -7.217000   14.281375
    37   75   -7.217000   14.281375
    37   76   -7.217000   14.281375
    38    1   -0.008816   13.352707
    38    2   -0.772234   13.365387
    38    3   -1.545219   13.406439
    38    4   -2.337922   13.466860
    38    5   -3.157844   13.548079
    38    6   -4.010250   13.637703
    38    7   -4.897063   13.721016
    38    8   -5.831484   13.789169
    38    9   -6.780875   13.814281
    38   10   -7.436875   13.802625
    38   11   -7.201000   13.699633
    38   12   -6.739000   13.691375
    38   13   -6.216656   13.526564
    38   14   -6.216656   13.526564
    38   15   -6.216656   13.526564
    38   16   -6.216656   13.526564
    38   17   -6.216656   13.526564
    38   18   -6.216656   13.526564
    38   19   -6.216656   13.526564
    38   20   -6.216656   13.526564
    38   21   -6.216656   13.526564
    38   22   -6.216656   13.526564
    38   23   -6.216656   13.526564
    38   24   -6.216656   13.526564
    38   25   -6.216656   13.526564
    38   26   -6.216656   13.526564
    38   27   -6.216656   13.526564
    38   28   -6.216656   13.526564
    38   29   -6.216656   13.526564
    38   30   -6.216656   13.526564
    38   31   -6.216656   13.526564
    38   32   -6.216656   13.526564
    38   33   -6.216656   13.526564
    38   34   -6.216656   13.526564
    38   35   -6.216656   13.526564
    38   36   -6.216656   13.526564
    38   37   -6.216656   13.526564
    38   38   -6.216656   13.526564
    38   39   -6.216656   13.526564
    38   40   -6.216656   13.526564
    38   41   -6.216656   13.526564
    38   42   -6.216656   13.526564
    38   43   -6.216656   13.526564
    38   44   -6.216656   13.526564
    38   45   -6.216656   13.526564
    38   46   -6.216656   13.526564
    38   47   -6.216656   13.526564
    38   48   -6.216656   13.526564
    38   49   -6.216656   13.526564
    38   50   -6.216656   13.526564
    38   51   -6.216656   13.526564
    38   52   -6.216656   13.526564
    38   53   -6.216656   13.526564
    38   54   -6.216656   13.526564
    38   55   -6.216656   13.526564
    38   56   -6.216656   13.526564
    38   57   -6.216656   13.526564
    38   58   -6.216656   13.526564
    38   59   -6.216656   13.526564
    38   60   -6.216656   13.526564
    38   61   -6.216656   13.526564
    38   62   -6.216656   13.526564
    38   63   -6.216656   13.526564
    38   64   -6.216656   13.526564
    38   65   -6.216656   13.526564
    38   66   -6.216656   13.526564
    38   67   -6.216656   13.526564
    38   68   -6.216656   13.526564
    38   69   -6.216656   13.526564
    38   70   -6.216656   13.526564
    38   71   -6.216656   13.526564
    38   72   -6.216656   13.526564
    38   73   -6.216656   13.526564
    38   74   -6.216656   13.526564
    38   75   -6.216656   13.526564
    38   76   -6.216656   13.526564
    39    1   -0.007637   12.588461
    39    2   -0.773359   12.596992
    39    3   -1.547883   12.623910
    39    4   -2.335949   12.664605
    39    5   -3.144172   12.719844
    39    6   -3.975906   12.777804
    39    7   -4.832406   12.834992
    39    8   -5.715605   12.881830
    39    9   -6.604375   12.897939
    39   10   -7.214836   12.915844
    39   11   -6.965750   12.919109
    39   12   -6.619625   12.967564
    39   13   -6.083250   13.480648
    39   14   -6.681750   13.496000
    39   15   -6.681750   13.496000
    39   16   -6.681750   13.496000
    39   17   -6.681750   13.496000
    39   18   -6.681750   13.496000
    39   19   -6.681750   13.496000
    39   20   -6.681750   13.496000
    39   21   -6.681750   13.496000
    39   22   -6.681750   13.496000
    39   23   -6.681750   13.496000
    39   24   -6.681750   13.496000
    39   25   -6.681750   13.496000
    39   26   -6.681750   13.496000
    39   27   -6.681750   13.496000
    39   28   -6.681750   13.496000
    39   29   -6.681750   13.496000
    39   30   -6.681750   13.496000
    39   31   -6.681750   13.496000
    39   32   -6.681750   13.496000
    39   33   -6.681750   13.496000
    39   34   -6.681750   13.496000
    39   35   -6.681750   13.496000
    39   36   -6.681750   13.496000
    39   37   -6.681750   13.496000
    39   38   -6.681750   13.496000
    39   39   -6.681750   13.496000
    39   40   -6.681750   13.496000
    39   41   -6.681750   13.496000
    39   42   -6.681750   13.496000
    39   43   -6.681750   13.496000
    39   44   -6.681750   13.496000
    39   45   -6.681750   13.496000
    39   46   -6.681750   13.496000
    39   47   -6.681750   13.496000
    39   48   -6.681750   13.496000
    39   49   -6.681750   13.496000
    39   50   -6.681750   13.496000
    39   51   -6.681750   13.496000
    39   52   -6.681750   13.496000
    39   53   -6.681750   13.496000
    39   54   -6.681750   13.496000
    39   55   -6.681750   13.496000
    39   56   -6.681750   13.496000
    39   57   -6.681750   13.496000
    39   58   -6.681750   13.496000
    39   59   -6.681750   13.496000
    39   60   -6.681750   13.496000
    39   61   -6.681750   13.496000
    39   62   -6.681750   13.496000
    39   63   -6.681750   13.496000
    39   64   -6.681750   13.496000
    39   65   -6.681750   13.496000
    39   66   -6.681750   13.496000
    39   67   -6.681750   13.496000
    39   68   -6.681750   13.496000
    39   69   -6.681750   13.496000
    39   70   -6.681750   13.496000
    39   71   -6.681750   13.496000
    39   72   -6.681750   13.496000
    39   73   -6.681750   13.496000
    39   74   -6.681750   13.496000
    39   75   -6.681750   13.496000
    39   76   -6.681750   13.496000
    40    1   -0.006656   11.823633
    40    2   -0.769422   11.828727
    40    3   -1.536914   11.847781
    40    4   -2.316156   11.874438
    40    5   -3.109922   11.907516
    40    6   -3.921000   11.947195
    40    7   -4.750914   11.983352
    40    8   -5.597219   12.012723
    40    9   -6.451281   12.030961
    40   10   -7.036266   12.055552
    40   11   -6.801500   12.082789
    40   12   -6.606531   12.114203
    40   13   -6.463125   12.188189
    40   14   -6.503547   12.131782
    40   15   -6.503547   12.131782
    40   16   -6.503547   12.131782
    40   17   -6.503547   12.131782
    40   18   -6.503547   12.131782
    40   19   -6.503547   12.131782
    40   20   -6.503547   12.131782
    40   21   -6.503547   12.131782
    40   22   -6.503547   12.131782
    40   23   -6.503547   12.131782
    40   24   -6.503547   12.131782
    40   25   -6.503547   12.131782
    40   26   -6.503547   12.131782
    40   27   -6.503547   12.131782
    40   28   -6.503547   12.131782
    40   29   -6.503547   12.131782
    40   30   -6.503547   12.131782
    40   31   -6.503547   12.131782
    40   32   -6.503547   12.131782
    40   33   -6.503547   12.131782
    40   34   -6.503547   12.131782
    40   35   -6.503547   12.131782
    40   36   -6.503547   12.131782
    40   37   -6.503547   12.131782
    40   38   -6.503547   12.131782
    40   39   -6.503547   12.131782
    40   40   -6.503547   12.131782
    40   41   -6.503547   12.131782
    40   42   -6.503547   12.131782
    40   43   -6.503547   12.131782
    40   44   -6.503547   12.131782
    40   45   -6.503547   12.131782
    40   46   -6.503547   12.131782
    40   47   -6.503547   12.131782
    40   48   -6.503547   12.131782
    40   49   -6.503547   12.131782
    40   50   -6.503547   12.131782
    40   51   -6.503547   12.131782
    40   52   -6.503547   12.131782
    40   53   -6.503547   12.131782
    40   54   -6.503547   12.131782
    40   55   -6.503547   12.131782
    40   56   -6.503547   12.131782
    40   57   -6.503547   12.131782
    40   58   -6.503547   12.131782
    40   59   -6.503547   12.131782
    40   60   -6.503547   12.131782
    40   61   -6.503547   12.131782
    40   62   -6.503547   12.131782
    40   63   -6.503547   12.131782
    40   64   -6.503547   12.131782
    40   65   -6.503547   12.131782
    40   66   -6.503547   12.131782
    40   67   -6.503547   12.131782
    40   68   -6.503547   12.131782
    40   69   -6.503547   12.131782
    40   70   -6.503547   12.131782
    40   71   -6.503547   12.131782
    40   72   -6.503547   12.131782
    40   73   -6.503547   12.131782
    40   74   -6.503547   12.131782
    40   75   -6.503547   12.131782
    40   76   -6.503547   12.131782
    41    1   -0.005609   11.065414
    41    2   -0.758352   11.068516
    41    3   -1.517031   11.079375
    41    4   -2.283023   11.095586
    41    5   -3.059492   11.115633
    41    6   -3.850477   11.138086
    41    7   -4.657918   11.158004
    41    8   -5.476238   11.173711
    41    9   -6.308188   11.186688
    41   10   -6.878531   11.199742
    41   11   -6.646148   11.204198
    41   12   -6.451234   11.187332
    41   13   -6.309742   11.148149
    41   14   -6.184859   11.076039
    41   15   -6.058688   10.996063
    41   16   -6.058688   10.996063
    41   17   -6.058688   10.996063
    41   18   -6.058688   10.996063
    41   19   -6.058688   10.996063
    41   20   -6.058688   10.996063
    41   21   -6.058688   10.996063
    41   22   -6.058688   10.996063
    41   23   -6.058688   10.996063
    41   24   -6.058688   10.996063
    41   25   -6.058688   10.996063
    41   26   -6.058688   10.996063
    41   27   -6.058688   10.996063
    41   28   -6.058688   10.996063
    41   29   -6.058688   10.996063
    41   30   -6.058688   10.996063
    41   31   -6.058688   10.996063
    41   32   -6.058688   10.996063
    41   33   -6.058688   10.996063
    41   34   -6.058688   10.996063
    41   35   -6.058688   10.996063
    41   36   -6.058688   10.996063
    41   37   -6.058688   10.996063
    41   38   -6.058688   10.996063
    41   39   -6.058688   10.996063
    41   40   -6.058688   10.996063
    41   41   -6.058688   10.996063
    41   42   -6.058688   10.996063
    41   43   -6.058688   10.996063
    41   44   -6.058688   10.996063
    41   45   -6.058688   10.996063
    41   46   -6.058688   10.996063
    41   47   -6.058688   10.996063
    41   48   -6.058688   10.996063
    41   49   -6.058688   10.996063
    41   50   -6.058688   10.996063
    41   51   -6.058688   10.996063
    41   52   -6.058688   10.996063
    41   53   -6.058688   10.996063
    41   54   -6.058688   10.996063
    41   55   -6.058688   10.996063
    41   56   -6.058688   10.996063
    41   57   -6.058688   10.996063
    41   58   -6.058688   10.996063
    41   59   -6.058688   10.996063
    41   60   -6.058688   10.996063
    41   61   -6.058688   10.996063
    41   62   -6.058688   10.996063
    41   63   -6.058688   10.996063
    41   64   -6.058688   10.996063
    41   65   -6.058688   10.996063
    41   66   -6.058688   10.996063
    41   67   -6.058688   10.996063
    41   68   -6.058688   10.996063
    41   69   -6.058688   10.996063
    41   70   -6.058688   10.996063
    41   71   -6.058688   10.996063
    41   72   -6.058688   10.996063
    41   73   -6.058688   10.996063
    41   74   -6.058688   10.996063
    41   75   -6.058688   10.996063
    41   76   -6.058688   10.996063
    42    1   -0.004504   10.319446
    42    2   -0.744629   10.320523
    42    3   -1.488766   10.324852
    42    4   -2.240145   10.332117
    42    5   -3.000852   10.341992
    42    6   -3.771961   10.349973
    42    7   -4.554055   10.355886
    42    8   -5.351246   10.359748
    42    9   -6.161844   10.359692
    42   10   -6.713047   10.355688
    42   11   -6.463508   10.335197
    42   12   -6.243371   10.282193
    42   13   -6.061750   10.195594
    42   14   -5.960500   10.047439
    42   15   -5.959578    9.841438
    42   16   -5.959578    9.841438
    42   17   -5.959578    9.841438
    42   18   -5.959578    9.841438
    42   19   -5.959578    9.841438
    42   20   -5.959578    9.841438
    42   21   -5.959578    9.841438
    42   22   -5.959578    9.841438
    42   23   -5.959578    9.841438
    42   24   -5.959578    9.841438
    42   25   -5.959578    9.841438
    42   26   -5.959578    9.841438
    42   27   -5.959578    9.841438
    42   28   -5.959578    9.841438
    42   29   -5.959578    9.841438
    42   30   -5.959578    9.841438
    42   31   -5.959578    9.841438
    42   32   -5.959578    9.841438
    42   33   -5.959578    9.841438
    42   34   -5.959578    9.841438
    42   35   -5.959578    9.841438
    42   36   -5.959578    9.841438
    42   37   -5.959578    9.841438
    42   38   -5.959578    9.841438
    42   39   -5.959578    9.841438
    42   40   -5.959578    9.841438
    42   41   -5.959578    9.841438
    42   42   -5.959578    9.841438
    42   43   -5.959578    9.841438
    42   44   -5.959578    9.841438
    42   45   -5.959578    9.841438
    42   46   -5.959578    9.841438
    42   47   -5.959578    9.841438
    42   48   -5.959578    9.841438
    42   49   -5.959578    9.841438
    42   50   -5.959578    9.841438
    42   51   -5.959578    9.841438
    42   52   -5.959578    9.841438
    42   53   -5.959578    9.841438
    42   54   -5.959578    9.841438
    42   55   -5.959578    9.841438
    42   56   -5.959578    9.841438
    42   57   -5.959578    9.841438
    42   58   -5.959578    9.841438
    42   59   -5.959578    9.841438
    42   60   -5.959578    9.841438
    42   61   -5.959578    9.841438
    42   62   -5.959578    9.841438
    42   63   -5.959578    9.841438
    42   64   -5.959578    9.841438
    42   65   -5.959578    9.841438
    42   66   -5.959578    9.841438
    42   67   -5.959578    9.841438
    42   68   -5.959578    9.841438
    42   69   -5.959578    9.841438
    42   70   -5.959578    9.841438
    42   71   -5.959578    9.841438
    42   72   -5.959578    9.841438
    42   73   -5.959578    9.841438
    42   74   -5.959578    9.841438
    42   75   -5.959578    9.841438
    42   76   -5.959578    9.841438
    43    1   -0.004293    9.587195
    43    2   -0.728070    9.587531
    43    3   -1.457174    9.586977
    43    4   -2.190543    9.586575
    43    5   -2.931242    9.585883
    43    6   -3.681859    9.582863
    43    7   -4.444561    9.576226
    43    8   -5.219188    9.567125
    43    9   -6.006109    9.553435
    43   10   -6.536766    9.535976
    43   11   -6.260609    9.491440
    43   12   -6.008621    9.409082
    43   13   -5.776531    9.277867
    43   14   -5.586531    9.049297
    43   15   -5.382000    8.621438
    43   16   -4.928250    8.218125
    43   17   -4.928250    8.218125
    43   18   -4.928250    8.218125
    43   19   -4.928250    8.218125
    43   20   -4.928250    8.218125
    43   21   -4.928250    8.218125
    43   22   -4.928250    8.218125
    43   23   -4.928250    8.218125
    43   24   -4.928250    8.218125
    43   25   -4.928250    8.218125
    43   26   -4.928250    8.218125
    43   27   -4.928250    8.218125
    43   28   -4.928250    8.218125
    43   29   -4.928250    8.218125
    43   30   -4.928250    8.218125
    43   31   -4.928250    8.218125
    43   32   -4.928250    8.218125
    43   33   -4.928250    8.218125
    43   34   -4.928250    8.218125
    43   35   -4.928250    8.218125
    43   36   -4.928250    8.218125
    43   37   -4.928250    8.218125
    43   38   -4.928250    8.218125
    43   39   -4.928250    8.218125
    43   40   -4.928250    8.218125
    43   41   -4.928250    8.218125
    43   42   -4.928250    8.218125
    43   43   -4.928250    8.218125
    43   44   -4.928250    8.218125
    43   45   -4.928250    8.218125
    43   46   -4.928250    8.218125
    43   47   -4.928250    8.218125
    43   48   -4.928250    8.218125
    43   49   -4.928250    8.218125
    43   50   -4.928250    8.218125
    43   51   -4.928250    8.218125
    43   52   -4.928250    8.218125
    43   53   -4.928250    8.218125
    43   54   -4.928250    8.218125
    43   55   -4.928250    8.218125
    43   56   -4.928250    8.218125
    43   57   -4.928250    8.218125
    43   58   -4.928250    8.218125
    43   59   -4.928250    8.218125
    43   60   -4.928250    8.218125
    43   61   -4.928250    8.218125
    43   62   -4.928250    8.218125
    43   63   -4.928250    8.218125
    43   64   -4.928250    8.218125
    43   65   -4.928250    8.218125
    43   66   -4.928250    8.218125
    43   67   -4.928250    8.218125
    43   68   -4.928250    8.218125
    43   69   -4.928250    8.218125
    43   70   -4.928250    8.218125
    43   71   -4.928250    8.218125
    43   72   -4.928250    8.218125
    43   73   -4.928250    8.218125
    43   74   -4.928250    8.218125
    43   75   -4.928250    8.218125
    43   76   -4.928250    8.218125
    44    1   -0.004188    8.870914
    44    2   -0.711020    8.870054
    44    3   -1.420152    8.866664
    44    4   -2.135102    8.859735
    44    5   -2.857578    8.850019
    44    6   -3.587289    8.837746
    44    7   -4.328621    8.819640
    44    8   -5.079840    8.798467
    44    9   -5.845016    8.772564
    44   10   -6.350719    8.738641
    44   11   -6.044500    8.678890
    44   12   -5.755820    8.580531
    44   13   -5.475172    8.430000
    44   14   -5.173906    8.225156
    44   15   -4.824750    7.961125
    44   16   -4.343688    7.699328
    44   17   -3.526106    7.203282
    44   18   -3.526106    7.203282
    44   19   -3.526106    7.203282
    44   20   -3.526106    7.203282
    44   21   -3.526106    7.203282
    44   22   -3.526106    7.203282
    44   23   -3.526106    7.203282
    44   24   -3.526106    7.203282
    44   25   -3.526106    7.203282
    44   26   -3.526106    7.203282
    44   27   -3.526106    7.203282
    44   28   -3.526106    7.203282
    44   29   -3.526106    7.203282
    44   30   -3.526106    7.203282
    44   31   -3.526106    7.203282
    44   32   -3.526106    7.203282
    44   33   -3.526106    7.203282
    44   34   -3.526106    7.203282
    44   35   -3.526106    7.203282
    44   36   -3.526106    7.203282
    44   37   -3.526106    7.203282
    44   38   -3.526106    7.203282
    44   39   -3.526106    7.203282
    44   40   -3.526106    7.203282
    44   41   -3.526106    7.203282
    44   42   -3.526106    7.203282
    44   43   -3.526106    7.203282
    44   44   -3.526106    7.203282
    44   45   -3.526106    7.203282
    44   46   -3.526106    7.203282
    44   47   -3.526106    7.203282
    44   48   -3.526106    7.203282
    44   49   -3.526106    7.203282
    44   50   -3.526106    7.203282
    44   51   -3.526106    7.203282
    44   52   -3.526106    7.203282
    44   53   -3.526106    7.203282
    44   54   -3.526106    7.203282
    44   55   -3.526106    7.203282
    44   56   -3.526106    7.203282
    44   57   -3.526106    7.203282
    44   58   -3.526106    7.203282
    44   59   -3.526106    7.203282
    44   60   -3.526106    7.203282
    44   61   -3.526106    7.203282
    44   62   -3.526106    7.203282
    44   63   -3.526106    7.203282
    44   64   -3.526106    7.203282
    44   65   -3.526106    7.203282
    44   66   -3.526106    7.203282
    44   67   -3.526106    7.203282
    44   68   -3.526106    7.203282
    44   69   -3.526106    7.203282
    44   70   -3.526106    7.203282
    44   71   -3.526106    7.203282
    44   72   -3.526106    7.203282
    44   73   -3.526106    7.203282
    44   74   -3.526106    7.203282
    44   75   -3.526106    7.203282
    44   76   -3.526106    7.203282
    45    1   -0.004074    8.175008
    45    2   -0.691398    8.172945
    45    3   -1.380824    8.164063
    45    4   -2.075766    8.152040
    45    5   -2.776875    8.134767
    45    6   -3.485961    8.112470
    45    7   -4.205031    8.085645
    45    8   -4.935113    8.052178
    45    9   -5.676219    8.012483
    45   10   -6.154594    7.968063
    45   11   -5.825000    7.895398
    45   12   -5.502578    7.791094
    45   13   -5.179469    7.648344
    45   14   -4.841531    7.468375
    45   15   -4.472750    7.260625
    45   16   -4.058375    7.060000
    45   17   -3.661094    6.873438
    45   18   -3.661094    6.873438
    45   19   -3.661094    6.873438
    45   20   -3.661094    6.873438
    45   21   -3.661094    6.873438
    45   22   -3.661094    6.873438
    45   23   -3.661094    6.873438
    45   24   -3.661094    6.873438
    45   25   -3.661094    6.873438
    45   26   -3.661094    6.873438
    45   27   -3.661094    6.873438
    45   28   -3.661094    6.873438
    45   29   -3.661094    6.873438
    45   30   -3.661094    6.873438
    45   31   -3.661094    6.873438
    45   32   -3.661094    6.873438
    45   33   -3.661094    6.873438
    45   34   -3.661094    6.873438
    45   35   -3.661094    6.873438
    45   36   -3.661094    6.873438
    45   37   -3.661094    6.873438
    45   38   -3.661094    6.873438
    45   39   -3.661094    6.873438
    45   40   -3.661094    6.873438
    45   41   -3.661094    6.873438
    45   42   -3.661094    6.873438
    45   43   -3.661094    6.873438
    45   44   -3.661094    6.873438
    45   45   -3.661094    6.873438
    45   46   -3.661094    6.873438
    45   47   -3.661094    6.873438
    45   48   -3.661094    6.873438
    45   49   -3.661094    6.873438
    45   50   -3.661094    6.873438
    45   51   -3.661094    6.873438
    45   52   -3.661094    6.873438
    45   53   -3.661094    6.873438
    45   54   -3.661094    6.873438
    45   55   -3.661094    6.873438
    45   56   -3.661094    6.873438
    45   57   -3.661094    6.873438
    45   58   -3.661094    6.873438
    45   59   -3.661094    6.873438
    45   60   -3.661094    6.873438
    45   61   -3.661094    6.873438
    45   62   -3.661094    6.873438
    45   63   -3.661094    6.873438
    45   64   -3.661094    6.873438
    45   65   -3.661094    6.873438
    45   66   -3.661094    6.873438
    45   67   -3.661094    6.873438
    45   68   -3.661094    6.873438
    45   69   -3.661094    6.873438
    45   70   -3.661094    6.873438
    45   71   -3.661094    6.873438
    45   72   -3.661094    6.873438
    45   73   -3.661094    6.873438
    45   74   -3.661094    6.873438
    45   75   -3.661094    6.873438
    45   76   -3.661094    6.873438
    46    1   -0.003992    7.497320
    46    2   -0.670096    7.494031
    46    3   -1.338287    7.483219
    46    4   -2.010992    7.465297
    46    5   -2.690941    7.439961
    46    6   -3.379092    7.409133
    46    7   -4.076207    7.371523
    46    8   -4.784172    7.327434
    46    9   -5.502672    7.276171
    46   10   -5.960219    7.220633
    46   11   -5.607375    7.143109
    46   12   -5.258992    7.034656
    46   13   -4.909984    6.897781
    46   14   -4.548969    6.734156
    46   15   -4.176766    6.553750
    46   16   -3.787719    6.363250
    46   17   -3.354000    6.125438
    46   18   -3.156917    7.171940
    46   19   -3.156917    7.171940
    46   20   -3.156917    7.171940
    46   21   -3.156917    7.171940
    46   22   -3.156917    7.171940
    46   23   -3.156917    7.171940
    46   24   -3.156917    7.171940
    46   25   -3.156917    7.171940
    46   26   -3.156917    7.171940
    46   27   -3.156917    7.171940
    46   28   -3.156917    7.171940
    46   29   -3.156917    7.171940
    46   30   -3.156917    7.171940
    46   31   -3.156917    7.171940
    46   32   -3.156917    7.171940
    46   33   -3.156917    7.171940
    46   34   -3.156917    7.171940
    46   35   -3.156917    7.171940
    46   36   -3.156917    7.171940
    46   37   -3.156917    7.171940
    46   38   -3.156917    7.171940
    46   39   -3.156917    7.171940
    46   40   -3.156917    7.171940
    46   41   -3.156917    7.171940
    46   42   -3.156917    7.171940
    46   43   -3.156917    7.171940
    46   44   -3.156917    7.171940
    46   45   -3.156917    7.171940
    46   46   -3.156917    7.171940
    46   47   -3.156917    7.171940
    46   48   -3.156917    7.171940
    46   49   -3.156917    7.171940
    46   50   -3.156917    7.171940
    46   51   -3.156917    7.171940
    46   52   -3.156917    7.171940
    46   53   -3.156917    7.171940
    46   54   -3.156917    7.171940
    46   55   -3.156917    7.171940
    46   56   -3.156917    7.171940
    46   57   -3.156917    7.171940
    46   58   -3.156917    7.171940
    46   59   -3.156917    7.171940
    46   60   -3.156917    7.171940
    46   61   -3.156917    7.171940
    46   62   -3.156917    7.171940
    46   63   -3.156917    7.171940
    46   64   -3.156917    7.171940
    46   65   -3.156917    7.171940
    46   66   -3.156917    7.171940
    46   67   -3.156917    7.171940
    46   68   -3.156917    7.171940
    46   69   -3.156917    7.171940
    46   70   -3.156917    7.171940
    46   71   -3.156917    7.171940
    46   72   -3.156917    7.171940
    46   73   -3.156917    7.171940
    46   74   -3.156917    7.171940
    46   75   -3.156917    7.171940
    46   76   -3.156917    7.171940
    47    1   -0.003455    6.842563
    47    2   -0.646996    6.838078
    47    3   -1.292637    6.823641
    47    4   -1.942826    6.800953
    47    5   -2.600807    6.768504
    47    6   -3.266449    6.728078
    47    7   -3.942059    6.679070
    47    8   -4.628094    6.624141
    47    9   -5.326250    6.563988
    47   10   -5.764609    6.495996
    47   11   -5.391000    6.410844
    47   12   -5.022320    6.298578
    47   13   -4.659141    6.163297
    47   14   -4.287484    6.010328
    47   15   -3.913703    5.841922
    47   16   -3.520656    5.675375
    47   17   -3.074117    5.550234
    47   18   -2.652740    5.486423
    47   19   -2.652740    5.486423
    47   20   -2.652740    5.486423
    47   21   -2.652740    5.486423
    47   22   -2.652740    5.486423
    47   23   -2.652740    5.486423
    47   24   -2.652740    5.486423
    47   25   -2.652740    5.486423
    47   26   -2.652740    5.486423
    47   27   -2.652740    5.486423
    47   28   -2.652740    5.486423
    47   29   -2.652740    5.486423
    47   30   -2.652740    5.486423
    47   31   -2.652740    5.486423
    47   32   -2.652740    5.486423
    47   33   -2.652740    5.486423
    47   34   -2.652740    5.486423
    47   35   -2.652740    5.486423
    47   36   -2.652740    5.486423
    47   37   -2.652740    5.486423
    47   38   -2.652740    5.486423
    47   39   -2.652740    5.486423
    47   40   -2.652740    5.486423
    47   41   -2.652740    5.486423
    47   42   -2.652740    5.486423
    47   43   -2.652740    5.486423
    47   44   -2.652740    5.486423
    47   45   -2.652740    5.486423
    47   46   -2.652740    5.486423
    47   47   -2.652740    5.486423
    47   48   -2.652740    5.486423
    47   49   -2.652740    5.486423
    47   50   -2.652740    5.486423
    47   51   -2.652740    5.486423
    47   52   -2.652740    5.486423
    47   53   -2.652740    5.486423
    47   54   -2.652740    5.486423
    47   55   -2.652740    5.486423
    47   56   -2.652740    5.486423
    47   57   -2.652740    5.486423
    47   58   -2.652740    5.486423
    47   59   -2.652740    5.486423
    47   60   -2.652740    5.486423
    47   61   -2.652740    5.486423
    47   62   -2.652740    5.486423
    47   63   -2.652740    5.486423
    47   64   -2.652740    5.486423
    47   65   -2.652740    5.486423
    47   66   -2.652740    5.486423
    47   67   -2.652740    5.486423
    47   68   -2.652740    5.486423
    47   69   -2.652740    5.486423
    47   70   -2.652740    5.486423
    47   71   -2.652740    5.486423
    47   72   -2.652740    5.486423
    47   73   -2.652740    5.486423
    47   74   -2.652740    5.486423
    47   75   -2.652740    5.486423
    47   76   -2.652740    5.486423
    48    1   -0.002885    6.210453
    48    2   -0.622604    6.204984
    48    3   -1.244658    6.187656
    48    4   -1.871701    6.158961
    48    5   -2.505132    6.119379
    48    6   -3.146824    6.068781
    48    7   -3.801604    6.009965
    48    8   -4.465723    5.942320
    48    9   -5.143891    5.868438
    48   10   -5.563109    5.791416
    48   11   -5.169719    5.695508
    48   12   -4.789547    5.577734
    48   13   -4.415430    5.439750
    48   14   -4.041805    5.288984
    48   15   -3.671344    5.129250
    48   16   -3.288547    4.976703
    48   17   -2.916594    4.858094
    48   18   -2.610375    4.781875
    48   19   -2.454188    4.699438
    48   20   -2.454188    4.699438
    48   21   -2.454188    4.699438
    48   22   -2.454188    4.699438
    48   23   -2.454188    4.699438
    48   24   -2.454188    4.699438
    48   25   -2.454188    4.699438
    48   26   -2.454188    4.699438
    48   27   -2.454188    4.699438
    48   28   -2.454188    4.699438
    48   29   -2.454188    4.699438
    48   30   -2.454188    4.699438
    48   31   -2.454188    4.699438
    48   32   -2.454188    4.699438
    48   33   -2.454188    4.699438
    48   34   -2.454188    4.699438
    48   35   -2.454188    4.699438
    48   36   -2.454188    4.699438
    48   37   -2.454188    4.699438
    48   38   -2.454188    4.699438
    48   39   -2.454188    4.699438
    48   40   -2.454188    4.699438
    48   41   -2.454188    4.699438
    48   42   -2.454188    4.699438
    48   43   -2.454188    4.699438
    48   44   -2.454188    4.699438
    48   45   -2.454188    4.699438
    48   46   -2.454188    4.699438
    48   47   -2.454188    4.699438
    48   48   -2.454188    4.699438
    48   49   -2.454188    4.699438
    48   50   -2.454188    4.699438
    48   51   -2.454188    4.699438
    48   52   -2.454188    4.699438
    48   53   -2.454188    4.699438
    48   54   -2.454188    4.699438
    48   55   -2.454188    4.699438
    48   56   -2.454188    4.699438
    48   57   -2.454188    4.699438
    48   58   -2.454188    4.699438
    48   59   -2.454188    4.699438
    48   60   -2.454188    4.699438
    48   61   -2.454188    4.699438
    48   62   -2.454188    4.699438
    48   63   -2.454188    4.699438
    48   64   -2.454188    4.699438
    48   65   -2.454188    4.699438
    48   66   -2.454188    4.699438
    48   67   -2.454188    4.699438
    48   68   -2.454188    4.699438
    48   69   -2.454188    4.699438
    48   70   -2.454188    4.699438
    48   71   -2.454188    4.699438
    48   72   -2.454188    4.699438
    48   73   -2.454188    4.699438
    48   74   -2.454188    4.699438
    48   75   -2.454188    4.699438
    48   76   -2.454188    4.699438
    49    1   -0.003798    5.604492
    49    2   -0.597067    5.596953
    49    3   -1.193340    5.576289
    49    4   -1.794816    5.540945
    49    5   -2.404125    5.493453
    49    6   -3.023105    5.432492
    49    7   -3.653141    5.361938
    49    8   -4.297313    5.280550
    49    9   -4.954234    5.192645
    49   10   -5.358979    5.103375
    49   11   -4.953289    4.995008
    49   12   -4.558367    4.866016
    49   13   -4.177945    4.723234
    49   14   -3.801594    4.567406
    49   15   -3.433703    4.405781
    49   16   -3.074719    4.240938
    49   17   -2.742836    4.082203
    49   18   -2.461844    3.898500
    49   19   -2.249188    3.665535
    49   20   -2.249188    3.665535
    49   21   -2.249188    3.665535
    49   22   -2.249188    3.665535
    49   23   -2.249188    3.665535
    49   24   -2.249188    3.665535
    49   25   -2.249188    3.665535
    49   26   -2.249188    3.665535
    49   27   -2.249188    3.665535
    49   28   -2.249188    3.665535
    49   29   -2.249188    3.665535
    49   30   -2.249188    3.665535
    49   31   -2.249188    3.665535
    49   32   -2.249188    3.665535
    49   33   -2.249188    3.665535
    49   34   -2.249188    3.665535
    49   35   -2.249188    3.665535
    49   36   -2.249188    3.665535
    49   37   -2.249188    3.665535
    49   38   -2.249188    3.665535
    49   39   -2.249188    3.665535
    49   40   -2.249188    3.665535
    49   41   -2.249188    3.665535
    49   42   -2.249188    3.665535
    49   43   -2.249188    3.665535
    49   44   -2.249188    3.665535
    49   45   -2.249188    3.665535
    49   46   -2.249188    3.665535
    49   47   -2.249188    3.665535
    49   48   -2.249188    3.665535
    49   49   -2.249188    3.665535
    49   50   -2.249188    3.665535
    49   51   -2.249188    3.665535
    49   52   -2.249188    3.665535
    49   53   -2.249188    3.665535
    49   54   -2.249188    3.665535
    49   55   -2.249188    3.665535
    49   56   -2.249188    3.665535
    49   57   -2.249188    3.665535
    49   58   -2.249188    3.665535
    49   59   -2.249188    3.665535
    49   60   -2.249188    3.665535
    49   61   -2.249188    3.665535
    49   62   -2.249188    3.665535
    49   63   -2.249188    3.665535
    49   64   -2.249188    3.665535
    49   65   -2.249188    3.665535
    49   66   -2.249188    3.665535
    49   67   -2.249188    3.665535
    49   68   -2.249188    3.665535
    49   69   -2.249188    3.665535
    49   70   -2.249188    3.665535
    49   71   -2.249188    3.665535
    49   72   -2.249188    3.665535
    49   73   -2.249188    3.665535
    49   74   -2.249188    3.665535
    49   75   -2.249188    3.665535
    49   76   -2.249188    3.665535
    50    1   -0.003522    5.025836
    50    2   -0.569153    5.017336
    50    3   -1.139241    4.991758
    50    4   -1.713118    4.949605
    50    5   -2.294970    4.891938
    50    6   -2.888987    4.820896
    50    7   -3.495758    4.735609
    50    8   -4.117482    4.638869
    50    9   -4.759844    4.536688
    50   10   -5.144664    4.428486
    50   11   -4.725633    4.305547
    50   12   -4.324699    4.163727
    50   13   -3.938195    4.009523
    50   14   -3.562133    3.843656
    50   15   -3.196563    3.672359
    50   16   -2.845125    3.493828
    50   17   -2.506215    3.302230
    50   18   -2.197438    3.071313
    50   19   -1.881750    2.765250
    50   20   -1.456250    2.424941
    50   21   -1.456250    2.424941
    50   22   -1.456250    2.424941
    50   23   -1.456250    2.424941
    50   24   -1.456250    2.424941
    50   25   -1.456250    2.424941
    50   26   -1.456250    2.424941
    50   27   -1.456250    2.424941
    50   28   -1.456250    2.424941
    50   29   -1.456250    2.424941
    50   30   -1.456250    2.424941
    50   31   -1.456250    2.424941
    50   32   -1.456250    2.424941
    50   33   -1.456250    2.424941
    50   34   -1.456250    2.424941
    50   35   -1.456250    2.424941
    50   36   -1.456250    2.424941
    50   37   -1.456250    2.424941
    50   38   -1.456250    2.424941
    50   39   -1.456250    2.424941
    50   40   -1.456250    2.424941
    50   41   -1.456250    2.424941
    50   42   -1.456250    2.424941
    50   43   -1.456250    2.424941
    50   44   -1.456250    2.424941
    50   45   -1.456250    2.424941
    50   46   -1.456250    2.424941
    50   47   -1.456250    2.424941
    50   48   -1.456250    2.424941
    50   49   -1.456250    2.424941
    50   50   -1.456250    2.424941
    50   51   -1.456250    2.424941
    50   52   -1.456250    2.424941
    50   53   -1.456250    2.424941
    50   54   -1.456250    2.424941
    50   55   -1.456250    2.424941
    50   56   -1.456250    2.424941
    50   57   -1.456250    2.424941
    50   58   -1.456250    2.424941
    50   59   -1.456250    2.424941
    50   60   -1.456250    2.424941
    50   61   -1.456250    2.424941
    50   62   -1.456250    2.424941
    50   63   -1.456250    2.424941
    50   64   -1.456250    2.424941
    50   65   -1.456250    2.424941
    50   66   -1.456250    2.424941
    50   67   -1.456250    2.424941
    50   68   -1.456250    2.424941
    50   69   -1.456250    2.424941
    50   70   -1.456250    2.424941
    50   71   -1.456250    2.424941
    50   72   -1.456250    2.424941
    50   73   -1.456250    2.424941
    50   74   -1.456250    2.424941
    50   75   -1.456250    2.424941
    50   76   -1.456250    2.424941
    51    1   -0.002206    4.474188
    51    2   -0.539148    4.464766
    51    3   -1.079928    4.434930
    51    4   -1.625803    4.385750
    51    5   -2.180145    4.318832
    51    6   -2.745688    4.233734
    51    7   -3.327427    4.132781
    51    8   -3.927320    4.020086
    51    9   -4.548336    3.898295
    51   10   -4.918045    3.768816
    51   11   -4.490203    3.624840
    51   12   -4.083424    3.468039
    51   13   -3.693438    3.298836
    51   14   -3.317820    3.122438
    51   15   -2.953363    2.940531
    51   16   -2.599125    2.750609
    51   17   -2.249430    2.544766
    51   18   -1.892984    2.319625
    51   19   -1.514875    2.079000
    51   20   -1.092313    1.802813
    51   21   -0.494179    1.207875
    51   22   -0.494179    1.207875
    51   23   -0.494179    1.207875
    51   24   -0.494179    1.207875
    51   25   -0.494179    1.207875
    51   26   -0.494179    1.207875
    51   27   -0.494179    1.207875
    51   28   -0.494179    1.207875
    51   29   -0.494179    1.207875
    51   30   -0.494179    1.207875
    51   31   -0.494179    1.207875
    51   32   -0.494179    1.207875
    51   33   -0.494179    1.207875
    51   34   -0.494179    1.207875
    51   35   -0.494179    1.207875
    51   36   -0.494179    1.207875
    51   37   -0.494179    1.207875
    51   38   -0.494179    1.207875
    51   39   -0.494179    1.207875
    51   40   -0.494179    1.207875
    51   41   -0.494179    1.207875
    51   42   -0.494179    1.207875
    51   43   -0.494179    1.207875
    51   44   -0.494179    1.207875
    51   45   -0.494179    1.207875
    51   46   -0.494179    1.207875
    51   47   -0.494179    1.207875
    51   48   -0.494179    1.207875
    51   49   -0.494179    1.207875
    51   50   -0.494179    1.207875
    51   51   -0.494179    1.207875
    51   52   -0.494179    1.207875
    51   53   -0.494179    1.207875
    51   54   -0.494179    1.207875
    51   55   -0.494179    1.207875
    51   56   -0.494179    1.207875
    51   57   -0.494179    1.207875
    51   58   -0.494179    1.207875
    51   59   -0.494179    1.207875
    51   60   -0.494179    1.207875
    51   61   -0.494179    1.207875
    51   62   -0.494179    1.207875
    51   63   -0.494179    1.207875
    51   64   -0.494179    1.207875
    51   65   -0.494179    1.207875
    51   66   -0.494179    1.207875
    51   67   -0.494179    1.207875
    51   68   -0.494179    1.207875
    51   69   -0.494179    1.207875
    51   70   -0.494179    1.207875
    51   71   -0.494179    1.207875
    51   72   -0.494179    1.207875
    51   73   -0.494179    1.207875
    51   74   -0.494179    1.207875
    51   75   -0.494179    1.207875
    51   76   -0.494179    1.207875
    52    1   -0.001965    3.953250
    52    2   -0.507621    3.942055
    52    3   -1.016732    3.907453
    52    4   -1.530500    3.851211
    52    5   -2.054680    3.772855
    52    6   -2.591428    3.673766
    52    7   -3.146190    3.555625
    52    8   -3.722848    3.421359
    52    9   -4.323695    3.273924
    52   10   -4.679378    3.120185
    52   11   -4.242666    2.953033
    52   12   -3.832544    2.774871
    52   13   -3.442574    2.587977
    52   14   -3.070535    2.397594
    52   15   -2.707719    2.206531
    52   16   -2.353008    2.009281
    52   17   -1.995859    1.805656
    52   18   -1.635000    1.593938
    52   19   -1.254328    1.374156
    52   20   -0.838953    1.160094
    52   21   -0.415469    0.970078
    52   22   -0.415469    0.970078
    52   23   -0.415469    0.970078
    52   24   -0.415469    0.970078
    52   25   -0.415469    0.970078
    52   26   -0.415469    0.970078
    52   27   -0.415469    0.970078
    52   28   -0.415469    0.970078
    52   29   -0.415469    0.970078
    52   30   -0.415469    0.970078
    52   31   -0.415469    0.970078
    52   32   -0.415469    0.970078
    52   33   -0.415469    0.970078
    52   34   -0.415469    0.970078
    52   35   -0.415469    0.970078
    52   36   -0.415469    0.970078
    52   37   -0.415469    0.970078
    52   38   -0.415469    0.970078
    52   39   -0.415469    0.970078
    52   40   -0.415469    0.970078
    52   41   -0.415469    0.970078
    52   42   -0.415469    0.970078
    52   43   -0.415469    0.970078
    52   44   -0.415469    0.970078
    52   45   -0.415469    0.970078
    52   46   -0.415469    0.970078
    52   47   -0.415469    0.970078
    52   48   -0.415469    0.970078
    52   49   -0.415469    0.970078
    52   50   -0.415469    0.970078
    52   51   -0.415469    0.970078
    52   52   -0.415469    0.970078
    52   53   -0.415469    0.970078
    52   54   -0.415469    0.970078
    52   55   -0.415469    0.970078
    52   56   -0.415469    0.970078
    52   57   -0.415469    0.970078
    52   58   -0.415469    0.970078
    52   59   -0.415469    0.970078
    52   60   -0.415469    0.970078
    52   61   -0.415469    0.970078
    52   62   -0.415469    0.970078
    52   63   -0.415469    0.970078
    52   64   -0.415469    0.970078
    52   65   -0.415469    0.970078
    52   66   -0.415469    0.970078
    52   67   -0.415469    0.970078
    52   68   -0.415469    0.970078
    52   69   -0.415469    0.970078
    52   70   -0.415469    0.970078
    52   71   -0.415469    0.970078
    52   72   -0.415469    0.970078
    52   73   -0.415469    0.970078
    52   74   -0.415469    0.970078
    52   75   -0.415469    0.970078
    52   76   -0.415469    0.970078
    53    1   -0.002959    3.463258
    53    2   -0.474806    3.450828
    53    3   -0.949768    3.412945
    53    4   -1.429945    3.349203
    53    5   -1.920623    3.259695
    53    6   -2.424220    3.144195
    53    7   -2.947821    3.006125
    53    8   -3.497355    2.843727
    53    9   -4.076586    2.671520
    53   10   -4.417297    2.482860
    53   11   -3.975043    2.284792
    53   12   -3.565503    2.079277
    53   13   -3.181090    1.872352
    53   14   -2.814648    1.668984
    53   15   -2.459375    1.468000
    53   16   -2.108438    1.268297
    53   17   -1.756828    1.071281
    53   18   -1.395609    0.872563
    53   19   -1.019547    0.670500
    53   20   -0.625930    0.468813
    53   21   -0.208313    0.287625
    53   22    0.000000   -0.033122
    53   23    0.000000   -0.033122
    53   24    0.000000   -0.033122
    53   25    0.000000   -0.033122
    53   26    0.000000   -0.033122
    53   27    0.000000   -0.033122
    53   28    0.000000   -0.033122
    53   29    0.000000   -0.033122
    53   30    0.000000   -0.033122
    53   31    0.000000   -0.033122
    53   32    0.000000   -0.033122
    53   33    0.000000   -0.033122
    53   34    0.000000   -0.033122
    53   35    0.000000   -0.033122
    53   36    0.000000   -0.033122
    53   37    0.000000   -0.033122
    53   38    0.000000   -0.033122
    53   39    0.000000   -0.033122
    53   40    0.000000   -0.033122
    53   41    0.000000   -0.033122
    53   42    0.000000   -0.033122
    53   43    0.000000   -0.033122
    53   44    0.000000   -0.033122
    53   45    0.000000   -0.033122
    53   46    0.000000   -0.033122
    53   47    0.000000   -0.033122
    53   48    0.000000   -0.033122
    53   49    0.000000   -0.033122
    53   50    0.000000   -0.033122
    53   51    0.000000   -0.033122
    53   52    0.000000   -0.033122
    53   53    0.000000   -0.033122
    53   54    0.000000   -0.033122
    53   55    0.000000   -0.033122
    53   56    0.000000   -0.033122
    53   57    0.000000   -0.033122
    53   58    0.000000   -0.033122
    53   59    0.000000   -0.033122
    53   60    0.000000   -0.033122
    53   61    0.000000   -0.033122
    53   62    0.000000   -0.033122
    53   63    0.000000   -0.033122
    53   64    0.000000   -0.033122
    53   65    0.000000   -0.033122
    53   66    0.000000   -0.033122
    53   67    0.000000   -0.033122
    53   68    0.000000   -0.033122
    53   69    0.000000   -0.033122
    53   70    0.000000   -0.033122
    53   71    0.000000   -0.033122
    53   72    0.000000   -0.033122
    53   73    0.000000   -0.033122
    53   74    0.000000   -0.033122
    53   75    0.000000   -0.033122
    53   76    0.000000   -0.033122
    54    1   -0.003223    3.010047
    54    2   -0.439295    2.996266
    54    3   -0.878105    2.954234
    54    4   -1.321998    2.882266
    54    5   -1.775265    2.781281
    54    6   -2.243315    2.650563
    54    7   -2.730357    2.489609
    54    8   -3.244133    2.291250
    54    9   -3.796691    2.082960
    54   10   -4.120992    1.853988
    54   11   -3.682496    1.614656
    54   12   -3.280406    1.377555
    54   13   -2.910083    1.147000
    54   14   -2.558268    0.930680
    54   15   -2.214816    0.722906
    54   16   -1.875395    0.524984
    54   17   -1.531883    0.331906
    54   18   -1.177063    0.144313
    54   19   -0.808109   -0.044219
    54   20   -0.425086   -0.228906
    54   21   -0.022039   -0.414258
    54   22    0.344938   -0.612406
    54   23    0.344938   -0.612406
    54   24    0.344938   -0.612406
    54   25    0.344938   -0.612406
    54   26    0.344938   -0.612406
    54   27    0.344938   -0.612406
    54   28    0.344938   -0.612406
    54   29    0.344938   -0.612406
    54   30    0.344938   -0.612406
    54   31    0.344938   -0.612406
    54   32    0.344938   -0.612406
    54   33    0.344938   -0.612406
    54   34    0.344938   -0.612406
    54   35    0.344938   -0.612406
    54   36    0.344938   -0.612406
    54   37    0.344938   -0.612406
    54   38    0.344938   -0.612406
    54   39    0.344938   -0.612406
    54   40    0.344938   -0.612406
    54   41    0.344938   -0.612406
    54   42    0.344938   -0.612406
    54   43    0.344938   -0.612406
    54   44    0.344938   -0.612406
    54   45    0.344938   -0.612406
    54   46    0.344938   -0.612406
    54   47    0.344938   -0.612406
    54   48    0.344938   -0.612406
    54   49    0.344938   -0.612406
    54   50    0.344938   -0.612406
    54   51    0.344938   -0.612406
    54   52    0.344938   -0.612406
    54   53    0.344938   -0.612406
    54   54    0.344938   -0.612406
    54   55    0.344938   -0.612406
    54   56    0.344938   -0.612406
    54   57    0.344938   -0.612406
    54   58    0.344938   -0.612406
    54   59    0.344938   -0.612406
    54   60    0.344938   -0.612406
    54   61    0.344938   -0.612406
    54   62    0.344938   -0.612406
    54   63    0.344938   -0.612406
    54   64    0.344938   -0.612406
    54   65    0.344938   -0.612406
    54   66    0.344938   -0.612406
    54   67    0.344938   -0.612406
    54   68    0.344938   -0.612406
    54   69    0.344938   -0.612406
    54   70    0.344938   -0.612406
    54   71    0.344938   -0.612406
    54   72    0.344938   -0.612406
    54   73    0.344938   -0.612406
    54   74    0.344938   -0.612406
    54   75    0.344938   -0.612406
    54   76    0.344938   -0.612406
    55    1   -0.002092    2.593250
    55    2   -0.401682    2.577375
    55    3   -0.803321    2.531734
    55    4   -1.208720    2.453797
    55    5   -1.622788    2.342805
    55    6   -2.046607    2.195000
    55    7   -2.489350    2.009656
    55    8   -2.957266    1.781531
    55    9   -3.480379    1.523113
    55   10   -3.792992    1.234276
    55   11   -3.353094    0.935016
    55   12   -2.972448    0.657914
    55   13   -2.625702    0.404406
    55   14   -2.295361    0.175547
    55   15   -1.973840   -0.036875
    55   16   -1.647891   -0.234938
    55   17   -1.320398   -0.419781
    55   18   -0.978273   -0.593156
    55   19   -0.619266   -0.764750
    55   20   -0.242547   -0.936219
    55   21    0.162773   -1.119563
    55   22    0.562016   -1.380656
    55   23    1.016000   -1.742188
    55   24    1.016000   -1.742188
    55   25    1.016000   -1.742188
    55   26    1.016000   -1.742188
    55   27    1.016000   -1.742188
    55   28    1.016000   -1.742188
    55   29    1.016000   -1.742188
    55   30    1.016000   -1.742188
    55   31    1.016000   -1.742188
    55   32    1.016000   -1.742188
    55   33    1.016000   -1.742188
    55   34    1.016000   -1.742188
    55   35    1.016000   -1.742188
    55   36    1.016000   -1.742188
    55   37    1.016000   -1.742188
    55   38    1.016000   -1.742188
    55   39    1.016000   -1.742188
    55   40    1.016000   -1.742188
    55   41    1.016000   -1.742188
    55   42    1.016000   -1.742188
    55   43    1.016000   -1.742188
    55   44    1.016000   -1.742188
    55   45    1.016000   -1.742188
    55   46    1.016000   -1.742188
    55   47    1.016000   -1.742188
    55   48    1.016000   -1.742188
    55   49    1.016000   -1.742188
    55   50    1.016000   -1.742188
    55   51    1.016000   -1.742188
    55   52    1.016000   -1.742188
    55   53    1.016000   -1.742188
    55   54    1.016000   -1.742188
    55   55    1.016000   -1.742188
    55   56    1.016000   -1.742188
    55   57    1.016000   -1.742188
    55   58    1.016000   -1.742188
    55   59    1.016000   -1.742188
    55   60    1.016000   -1.742188
    55   61    1.016000   -1.742188
    55   62    1.016000   -1.742188
    55   63    1.016000   -1.742188
    55   64    1.016000   -1.742188
    55   65    1.016000   -1.742188
    55   66    1.016000   -1.742188
    55   67    1.016000   -1.742188
    55   68    1.016000   -1.742188
    55   69    1.016000   -1.742188
    55   70    1.016000   -1.742188
    55   71    1.016000   -1.742188
    55   72    1.016000   -1.742188
    55   73    1.016000   -1.742188
    55   74    1.016000   -1.742188
    55   75    1.016000   -1.742188
    55   76    1.016000   -1.742188
    56    1   -0.001978    2.212809
    56    2   -0.363257    2.196383
    56    3   -0.725316    2.147430
    56    4   -1.090813    2.065582
    56    5   -1.459877    1.946352
    56    6   -1.836694    1.786055
    56    7   -2.227508    1.579000
    56    8   -2.638230    1.316227
    56    9   -3.096531    0.997203
    56   10   -3.377469    0.613727
    56   11   -2.975828    0.230203
    56   12   -2.640338   -0.090742
    56   13   -2.331107   -0.368938
    56   14   -2.028036   -0.603711
    56   15   -1.736406   -0.820250
    56   16   -1.432754   -1.007656
    56   17   -1.124090   -1.184781
    56   18   -0.797891   -1.343719
    56   19   -0.450500   -1.492594
    56   20   -0.079039   -1.638094
    56   21    0.342547   -1.793188
    56   22    0.849031   -1.997125
    56   23    1.472750   -2.261500
    56   24    1.472750   -2.261500
    56   25    1.472750   -2.261500
    56   26    1.472750   -2.261500
    56   27    1.472750   -2.261500
    56   28    1.472750   -2.261500
    56   29    1.472750   -2.261500
    56   30    1.472750   -2.261500
    56   31    1.472750   -2.261500
    56   32    1.472750   -2.261500
    56   33    1.472750   -2.261500
    56   34    1.472750   -2.261500
    56   35    1.472750   -2.261500
    56   36    1.472750   -2.261500
    56   37    1.472750   -2.261500
    56   38    1.472750   -2.261500
    56   39    1.472750   -2.261500
    56   40    1.472750   -2.261500
    56   41    1.472750   -2.261500
    56   42    1.472750   -2.261500
    56   43    1.472750   -2.261500
    56   44    1.472750   -2.261500
    56   45    1.472750   -2.261500
    56   46    1.472750   -2.261500
    56   47    1.472750   -2.261500
    56   48    1.472750   -2.261500
    56   49    1.472750   -2.261500
    56   50    1.472750   -2.261500
    56   51    1.472750   -2.261500
    56   52    1.472750   -2.261500
    56   53    1.472750   -2.261500
    56   54    1.472750   -2.261500
    56   55    1.472750   -2.261500
    56   56    1.472750   -2.261500
    56   57    1.472750   -2.261500
    56   58    1.472750   -2.261500
    56   59    1.472750   -2.261500
    56   60    1.472750   -2.261500
    56   61    1.472750   -2.261500
    56   62    1.472750   -2.261500
    56   63    1.472750   -2.261500
    56   64    1.472750   -2.261500
    56   65    1.472750   -2.261500
    56   66    1.472750   -2.261500
    56   67    1.472750   -2.261500
    56   68    1.472750   -2.261500
    56   69    1.472750   -2.261500
    56   70    1.472750   -2.261500
    56   71    1.472750   -2.261500
    56   72    1.472750   -2.261500
    56   73    1.472750   -2.261500
    56   74    1.472750   -2.261500
    56   75    1.472750   -2.261500
    56   76    1.472750   -2.261500
    57    1   -0.002168    1.871063
    57    2   -0.326105    1.854789
    57    3   -0.646409    1.805543
    57    4   -0.969788    1.720621
    57    5   -1.293991    1.597444
    57    6   -1.619094    1.431766
    57    7   -1.945145    1.214172
    57    8   -2.274910    0.928891
    57    9   -2.624500    0.539297
    57   10   -2.877209   -0.253328
    57   11   -2.495586   -0.504951
    57   12   -2.279250   -0.908156
    57   13   -2.022969   -1.170273
    57   14   -1.769594   -1.431938
    57   15   -1.499750   -1.624844
    57   16   -1.226375   -1.821504
    57   17   -0.935918   -1.965902
    57   18   -0.633426   -2.114952
    57   19   -0.297871   -2.231813
    57   20    0.066156   -2.352496
    57   21    0.497502   -2.424229
    57   22    1.009848   -2.482736
    57   23    1.667469   -2.551000
    57   24    2.479055   -2.547516
    57   25    3.133000   -1.003250
    57   26    2.612719   -0.070750
    57   27    1.604875    0.397984
    57   28    1.416410    0.069301
    57   29    1.236422    0.050016
    57   30    1.124762    0.027734
    57   31    1.037078    0.026230
    57   32    0.970164    0.016928
    57   33    0.917098    0.014296
    57   34    0.872710    0.011488
    57   35    0.837216    0.009738
    57   36    0.806908    0.008787
    57   37    0.782141    0.008228
    57   38    0.760569    0.007108
    57   39    0.742638    0.007017
    57   40    0.727960    0.005820
    57   41    0.715588    0.005287
    57   42    0.705644    0.004722
    57   43    0.697504    0.004520
    57   44    0.691310    0.003943
    57   45    0.686815    0.003698
    57   46    0.683927    0.003451
    57   47    0.682360    0.003453
    57   48    0.682424    0.002928
    57   49    0.683940    0.002657
    57   50    0.686920    0.002432
    57   51    0.691441    0.002166
    57   52    0.697458    0.001979
    57   53    0.704817    0.001611
    57   54    0.714090    0.001668
    57   55    0.725084    0.000772
    57   56    0.737934    0.001098
    57   57    0.753184   -0.000091
    57   58    0.770451    0.000338
    57   59    0.790770   -0.001629
    57   60    0.813480   -0.000586
    57   61    0.839893   -0.001658
    57   62    0.870859   -0.002531
    57   63    0.906026   -0.003393
    57   64    0.947473   -0.003773
    57   65    0.995596   -0.004588
    57   66    1.053027   -0.007020
    57   67    1.122625   -0.010641
    57   68    1.205590   -0.011895
    57   69    1.310392   -0.013666
    57   70    1.446406   -0.020648
    57   71    1.633125   -0.030000
    57   72    1.897633   -0.034422
    57   73    2.349500   -0.003500
    57   74    3.275625    0.120250
    57   75    4.608625    1.227375
    57   76    4.169517    2.816520
    58    1   -0.001968    1.566777
    58    2   -0.286338    1.551137
    58    3   -0.570490    1.501711
    58    4   -0.851518    1.419070
    58    5   -1.129174    1.297592
    58    6   -1.403620    1.135465
    58    7   -1.666514    0.922464
    58    8   -1.912836    0.645969
    58    9   -2.120188    0.270438
    58   10   -2.197563   -0.169375
    58   11   -2.073688   -0.578281
    58   12   -1.946422   -0.932961
    58   13   -1.737094   -1.201477
    58   14   -1.524828   -1.445086
    58   15   -1.286078   -1.634773
    58   16   -1.043570   -1.817836
    58   17   -0.788313   -1.948289
    58   18   -0.508516   -2.076242
    58   19   -0.203121   -2.161064
    58   20    0.123094   -2.251703
    58   21    0.510656   -2.259656
    58   22    0.933391   -2.236922
    58   23    1.450500   -2.077656
    58   24    1.924125   -1.656750
    58   25    2.136000   -0.985250
    58   26    1.911688   -0.481813
    58   27    1.568563   -0.168781
    58   28    1.327625   -0.129156
    58   29    1.190762   -0.088531
    58   30    1.084563   -0.066766
    58   31    1.007854   -0.051914
    58   32    0.945391   -0.041148
    58   33    0.894999   -0.032631
    58   34    0.853273   -0.026619
    58   35    0.818757   -0.021899
    58   36    0.790033   -0.017791
    58   37    0.765699   -0.014740
    58   38    0.745592   -0.011438
    58   39    0.728418   -0.009241
    58   40    0.714170   -0.007234
    58   41    0.702192   -0.005244
    58   42    0.692452   -0.003712
    58   43    0.684755   -0.002262
    58   44    0.678755   -0.000951
    58   45    0.674262    0.000460
    58   46    0.671520    0.001440
    58   47    0.670109    0.002837
    58   48    0.670139    0.003892
    58   49    0.671708    0.004972
    58   50    0.674575    0.006134
    58   51    0.679061    0.007165
    58   52    0.684869    0.008411
    58   53    0.692120    0.009723
    58   54    0.701183    0.011013
    58   55    0.711862    0.012378
    58   56    0.724531    0.013924
    58   57    0.739139    0.015682
    58   58    0.755859    0.016917
    58   59    0.775471    0.019820
    58   60    0.798018    0.022656
    58   61    0.823862    0.025159
    58   62    0.852941    0.028839
    58   63    0.887508    0.032920
    58   64    0.927389    0.037584
    58   65    0.973070    0.043773
    58   66    1.027590    0.051779
    58   67    1.092344    0.062801
    58   68    1.172125    0.073899
    58   69    1.272500    0.089211
    58   70    1.401500    0.115063
    58   71    1.557375    0.155344
    58   72    1.791875    0.200922
    58   73    2.124633    0.339316
    58   74    2.636000    0.687500
    58   75    3.080500    1.403500
    58   76    3.453000    3.039750
    59    1   -0.001676    1.300746
    59    2   -0.249697    1.284992
    59    3   -0.496846    1.237823
    59    4   -0.739494    1.158883
    59    5   -0.975138    1.044977
    59    6   -1.201011    0.892586
    59    7   -1.409266    0.696098
    59    8   -1.589754    0.452938
    59    9   -1.720984    0.160813
    59   10   -1.763594   -0.156813
    59   11   -1.730008   -0.496875
    59   12   -1.619406   -0.787813
    59   13   -1.476043   -1.034938
    59   14   -1.296594   -1.247500
    59   15   -1.103141   -1.425781
    59   16   -0.884219   -1.581844
    59   17   -0.655695   -1.708750
    59   18   -0.412063   -1.811063
    59   19   -0.140377   -1.878641
    59   20    0.159594   -1.929063
    59   21    0.472607   -1.911094
    59   22    0.812422   -1.840172
    59   23    1.153654   -1.659914
    59   24    1.435750   -1.355750
    59   25    1.574469   -0.981625
    59   26    1.499469   -0.606875
    59   27    1.361844   -0.383563
    59   28    1.231152   -0.268922
    59   29    1.124469   -0.197773
    59   30    1.036628   -0.150380
    59   31    0.970084   -0.117564
    59   32    0.913457   -0.093949
    59   33    0.868026   -0.076592
    59   34    0.829046   -0.062352
    59   35    0.797363   -0.051858
    59   36    0.770437   -0.042891
    59   37    0.747688   -0.035749
    59   38    0.728426   -0.029558
    59   39    0.712364   -0.024406
    59   40    0.698655   -0.019774
    59   41    0.687318   -0.015693
    59   42    0.677958   -0.012118
    59   43    0.670653   -0.008967
    59   44    0.664861   -0.005841
    59   45    0.660690   -0.003029
    59   46    0.657943   -0.000263
    59   47    0.656742    0.002194
    59   48    0.656817    0.004701
    59   49    0.658336    0.007124
    59   50    0.661261    0.009649
    59   51    0.665432    0.012195
    59   52    0.671147    0.014811
    59   53    0.678197    0.017583
    59   54    0.686863    0.020551
    59   55    0.697213    0.023769
    59   56    0.709371    0.027199
    59   57    0.723466    0.031026
    59   58    0.739684    0.035159
    59   59    0.758339    0.040031
    59   60    0.779929    0.045256
    59   61    0.804734    0.051902
    59   62    0.832637    0.059124
    59   63    0.864789    0.068082
    59   64    0.902008    0.078770
    59   65    0.945914    0.091990
    59   66    0.997063    0.108434
    59   67    1.058711    0.129084
    59   68    1.128281    0.154891
    59   69    1.218344    0.192450
    59   70    1.321875    0.242906
    59   71    1.453906    0.323281
    59   72    1.613984    0.436078
    59   73    1.816625    0.637258
    59   74    2.008000    0.982125
    59   75    2.206500    1.623750
    59   76    2.099000    2.310500
    60    1   -0.001094    1.069199
    60    2   -0.216338    1.054961
    60    3   -0.428265    1.011107
    60    4   -0.634926    0.938119
    60    5   -0.832996    0.833551
    60    6   -1.017922    0.696320
    60    7   -1.183121    0.523719
    60    8   -1.317406    0.317578
    60    9   -1.413320    0.079563
    60   10   -1.448875   -0.178719
    60   11   -1.430750   -0.435969
    60   12   -1.351883   -0.677813
    60   13   -1.239227   -0.890266
    60   14   -1.094207   -1.078703
    60   15   -0.927570   -1.238969
    60   16   -0.741883   -1.374313
    60   17   -0.540355   -1.482500
    60   18   -0.323251   -1.566031
    60   19   -0.088739   -1.619031
    60   20    0.158623   -1.639391
    60   21    0.418825   -1.616281
    60   22    0.683189   -1.539172
    60   23    0.927305   -1.392859
    60   24    1.124977   -1.179938
    60   25    1.222250   -0.923750
    60   26    1.227500   -0.679438
    60   27    1.180898   -0.498563
    60   28    1.108539   -0.367375
    60   29    1.039578   -0.279250
    60   30    0.974184   -0.218453
    60   31    0.919709   -0.173684
    60   32    0.872998   -0.140855
    60   33    0.834212   -0.115645
    60   34    0.800139   -0.095487
    60   35    0.771652   -0.079549
    60   36    0.747434   -0.066681
    60   37    0.726711   -0.055838
    60   38    0.709077   -0.046629
    60   39    0.694317   -0.038866
    60   40    0.681495   -0.031832
    60   41    0.670964   -0.025818
    60   42    0.662269   -0.020258
    60   43    0.655309   -0.015265
    60   44    0.649958   -0.010691
    60   45    0.646091   -0.006350
    60   46    0.643612   -0.002313
    60   47    0.642479    0.001682
    60   48    0.642587    0.005443
    60   49    0.643927    0.009282
    60   50    0.646854    0.013122
    60   51    0.650880    0.017105
    60   52    0.656276    0.021128
    60   53    0.663115    0.025358
    60   54    0.671412    0.029858
    60   55    0.681264    0.034698
    60   56    0.692807    0.039934
    60   57    0.706227    0.045779
    60   58    0.721534    0.052148
    60   59    0.739267    0.059466
    60   60    0.759289    0.067577
    60   61    0.782271    0.077203
    60   62    0.808373    0.088166
    60   63    0.838842    0.101500
    60   64    0.872676    0.117187
    60   65    0.911844    0.136176
    60   66    0.958324    0.159255
    60   67    1.011277    0.190286
    60   68    1.071453    0.228359
    60   69    1.144633    0.278191
    60   70    1.229953    0.346516
    60   71    1.324984    0.445168
    60   72    1.427688    0.581344
    60   73    1.531000    0.785328
    60   74    1.581000    1.052188
    60   75    1.578875    1.445516
    60   76    1.382000    1.886125
    61    1   -0.000824    0.869691
    61    2   -0.185256    0.857133
    61    3   -0.365344    0.817605
    61    4   -0.540789    0.751723
    61    5   -0.706661    0.658299
    61    6   -0.857656    0.537803
    61    7   -0.990653    0.389967
    61    8   -1.093398    0.216656
    61    9   -1.165180    0.021250
    61   10   -1.192352   -0.186156
    61   11   -1.178422   -0.393875
    61   12   -1.122250   -0.593219
    61   13   -1.031527   -0.775781
    61   14   -0.914262   -0.936906
    61   15   -0.776891   -1.076063
    61   16   -0.618082   -1.191938
    61   17   -0.443162   -1.287250
    61   18   -0.255422   -1.356109
    61   19   -0.058659   -1.396125
    61   20    0.150439   -1.406453
    61   21    0.361876   -1.379875
    61   22    0.570257   -1.310090
    61   23    0.759277   -1.194078
    61   24    0.904863   -1.040781
    61   25    1.001594   -0.863188
    61   26    1.030422   -0.689313
    61   27    1.017148   -0.540313
    61   28    0.987406   -0.424250
    61   29    0.947148   -0.335500
    61   30    0.904357   -0.268984
    61   31    0.864256   -0.217938
    61   32    0.826303   -0.179430
    61   33    0.795434   -0.149547
    61   34    0.767132   -0.124320
    61   35    0.743088   -0.104355
    61   36    0.721645   -0.087738
    61   37    0.703540   -0.073908
    61   38    0.687368   -0.062109
    61   39    0.674032   -0.051883
    61   40    0.662582   -0.042887
    61   41    0.653057   -0.034843
    61   42    0.645180   -0.027689
    61   43    0.638873   -0.021175
    61   44    0.634016   -0.015092
    61   45    0.630293   -0.009469
    61   46    0.628203   -0.004155
    61   47    0.627302    0.001123
    61   48    0.627470    0.006213
    61   49    0.628798    0.011326
    61   50    0.631530    0.016499
    61   51    0.635489    0.021755
    61   52    0.640507    0.027094
    61   53    0.647021    0.032716
    61   54    0.654851    0.038662
    61   55    0.664064    0.045047
    61   56    0.674907    0.051997
    61   57    0.687397    0.059625
    61   58    0.701723    0.068075
    61   59    0.718083    0.077580
    61   60    0.736586    0.088303
    61   61    0.757511    0.100515
    61   62    0.781368    0.114866
    61   63    0.808582    0.131304
    61   64    0.838928    0.151525
    61   65    0.872629    0.175678
    61   66    0.912691    0.204740
    61   67    0.956602    0.241063
    61   68    1.005531    0.287521
    61   69    1.061344    0.346438
    61   70    1.122266    0.422953
    61   71    1.184500    0.525195
    61   72    1.241125    0.656828
    61   73    1.285250    0.837875
    61   74    1.271625    1.054375
    61   75    1.216375    1.324063
    61   76    1.080375    1.595188
    62    1   -0.000699    0.700172
    62    2   -0.157621    0.688676
    62    3   -0.310789    0.653219
    62    4   -0.457561    0.594742
    62    5   -0.595596    0.513197
    62    6   -0.719514    0.409012
    62    7   -0.826082    0.283070
    62    8   -0.907992    0.138156
    62    9   -0.963594   -0.021781
    62   10   -0.984813   -0.191891
    62   11   -0.973617   -0.362750
    62   12   -0.930039   -0.527859
    62   13   -0.857492   -0.680188
    62   14   -0.759770   -0.820469
    62   15   -0.644965   -0.940984
    62   16   -0.511012   -1.040703
    62   17   -0.363369   -1.119219
    62   18   -0.202184   -1.177188
    62   19   -0.033815   -1.209922
    62   20    0.138148   -1.214305
    62   21    0.311476   -1.189531
    62   22    0.477596   -1.131535
    62   23    0.626631   -1.043656
    62   24    0.744255   -0.927969
    62   25    0.827969   -0.801094
    62   26    0.867855   -0.669375
    62   27    0.883152   -0.549813
    62   28    0.876375   -0.449625
    62   29    0.857859   -0.369344
    62   30    0.831939   -0.303492
    62   31    0.804293   -0.251164
    62   32    0.778402   -0.209609
    62   33    0.753098   -0.175773
    62   34    0.731122   -0.148098
    62   35    0.711302   -0.125053
    62   36    0.693308   -0.105834
    62   37    0.677945   -0.089524
    62   38    0.664227   -0.075730
    62   39    0.652536   -0.063290
    62   40    0.642716   -0.052705
    62   41    0.633966   -0.043044
    62   42    0.627054   -0.034471
    62   43    0.621453   -0.026520
    62   44    0.617135   -0.019152
    62   45    0.613873   -0.012193
    62   46    0.612092   -0.005583
    62   47    0.611327    0.000859
    62   48    0.611600    0.007130
    62   49    0.612862    0.013357
    62   50    0.615443    0.019625
    62   51    0.619149    0.026050
    62   52    0.624010    0.032660
    62   53    0.629967    0.039560
    62   54    0.637289    0.046887
    62   55    0.645808    0.054714
    62   56    0.655883    0.063144
    62   57    0.667316    0.072430
    62   58    0.680420    0.082661
    62   59    0.695183    0.094051
    62   60    0.711908    0.107060
    62   61    0.730555    0.121709
    62   62    0.751771    0.138772
    62   63    0.775105    0.158560
    62   64    0.801732    0.181760
    62   65    0.830376    0.209406
    62   66    0.862603    0.242638
    62   67    0.897610    0.282616
    62   68    0.936117    0.333102
    62   69    0.976633    0.395150
    62   70    1.016281    0.471867
    62   71    1.051797    0.569492
    62   72    1.077125    0.690203
    62   73    1.088063    0.843344
    62   74    1.056125    1.019063
    62   75    0.966688    1.216367
    62   76    0.847537    1.400854
    63    1   -0.000266    0.556232
    63    2   -0.132760    0.545910
    63    3   -0.262047    0.515016
    63    4   -0.385607    0.464534
    63    5   -0.499020    0.393697
    63    6   -0.602053    0.304457
    63    7   -0.688717    0.197578
    63    8   -0.754141    0.076078
    63    9   -0.797297   -0.056992
    63   10   -0.814195   -0.197141
    63   11   -0.805594   -0.338109
    63   12   -0.769531   -0.476047
    63   13   -0.710176   -0.604609
    63   14   -0.628859   -0.722453
    63   15   -0.533152   -0.823969
    63   16   -0.419584   -0.909656
    63   17   -0.294719   -0.977406
    63   18   -0.157986   -1.025789
    63   19   -0.017318   -1.051625
    63   20    0.127959   -1.055586
    63   21    0.270782   -1.034928
    63   22    0.404853   -0.989563
    63   23    0.526274   -0.921547
    63   24    0.625312   -0.834594
    63   25    0.698902   -0.738688
    63   26    0.746176   -0.638016
    63   27    0.770590   -0.540750
    63   28    0.778563   -0.458328
    63   29    0.773307   -0.385516
    63   30    0.760853   -0.322383
    63   31    0.745050   -0.271719
    63   32    0.728248   -0.230484
    63   33    0.709839   -0.195709
    63   34    0.693953   -0.166555
    63   35    0.678095   -0.141785
    63   36    0.664172   -0.121086
    63   37    0.651042   -0.102791
    63   38    0.639758   -0.087045
    63   39    0.629912   -0.073436
    63   40    0.621342   -0.061204
    63   41    0.614145   -0.050202
    63   42    0.608134   -0.040295
    63   43    0.603188   -0.031188
    63   44    0.599503   -0.022729
    63   45    0.596736   -0.014468
    63   46    0.595171   -0.006786
    63   47    0.594619    0.000664
    63   48    0.595061    0.008155
    63   49    0.596354    0.015354
    63   50    0.598841    0.022657
    63   51    0.602227    0.030137
    63   52    0.606766    0.037828
    63   53    0.612228    0.045959
    63   54    0.618865    0.054464
    63   55    0.626743    0.063573
    63   56    0.635825    0.073366
    63   57    0.646197    0.084091
    63   58    0.657908    0.095865
    63   59    0.671104    0.108956
    63   60    0.685889    0.123658
    63   61    0.702139    0.140335
    63   62    0.720318    0.159383
    63   63    0.740418    0.181256
    63   64    0.762358    0.206800
    63   65    0.786114    0.236917
    63   66    0.811326    0.272469
    63   67    0.838117    0.314926
    63   68    0.865477    0.365672
    63   69    0.891695    0.427219
    63   70    0.915016    0.502234
    63   71    0.931672    0.592602
    63   72    0.934594    0.696898
    63   73    0.919000    0.826406
    63   74    0.875125    0.959063
    63   75    0.789188    1.103129
    63   76    0.675129    1.241273
    64    1    0.000045    0.434436
    64    2   -0.111891    0.425119
    64    3   -0.220409    0.398861
    64    4   -0.323415    0.355207
    64    5   -0.419199    0.293883
    64    6   -0.502289    0.218652
    64    7   -0.572713    0.128348
    64    8   -0.626137    0.026164
    64    9   -0.660918   -0.083742
    64   10   -0.672262   -0.200789
    64   11   -0.666414   -0.318219
    64   12   -0.635523   -0.433406
    64   13   -0.586598   -0.541219
    64   14   -0.519000   -0.639703
    64   15   -0.438652   -0.726328
    64   16   -0.341715   -0.799336
    64   17   -0.236846   -0.856578
    64   18   -0.122152   -0.896930
    64   19   -0.002756   -0.919063
    64   20    0.118261   -0.923648
    64   21    0.237431   -0.907777
    64   22    0.348467   -0.872230
    64   23    0.449048   -0.819313
    64   24    0.533250   -0.752906
    64   25    0.601002   -0.678109
    64   26    0.646458   -0.600078
    64   27    0.676479   -0.522859
    64   28    0.694136   -0.451563
    64   29    0.698264   -0.388781
    64   30    0.694874   -0.332648
    64   31    0.688412   -0.284367
    64   32    0.678335   -0.244301
    64   33    0.667893   -0.209883
    64   34    0.655499   -0.180227
    64   35    0.644177   -0.154703
    64   36    0.633512   -0.132789
    64   37    0.623575   -0.113438
    64   38    0.614782   -0.096838
    64   39    0.606413   -0.081801
    64   40    0.599387   -0.068592
    64   41    0.593230   -0.056199
    64   42    0.588448   -0.045190
    64   43    0.584446   -0.035054
    64   44    0.581347   -0.025564
    64   45    0.578996   -0.016506
    64   46    0.577617   -0.007772
    64   47    0.577435    0.000759
    64   48    0.577849    0.009036
    64   49    0.579168    0.017246
    64   50    0.581511    0.025504
    64   51    0.584685    0.033994
    64   52    0.588684    0.042741
    64   53    0.593759    0.051763
    64   54    0.599836    0.061303
    64   55    0.606854    0.071562
    64   56    0.614999    0.082531
    64   57    0.624124    0.094470
    64   58    0.634475    0.107540
    64   59    0.645955    0.122002
    64   60    0.658693    0.138114
    64   61    0.672703    0.156268
    64   62    0.687929    0.176807
    64   63    0.704404    0.200270
    64   64    0.722029    0.227275
    64   65    0.740441    0.258478
    64   66    0.759449    0.294957
    64   67    0.778957    0.337855
    64   68    0.797531    0.387863
    64   69    0.812250    0.446578
    64   70    0.822031    0.516133
    64   71    0.824766    0.596641
    64   72    0.813531    0.687594
    64   73    0.788688    0.785344
    64   74    0.736406    0.892734
    64   75    0.661730    1.001211
    64   76    0.559719    1.101641
    65    1   -0.000422    0.332510
    65    2   -0.093686    0.324396
    65    3   -0.184440    0.301564
    65    4   -0.270254    0.264296
    65    5   -0.349199    0.212655
    65    6   -0.417879    0.148258
    65    7   -0.475936    0.072031
    65    8   -0.518182   -0.013510
    65    9   -0.546047   -0.106039
    65   10   -0.555668   -0.203563
    65   11   -0.549402   -0.301617
    65   12   -0.523742   -0.397500
    65   13   -0.483602   -0.487734
    65   14   -0.426734   -0.570453
    65   15   -0.357891   -0.643438
    65   16   -0.276500   -0.706219
    65   17   -0.187930   -0.755203
    65   18   -0.091135   -0.790617
    65   19    0.010232   -0.809844
    65   20    0.111300   -0.813586
    65   21    0.211002   -0.801334
    65   22    0.303882   -0.774543
    65   23    0.389256   -0.733664
    65   24    0.462512   -0.682883
    65   25    0.523208   -0.623453
    65   26    0.567789   -0.560516
    65   27    0.598975   -0.498047
    65   28    0.620627   -0.438961
    65   29    0.632427   -0.384125
    65   30    0.635026   -0.334477
    65   31    0.635203   -0.290570
    65   32    0.631981   -0.252281
    65   33    0.625394   -0.218898
    65   34    0.617961   -0.190023
    65   35    0.610605   -0.164324
    65   36    0.602818   -0.141594
    65   37    0.595509   -0.121766
    65   38    0.588811   -0.104318
    65   39    0.582992   -0.088479
    65   40    0.577035   -0.074529
    65   41    0.572266   -0.061357
    65   42    0.568316   -0.049557
    65   43    0.565043   -0.038453
    65   44    0.562699   -0.027996
    65   45    0.560650   -0.018060
    65   46    0.559986   -0.008612
    65   47    0.559627    0.000806
    65   48    0.560260    0.009923
    65   49    0.561523    0.018927
    65   50    0.563587    0.028213
    65   51    0.566533    0.037559
    65   52    0.570272    0.047140
    65   53    0.574735    0.057124
    65   54    0.580154    0.067427
    65   55    0.586367    0.078647
    65   56    0.593512    0.090667
    65   57    0.601460    0.103576
    65   58    0.610425    0.117668
    65   59    0.620173    0.133156
    65   60    0.630970    0.150261
    65   61    0.642566    0.169521
    65   62    0.655012    0.191037
    65   63    0.667914    0.215513
    65   64    0.681711    0.243348
    65   65    0.695273    0.274832
    65   66    0.708680    0.310680
    65   67    0.721336    0.352875
    65   68    0.732336    0.400477
    65   69    0.739102    0.455531
    65   70    0.739156    0.517094
    65   71    0.732578    0.587422
    65   72    0.716797    0.664000
    65   73    0.684719    0.747125
    65   74    0.630781    0.832297
    65   75    0.565922    0.909359
    65   76    0.476602    0.982508
    66    1   -0.000783    0.246555
    66    2   -0.078202    0.240169
    66    3   -0.153921    0.220847
    66    4   -0.225344    0.188977
    66    5   -0.290809    0.144806
    66    6   -0.347172    0.090787
    66    7   -0.394313    0.026723
    66    8   -0.428930   -0.045602
    66    9   -0.451262   -0.123234
    66   10   -0.458295   -0.203953
    66   11   -0.452566   -0.286023
    66   12   -0.430711   -0.365617
    66   13   -0.396316   -0.441914
    66   14   -0.348348   -0.512969
    66   15   -0.290883   -0.574730
    66   16   -0.221678   -0.627758
    66   17   -0.145633   -0.669656
    66   18   -0.064098   -0.699453
    66   19    0.020594   -0.716070
    66   20    0.105378   -0.720372
    66   21    0.190106   -0.711918
    66   22    0.269321   -0.691082
    66   23    0.342578   -0.659617
    66   24    0.406431   -0.619590
    66   25    0.460097   -0.572500
    66   26    0.502368   -0.522352
    66   27    0.534488   -0.471219
    66   28    0.558495   -0.421328
    66   29    0.574166   -0.374523
    66   30    0.581842   -0.330129
    66   31    0.586781   -0.290219
    66   32    0.587388   -0.255141
    66   33    0.585736   -0.223203
    66   34    0.582316   -0.195117
    66   35    0.577088   -0.170195
    66   36    0.572695   -0.147977
    66   37    0.567767   -0.128012
    66   38    0.563033   -0.109900
    66   39    0.558782   -0.093887
    66   40    0.554470   -0.078881
    66   41    0.550888   -0.065396
    66   42    0.547785   -0.052646
    66   43    0.545340   -0.040863
    66   44    0.543452   -0.029785
    66   45    0.542084   -0.019223
    66   46    0.541391   -0.008917
    66   47    0.541408    0.001061
    66   48    0.542232    0.010908
    66   49    0.543589    0.020632
    66   50    0.545391    0.030594
    66   51    0.548125    0.040631
    66   52    0.551537    0.050896
    66   53    0.555414    0.061676
    66   54    0.560167    0.072896
    66   55    0.565409    0.084958
    66   56    0.571625    0.097576
    66   57    0.578464    0.111286
    66   58    0.585918    0.126189
    66   59    0.594099    0.142567
    66   60    0.602882    0.160522
    66   61    0.612126    0.180278
    66   62    0.621943    0.202436
    66   63    0.631697    0.227299
    66   64    0.641723    0.255074
    66   65    0.651625    0.286375
    66   66    0.660258    0.321258
    66   67    0.666590    0.361219
    66   68    0.670680    0.405945
    66   69    0.673094    0.456363
    66   70    0.668266    0.512164
    66   71    0.655234    0.573578
    66   72    0.631965    0.640180
    66   73    0.598672    0.706906
    66   74    0.551641    0.773781
    66   75    0.491555    0.836357
    66   76    0.420117    0.892879
    67    1   -0.000328    0.175269
    67    2   -0.065001    0.169793
    67    3   -0.127903    0.153347
    67    4   -0.186975    0.126264
    67    5   -0.241171    0.089293
    67    6   -0.287700    0.043357
    67    7   -0.326182   -0.010803
    67    8   -0.354471   -0.070969
    67    9   -0.372051   -0.136000
    67   10   -0.376709   -0.203932
    67   11   -0.371768   -0.272305
    67   12   -0.352645   -0.339742
    67   13   -0.322734   -0.404156
    67   14   -0.282527   -0.463344
    67   15   -0.233215   -0.516176
    67   16   -0.175311   -0.561043
    67   17   -0.110701   -0.596715
    67   18   -0.041205   -0.622689
    67   19    0.030319   -0.637600
    67   20    0.103085   -0.642059
    67   21    0.174387   -0.635811
    67   22    0.242089   -0.620424
    67   23    0.305229   -0.595678
    67   24    0.361025   -0.563855
    67   25    0.409711   -0.526551
    67   26    0.448930   -0.486094
    67   27    0.480879   -0.443820
    67   28    0.505134   -0.401969
    67   29    0.522804   -0.360977
    67   30    0.533919   -0.322453
    67   31    0.541736   -0.286680
    67   32    0.546125   -0.254242
    67   33    0.547997   -0.224332
    67   34    0.547466   -0.197172
    67   35    0.545795   -0.173199
    67   36    0.543375   -0.151457
    67   37    0.540232   -0.131623
    67   38    0.537409   -0.113676
    67   39    0.534820   -0.097309
    67   40    0.531893   -0.082314
    67   41    0.529215   -0.068244
    67   42    0.527083   -0.055090
    67   43    0.525516   -0.042652
    67   44    0.524264   -0.031017
    67   45    0.523304   -0.019774
    67   46    0.522939   -0.009107
    67   47    0.523093    0.001603
    67   48    0.523989    0.011832
    67   49    0.525235    0.022294
    67   50    0.526990    0.032775
    67   51    0.529355    0.043340
    67   52    0.532335    0.054350
    67   53    0.535851    0.065764
    67   54    0.539669    0.077654
    67   55    0.544421    0.090257
    67   56    0.549528    0.103515
    67   57    0.555327    0.117811
    67   58    0.561234    0.133314
    67   59    0.567795    0.150180
    67   60    0.574938    0.168496
    67   61    0.582236    0.188709
    67   62    0.589039    0.210885
    67   63    0.596156    0.235760
    67   64    0.602998    0.262908
    67   65    0.608941    0.293625
    67   66    0.613471    0.327439
    67   67    0.615898    0.365297
    67   68    0.615863    0.406914
    67   69    0.612266    0.452102
    67   70    0.602047    0.502797
    67   71    0.587359    0.554828
    67   72    0.564422    0.608984
    67   73    0.530219    0.665547
    67   74    0.484516    0.721297
    67   75    0.431761    0.772995
    67   76    0.374133    0.818256
    68    1   -0.000337    0.116001
    68    2   -0.053989    0.111535
    68    3   -0.106075    0.097493
    68    4   -0.154938    0.074542
    68    5   -0.199483    0.043301
    68    6   -0.237575    0.004525
    68    7   -0.269051   -0.040801
    68    8   -0.291832   -0.091621
    68    9   -0.305604   -0.146104
    68   10   -0.309223   -0.203211
    68   11   -0.303277   -0.260918
    68   12   -0.286967   -0.317934
    68   13   -0.261316   -0.371742
    68   14   -0.227109   -0.421500
    68   15   -0.184672   -0.466172
    68   16   -0.134973   -0.504461
    68   17   -0.080697   -0.535012
    68   18   -0.021935   -0.557049
    68   19    0.038753   -0.570262
    68   20    0.101350   -0.575047
    68   21    0.161935   -0.571082
    68   22    0.220840   -0.559317
    68   23    0.275394   -0.540006
    68   24    0.324387   -0.514676
    68   25    0.368103   -0.484664
    68   26    0.404638   -0.451445
    68   27    0.434977   -0.416426
    68   28    0.459342   -0.380809
    68   29    0.478259   -0.345586
    68   30    0.491360   -0.311867
    68   31    0.501291   -0.279959
    68   32    0.508079   -0.250086
    68   33    0.512363   -0.222480
    68   34    0.514319   -0.197295
    68   35    0.515424   -0.174059
    68   36    0.515079   -0.152859
    68   37    0.513732   -0.133846
    68   38    0.512692   -0.116084
    68   39    0.511013   -0.099523
    68   40    0.509375   -0.084043
    68   41    0.507942   -0.070105
    68   42    0.506659   -0.056603
    68   43    0.505385   -0.043986
    68   44    0.505054   -0.032083
    68   45    0.504357   -0.020291
    68   46    0.504131   -0.009018
    68   47    0.504712    0.001896
    68   48    0.505591    0.012760
    68   49    0.506816    0.023662
    68   50    0.508398    0.034751
    68   51    0.510485    0.045937
    68   52    0.512933    0.057389
    68   53    0.515898    0.069289
    68   54    0.519450    0.081602
    68   55    0.523360    0.094536
    68   56    0.527408    0.108422
    68   57    0.531925    0.123155
    68   58    0.536712    0.138965
    68   59    0.541684    0.156056
    68   60    0.547211    0.174566
    68   61    0.552336    0.194918
    68   62    0.557189    0.217186
    68   63    0.561824    0.241305
    68   64    0.566082    0.267621
    68   65    0.568949    0.296914
    68   66    0.569652    0.329340
    68   67    0.568941    0.364754
    68   68    0.564840    0.403070
    68   69    0.557313    0.445086
    68   70    0.544992    0.488859
    68   71    0.529141    0.534359
    68   72    0.503000    0.583453
    68   73    0.469656    0.627547
    68   74    0.428359    0.674766
    68   75    0.381296    0.719122
    68   76    0.331861    0.756010
    69    1   -0.000304    0.067061
    69    2   -0.044641    0.063314
    69    3   -0.087645    0.051344
    69    4   -0.127711    0.031972
    69    5   -0.164313    0.005488
    69    6   -0.195504   -0.027273
    69    7   -0.221027   -0.065453
    69    8   -0.238766   -0.108164
    69    9   -0.249837   -0.154051
    69   10   -0.252146   -0.202037
    69   11   -0.246184   -0.250426
    69   12   -0.231861   -0.298551
    69   13   -0.210098   -0.343730
    69   14   -0.180049   -0.385887
    69   15   -0.144230   -0.423863
    69   16   -0.101561   -0.455918
    69   17   -0.055250   -0.482074
    69   18   -0.005076   -0.501365
    69   19    0.047172   -0.513182
    69   20    0.100316   -0.517883
    69   21    0.153281   -0.515412
    69   22    0.203632   -0.506479
    69   23    0.251267   -0.491146
    69   24    0.294597   -0.470843
    69   25    0.333994   -0.446293
    69   26    0.367533   -0.418783
    69   27    0.396370   -0.389496
    69   28    0.419894   -0.359566
    69   29    0.439130   -0.329074
    69   30    0.453945   -0.299543
    69   31    0.465377   -0.270969
    69   32    0.473685   -0.243895
    69   33    0.479481   -0.218467
    69   34    0.483692   -0.195008
    69   35    0.486250   -0.173221
    69   36    0.487461   -0.153074
    69   37    0.488080   -0.134242
    69   38    0.488090   -0.116820
    69   39    0.487704   -0.100527
    69   40    0.487200   -0.085125
    69   41    0.486559   -0.070959
    69   42    0.486277   -0.057387
    69   43    0.485455   -0.044523
    69   44    0.485518   -0.032357
    69   45    0.485598   -0.020490
    69   46    0.485727   -0.008955
    69   47    0.486185    0.002439
    69   48    0.487045    0.013789
    69   49    0.488295    0.025093
    69   50    0.489719    0.036490
    69   51    0.491511    0.048092
    69   52    0.493650    0.059839
    69   53    0.496181    0.072086
    69   54    0.499018    0.084869
    69   55    0.502109    0.098182
    69   56    0.505451    0.112389
    69   57    0.508870    0.127242
    69   58    0.512332    0.143354
    69   59    0.516206    0.160477
    69   60    0.519920    0.178982
    69   61    0.523375    0.198959
    69   62    0.526354    0.220787
    69   63    0.528777    0.244617
    69   64    0.530516    0.270324
    69   65    0.530902    0.297988
    69   66    0.529504    0.328219
    69   67    0.525523    0.360961
    69   68    0.518188    0.396398
    69   69    0.508266    0.433938
    69   70    0.495203    0.472578
    69   71    0.476063    0.513504
    69   72    0.451094    0.554961
    69   73    0.421734    0.596016
    69   74    0.382859    0.633828
    69   75    0.341086    0.669143
    69   76    0.296966    0.701524
    70    1   -0.000398    0.025998
    70    2   -0.036732    0.022723
    70    3   -0.072439    0.012800
    70    4   -0.105012   -0.003146
    70    5   -0.135040   -0.025615
    70    6   -0.160244   -0.053234
    70    7   -0.180797   -0.085434
    70    8   -0.195176   -0.121193
    70    9   -0.203590   -0.159955
    70   10   -0.204260   -0.200127
    70   11   -0.199057   -0.240758
    70   12   -0.185943   -0.280430
    70   13   -0.166992   -0.318754
    70   14   -0.140996   -0.354738
    70   15   -0.109744   -0.386826
    70   16   -0.073316   -0.414107
    70   17   -0.033068   -0.435780
    70   18    0.009740   -0.451758
    70   19    0.054609   -0.463298
    70   20    0.101033   -0.467496
    70   21    0.146090   -0.466223
    70   22    0.189281   -0.459469
    70   23    0.231728   -0.447420
    70   24    0.269857   -0.431275
    70   25    0.305289   -0.411316
    70   26    0.336149   -0.388270
    70   27    0.363344   -0.363371
    70   28    0.385966   -0.337723
    70   29    0.404680   -0.311266
    70   30    0.420236   -0.285523
    70   31    0.432288   -0.260449
    70   32    0.442042   -0.236285
    70   33    0.449461   -0.213195
    70   34    0.455081   -0.191326
    70   35    0.459046   -0.170670
    70   36    0.461703   -0.151361
    70   37    0.463330   -0.133174
    70   38    0.464613   -0.116262
    70   39    0.465198   -0.100254
    70   40    0.465519   -0.085420
    70   41    0.465862   -0.071143
    70   42    0.465876   -0.057520
    70   43    0.466081   -0.044607
    70   44    0.466600   -0.032303
    70   45    0.466710   -0.020129
    70   46    0.467205   -0.008226
    70   47    0.467825    0.003269
    70   48    0.468633    0.014906
    70   49    0.469749    0.026486
    70   50    0.471122    0.038143
    70   51    0.472833    0.049933
    70   52    0.474510    0.061997
    70   53    0.476532    0.074519
    70   54    0.478897    0.087563
    70   55    0.481207    0.101137
    70   56    0.483378    0.115447
    70   57    0.486009    0.130448
    70   58    0.488420    0.146355
    70   59    0.490996    0.163533
    70   60    0.493356    0.181672
    70   61    0.495320    0.201533
    70   62    0.496404    0.222695
    70   63    0.497168    0.245660
    70   64    0.496922    0.269973
    70   65    0.495008    0.296352
    70   66    0.491441    0.324625
    70   67    0.485008    0.355098
    70   68    0.477039    0.386703
    70   69    0.466102    0.420125
    70   70    0.451156    0.454313
    70   71    0.432250    0.491410
    70   72    0.407031    0.528125
    70   73    0.377492    0.563188
    70   74    0.343609    0.596305
    70   75    0.305186    0.626101
    70   76    0.265368    0.653944
    71    1   -0.000410   -0.009361
    71    2   -0.030230   -0.011199
    71    3   -0.058782   -0.019634
    71    4   -0.085854   -0.033869
    71    5   -0.110104   -0.052294
    71    6   -0.130945   -0.075707
    71    7   -0.147357   -0.101892
    71    8   -0.158346   -0.131949
    71    9   -0.164309   -0.163791
    71   10   -0.164177   -0.197235
    71   11   -0.159185   -0.231157
    71   12   -0.147113   -0.264445
    71   13   -0.130435   -0.296670
    71   14   -0.108004   -0.326061
    71   15   -0.080770   -0.353922
    71   16   -0.050239   -0.376096
    71   17   -0.015299   -0.394439
    71   18    0.021605   -0.408164
    71   19    0.061392   -0.418643
    71   20    0.101633   -0.422875
    71   21    0.140035   -0.421891
    71   22    0.178758   -0.416617
    71   23    0.216104   -0.407441
    71   24    0.249869   -0.393455
    71   25    0.281660   -0.378148
    71   26    0.309320   -0.358539
    71   27    0.334403   -0.337570
    71   28    0.356445   -0.315375
    71   29    0.374914   -0.293590
    71   30    0.390178   -0.270412
    71   31    0.403438   -0.248629
    71   32    0.413169   -0.226387
    71   33    0.421543   -0.205773
    71   34    0.428081   -0.185539
    71   35    0.433260   -0.166496
    71   36    0.436816   -0.147984
    71   37    0.439973   -0.131029
    71   38    0.441891   -0.114656
    71   39    0.443441   -0.099256
    71   40    0.444545   -0.084477
    71   41    0.445444   -0.070529
    71   42    0.446170   -0.056980
    71   43    0.446957   -0.044305
    71   44    0.447511   -0.031744
    71   45    0.448276   -0.019447
    71   46    0.448777   -0.007539
    71   47    0.449655    0.004258
    71   48    0.450418    0.016063
    71   49    0.451337    0.027762
    71   50    0.452604    0.039539
    71   51    0.453930    0.051605
    71   52    0.455504    0.063922
    71   53    0.457038    0.076455
    71   54    0.458762    0.089590
    71   55    0.460355    0.103313
    71   56    0.462068    0.117553
    71   57    0.463886    0.132666
    71   58    0.465210    0.148529
    71   59    0.466663    0.165410
    71   60    0.467945    0.183363
    71   61    0.468365    0.202496
    71   62    0.467914    0.222879
    71   63    0.467270    0.244590
    71   64    0.465348    0.267734
    71   65    0.462207    0.292551
    71   66    0.456434    0.319137
    71   67    0.449160    0.346813
    71   68    0.440016    0.374734
    71   69    0.427047    0.405961
    71   70    0.411578    0.436070
    71   71    0.392586    0.468359
    71   72    0.367250    0.499453
    71   73    0.340563    0.531063
    71   74    0.309984    0.557813
    71   75    0.275118    0.586109
    71   76    0.237992    0.610063
    72    1   -0.000416   -0.058031
    72    2   -0.020098   -0.059000
    72    3   -0.039529   -0.065588
    72    4   -0.057223   -0.074514
    72    5   -0.072113   -0.088004
    72    6   -0.085525   -0.104123
    72    7   -0.095793   -0.123541
    72    8   -0.102542   -0.144511
    72    9   -0.104941   -0.167446
    72   10   -0.104129   -0.191272
    72   11   -0.098404   -0.215107
    72   12   -0.088869   -0.239371
    72   13   -0.075027   -0.262191
    72   14   -0.059250   -0.283773
    72   15   -0.036314   -0.302150
    72   16   -0.013363   -0.319721
    72   17    0.013031   -0.333125
    72   18    0.041773   -0.343898
    72   19    0.070891   -0.351391
    72   20    0.100258   -0.355648
    72   21    0.131059   -0.354695
    72   22    0.161154   -0.351688
    72   23    0.190436   -0.344278
    72   24    0.217567   -0.335674
    72   25    0.244832   -0.323328
    72   26    0.267279   -0.310008
    72   27    0.288525   -0.294766
    72   28    0.308534   -0.278617
    72   29    0.325459   -0.261020
    72   30    0.339895   -0.243430
    72   31    0.352792   -0.225594
    72   32    0.363596   -0.207734
    72   33    0.372634   -0.190246
    72   34    0.380732   -0.173117
    72   35    0.386555   -0.156453
    72   36    0.391807   -0.140246
    72   37    0.396062   -0.124774
    72   38    0.399616   -0.109719
    72   39    0.402336   -0.095379
    72   40    0.404636   -0.081389
    72   41    0.406438   -0.068063
    72   42    0.408230   -0.054972
    72   43    0.409641   -0.042324
    72   44    0.410840   -0.029928
    72   45    0.411849   -0.017912
    72   46    0.412771   -0.005922
    72   47    0.413708    0.005961
    72   48    0.414796    0.017723
    72   49    0.415629    0.029621
    72   50    0.416458    0.041573
    72   51    0.417374    0.053655
    72   52    0.418251    0.065971
    72   53    0.419020    0.078790
    72   54    0.419646    0.091715
    72   55    0.420162    0.105393
    72   56    0.420541    0.119438
    72   57    0.420812    0.134240
    72   58    0.420890    0.149484
    72   59    0.420198    0.165783
    72   60    0.419153    0.182689
    72   61    0.417691    0.200670
    72   62    0.415545    0.219410
    72   63    0.412314    0.239320
    72   64    0.407672    0.259828
    72   65    0.402045    0.281922
    72   66    0.394816    0.304664
    72   67    0.385730    0.327852
    72   68    0.374770    0.352680
    72   69    0.361188    0.376945
    72   70    0.344941    0.402711
    72   71    0.326680    0.427000
    72   72    0.304773    0.452133
    72   73    0.279086    0.475773
    72   74    0.254930    0.498563
    72   75    0.226840    0.519919
    72   76    0.197414    0.538984
    73    1   -0.000233   -0.088219
    73    2   -0.012813   -0.089389
    73    3   -0.024808   -0.093791
    73    4   -0.035794   -0.100641
    73    5   -0.045296   -0.109954
    73    6   -0.053358   -0.121936
    73    7   -0.059051   -0.135333
    73    8   -0.062225   -0.150690
    73    9   -0.062490   -0.167020
    73   10   -0.060426   -0.184215
    73   11   -0.055039   -0.201759
    73   12   -0.047027   -0.218859
    73   13   -0.035299   -0.235132
    73   14   -0.021787   -0.250669
    73   15   -0.004973   -0.264594
    73   16    0.013156   -0.276698
    73   17    0.034345   -0.286804
    73   18    0.055730   -0.294584
    73   19    0.078145   -0.299692
    73   20    0.102062   -0.302463
    73   21    0.125602   -0.302813
    73   22    0.149115   -0.300321
    73   23    0.172156   -0.295729
    73   24    0.194568   -0.288965
    73   25    0.215088   -0.280375
    73   26    0.235466   -0.270003
    73   27    0.253789   -0.258672
    73   28    0.270502   -0.245519
    73   29    0.285660   -0.232170
    73   30    0.299487   -0.217863
    73   31    0.310996   -0.203332
    73   32    0.321847   -0.188328
    73   33    0.330844   -0.173834
    73   34    0.338801   -0.158906
    73   35    0.345588   -0.144699
    73   36    0.351795   -0.130191
    73   37    0.356669   -0.116512
    73   38    0.360906   -0.102668
    73   39    0.364387   -0.089522
    73   40    0.367548   -0.076428
    73   41    0.370214   -0.063945
    73   42    0.372526   -0.051476
    73   43    0.374144   -0.039416
    73   44    0.375966   -0.027452
    73   45    0.377349   -0.015703
    73   46    0.378322   -0.003871
    73   47    0.379425    0.007633
    73   48    0.380236    0.019380
    73   49    0.381069    0.031022
    73   50    0.381493    0.042906
    73   51    0.382028    0.054752
    73   52    0.382371    0.066983
    73   53    0.382491    0.079393
    73   54    0.382225    0.092199
    73   55    0.381872    0.105303
    73   56    0.381439    0.118941
    73   57    0.380299    0.133027
    73   58    0.379080    0.147688
    73   59    0.377065    0.162736
    73   60    0.374564    0.178602
    73   61    0.371713    0.194777
    73   62    0.367813    0.212234
    73   63    0.363489    0.229949
    73   64    0.357520    0.248574
    73   65    0.349814    0.267918
    73   66    0.341666    0.287578
    73   67    0.331730    0.308313
    73   68    0.319857    0.328238
    73   69    0.305453    0.348867
    73   70    0.290510    0.369695
    73   71    0.273738    0.389953
    73   72    0.253332    0.410008
    73   73    0.231969    0.429344
    73   74    0.208117    0.447652
    73   75    0.182414    0.464234
    73   76    0.157949    0.480549
    74    1   -0.000085   -0.108429
    74    2   -0.007687   -0.109174
    74    3   -0.014209   -0.112185
    74    4   -0.021272   -0.116951
    74    5   -0.026601   -0.123858
    74    6   -0.030754   -0.131919
    74    7   -0.033055   -0.141651
    74    8   -0.034063   -0.152410
    74    9   -0.032888   -0.164083
    74   10   -0.029954   -0.176133
    74   11   -0.024548   -0.188189
    74   12   -0.017203   -0.200551
    74   13   -0.007569   -0.211955
    74   14    0.003444   -0.223222
    74   15    0.016470   -0.232760
    74   16    0.031470   -0.241717
    74   17    0.047518   -0.248335
    74   18    0.064823   -0.254373
    74   19    0.082626   -0.257386
    74   20    0.101550   -0.260034
    74   21    0.120145   -0.259617
    74   22    0.139288   -0.258252
    74   23    0.157916   -0.254432
    74   24    0.176246   -0.249666
    74   25    0.193319   -0.242826
    74   26    0.210066   -0.235014
    74   27    0.225547   -0.225822
    74   28    0.240226   -0.215771
    74   29    0.253298   -0.204952
    74   30    0.265556   -0.193430
    74   31    0.276554   -0.181566
    74   32    0.286525   -0.169198
    74   33    0.295335   -0.156857
    74   34    0.303124   -0.144160
    74   35    0.309975   -0.131732
    74   36    0.316371   -0.119124
    74   37    0.321645   -0.106901
    74   38    0.326130   -0.094500
    74   39    0.330118   -0.082452
    74   40    0.333556   -0.070470
    74   41    0.336517   -0.058781
    74   42    0.339194   -0.047062
    74   43    0.341188   -0.035647
    74   44    0.343044   -0.024238
    74   45    0.344549   -0.013052
    74   46    0.345760   -0.001668
    74   47    0.346801    0.009555
    74   48    0.347570    0.020849
    74   49    0.348157    0.032104
    74   50    0.348539    0.043595
    74   51    0.348557    0.055151
    74   52    0.348524    0.066936
    74   53    0.347901    0.078799
    74   54    0.347148    0.091115
    74   55    0.346162    0.103590
    74   56    0.344829    0.116453
    74   57    0.342801    0.129781
    74   58    0.340520    0.143525
    74   59    0.337693    0.157658
    74   60    0.334727    0.172039
    74   61    0.330509    0.186953
    74   62    0.325230    0.202563
    74   63    0.319283    0.218520
    74   64    0.312707    0.234730
    74   65    0.304485    0.251762
    74   66    0.295691    0.268633
    74   67    0.284867    0.285711
    74   68    0.273943    0.302910
    74   69    0.260361    0.320180
    74   70    0.245363    0.337500
    74   71    0.230084    0.354633
    74   72    0.211883    0.371055
    74   73    0.192422    0.386445
    74   74    0.170285    0.401875
    74   75    0.149164    0.414834
    74   76    0.126641    0.428469
    75    1   -0.000039   -0.119729
    75    2   -0.004135   -0.120130
    75    3   -0.008059   -0.122442
    75    4   -0.011180   -0.125819
    75    5   -0.013402   -0.130543
    75    6   -0.014948   -0.136336
    75    7   -0.015312   -0.143134
    75    8   -0.014612   -0.150763
    75    9   -0.012241   -0.158901
    75   10   -0.008664   -0.167461
    75   11   -0.003449   -0.176002
    75   12    0.003067   -0.184761
    75   13    0.011465   -0.192791
    75   14    0.020888   -0.200706
    75   15    0.031730   -0.207457
    75   16    0.043688   -0.213601
    75   17    0.056945   -0.218364
    75   18    0.070836   -0.222332
    75   19    0.085485   -0.224633
    75   20    0.100260   -0.225987
    75   21    0.115751   -0.225533
    75   22    0.131280   -0.224229
    75   23    0.146166   -0.221087
    75   24    0.161364   -0.217215
    75   25    0.175540   -0.211712
    75   26    0.189525   -0.205475
    75   27    0.202656   -0.197962
    75   28    0.215242   -0.189866
    75   29    0.226792   -0.181026
    75   30    0.237669   -0.171494
    75   31    0.247486   -0.161616
    75   32    0.256773   -0.151240
    75   33    0.264909   -0.140632
    75   34    0.272321   -0.129789
    75   35    0.278981   -0.118953
    75   36    0.285037   -0.107855
    75   37    0.290349   -0.096952
    75   38    0.294964   -0.085790
    75   39    0.298969   -0.075008
    75   40    0.302600   -0.063980
    75   41    0.305748   -0.053161
    75   42    0.308491   -0.042319
    75   43    0.310714   -0.031711
    75   44    0.312530   -0.020909
    75   45    0.314083   -0.010316
    75   46    0.315390    0.000437
    75   47    0.316182    0.011056
    75   48    0.316959    0.021890
    75   49    0.317371    0.032643
    75   50    0.317274    0.043629
    75   51    0.317084    0.054661
    75   52    0.316624    0.065922
    75   53    0.315933    0.077240
    75   54    0.314568    0.088862
    75   55    0.313068    0.100639
    75   56    0.311071    0.112750
    75   57    0.308363    0.125074
    75   58    0.305377    0.137697
    75   59    0.302177    0.150590
    75   60    0.298165    0.163859
    75   61    0.293351    0.177387
    75   62    0.287768    0.191309
    75   63    0.281206    0.205545
    75   64    0.274283    0.219875
    75   65    0.265964    0.234168
    75   66    0.256879    0.248926
    75   67    0.246430    0.263789
    75   68    0.235286    0.278621
    75   69    0.222310    0.293387
    75   70    0.208316    0.307523
    75   71    0.193521    0.321602
    75   72    0.177221    0.335402
    75   73    0.159270    0.348176
    75   74    0.140762    0.360668
    75   75    0.121430    0.371588
    75   76    0.101531    0.382031
    76    1   -0.000208   -0.124956
    76    2   -0.001614   -0.125374
    76    3   -0.002875   -0.127013
    76    4   -0.003823   -0.129370
    76    5   -0.004327   -0.132785
    76    6   -0.004015   -0.136788
    76    7   -0.002929   -0.141601
    76    8   -0.001079   -0.146877
    76    9    0.001973   -0.152644
    76   10    0.005798   -0.158618
    76   11    0.010960   -0.164566
    76   12    0.017029   -0.170660
    76   13    0.024260   -0.176208
    76   14    0.032487   -0.181659
    76   15    0.041648   -0.186285
    76   16    0.051732   -0.190551
    76   17    0.062648   -0.193750
    76   18    0.074037   -0.196349
    76   19    0.085974   -0.197582
    76   20    0.098245   -0.198307
    76   21    0.110971   -0.197514
    76   22    0.123701   -0.196122
    76   23    0.136249   -0.193416
    76   24    0.148631   -0.190033
    76   25    0.160651   -0.185539
    76   26    0.172433   -0.180328
    76   27    0.183649   -0.174143
    76   28    0.194438   -0.167379
    76   29    0.204484   -0.159923
    76   30    0.214127   -0.151979
    76   31    0.222897   -0.143582
    76   32    0.231092   -0.134714
    76   33    0.238535   -0.125632
    76   34    0.245502   -0.116188
    76   35    0.251683   -0.106691
    76   36    0.257332   -0.096939
    76   37    0.262382   -0.087155
    76   38    0.266958   -0.077208
    76   39    0.271052   -0.067359
    76   40    0.274493   -0.057355
    76   41    0.277534   -0.047534
    76   42    0.280193   -0.037415
    76   43    0.282400   -0.027465
    76   44    0.284401   -0.017502
    76   45    0.285804   -0.007593
    76   46    0.286956    0.002564
    76   47    0.287765    0.012551
    76   48    0.288271    0.022779
    76   49    0.288239    0.032991
    76   50    0.288356    0.043258
    76   51    0.287855    0.053572
    76   52    0.286963    0.064158
    76   53    0.285752    0.074840
    76   54    0.284293    0.085699
    76   55    0.282385    0.096699
    76   56    0.280004    0.107928
    76   57    0.277094    0.119287
    76   58    0.273710    0.130885
    76   59    0.269865    0.142670
    76   60    0.265435    0.154656
    76   61    0.260356    0.166844
    76   62    0.254358    0.179236
    76   63    0.247952    0.191791
    76   64    0.240693    0.204336
    76   65    0.232164    0.217086
    76   66    0.223429    0.229824
    76   67    0.213464    0.242391
    76   68    0.202351    0.254930
    76   69    0.190004    0.267441
    76   70    0.177646    0.279762
    76   71    0.163702    0.291379
    76   72    0.148539    0.302789
    76   73    0.132838    0.313480
    76   74    0.115898    0.323938
    76   75    0.098439    0.333795
    76   76    0.080473    0.342812
    77    1   -0.000262   -0.126242
    77    2    0.000110   -0.126529
    77    3    0.000442   -0.127653
    77    4    0.001070   -0.129247
    77    5    0.002064   -0.131626
    77    6    0.003530   -0.134442
    77    7    0.005536   -0.137805
    77    8    0.008150   -0.141459
    77    9    0.011613   -0.145422
    77   10    0.015671   -0.149561
    77   11    0.020714   -0.153701
    77   12    0.026193   -0.157828
    77   13    0.032739   -0.161595
    77   14    0.040022   -0.165289
    77   15    0.047967   -0.168386
    77   16    0.056506   -0.171189
    77   17    0.065696   -0.173147
    77   18    0.075173   -0.174732
    77   19    0.085148   -0.175305
    77   20    0.095449   -0.175448
    77   21    0.106052   -0.174505
    77   22    0.116519   -0.172972
    77   23    0.127102   -0.170466
    77   24    0.137546   -0.167470
    77   25    0.147766   -0.163484
    77   26    0.157769   -0.158999
    77   27    0.167323   -0.153688
    77   28    0.176646   -0.147933
    77   29    0.185420   -0.141553
    77   30    0.193814   -0.134719
    77   31    0.201589   -0.127431
    77   32    0.208936   -0.119780
    77   33    0.215723   -0.111848
    77   34    0.221921   -0.103607
    77   35    0.227636   -0.095225
    77   36    0.232972   -0.086567
    77   37    0.237624   -0.077865
    77   38    0.241863   -0.068961
    77   39    0.245650   -0.060064
    77   40    0.249041   -0.050901
    77   41    0.251859   -0.041851
    77   42    0.254458   -0.032611
    77   43    0.256594   -0.023501
    77   44    0.258425   -0.014171
    77   45    0.259746   -0.004965
    77   46    0.260835    0.004447
    77   47    0.261480    0.013769
    77   48    0.261817    0.023290
    77   49    0.261709    0.032830
    77   50    0.261546    0.042437
    77   51    0.260955    0.052096
    77   52    0.259857    0.061991
    77   53    0.258341    0.071859
    77   54    0.256485    0.081949
    77   55    0.254319    0.092115
    77   56    0.251805    0.102432
    77   57    0.248695    0.112885
    77   58    0.245141    0.123372
    77   59    0.240950    0.134041
    77   60    0.236350    0.144914
    77   61    0.231055    0.155842
    77   62    0.225296    0.166797
    77   63    0.218496    0.177877
    77   64    0.211270    0.188986
    77   65    0.203069    0.199926
    77   66    0.194568    0.211064
    77   67    0.184986    0.221855
    77   68    0.174688    0.232707
    77   69    0.163438    0.243260
    77   70    0.151562    0.253572
    77   71    0.138499    0.263422
    77   72    0.124835    0.273273
    77   73    0.110500    0.282281
    77   74    0.095156    0.291150
    77   75    0.078748    0.298408
    77   76    0.062416    0.306594
    78    1   -0.000190   -0.124625
    78    2    0.001256   -0.124836
    78    3    0.002768   -0.125622
    78    4    0.004369   -0.126765
    78    5    0.006322   -0.128370
    78    6    0.008542   -0.130298
    78    7    0.011214   -0.132597
    78    8    0.014259   -0.135091
    78    9    0.017965   -0.137772
    78   10    0.022110   -0.140580
    78   11    0.026875   -0.143344
    78   12    0.032152   -0.146137
    78   13    0.038052   -0.148639
    78   14    0.044450   -0.151058
    78   15    0.051504   -0.152988
    78   16    0.058876   -0.154700
    78   17    0.066702   -0.155791
    78   18    0.074867   -0.156548
    78   19    0.083290   -0.156581
    78   20    0.092056   -0.156205
    78   21    0.100837   -0.155070
    78   22    0.109864   -0.153507
    78   23    0.118756   -0.151094
    78   24    0.127674   -0.148366
    78   25    0.136384   -0.144769
    78   26    0.144915   -0.140751
    78   27    0.153177   -0.136121
    78   28    0.161273   -0.131087
    78   29    0.168807   -0.125506
    78   30    0.176143   -0.119543
    78   31    0.182968   -0.113199
    78   32    0.189492   -0.106496
    78   33    0.195513   -0.099504
    78   34    0.201165   -0.092250
    78   35    0.206337   -0.084799
    78   36    0.211128   -0.077086
    78   37    0.215440   -0.069264
    78   38    0.219420   -0.061226
    78   39    0.222838   -0.053162
    78   40    0.225943   -0.044906
    78   41    0.228660   -0.036651
    78   42    0.231025   -0.028198
    78   43    0.233000   -0.019809
    78   44    0.234557   -0.011172
    78   45    0.235839   -0.002679
    78   46    0.236792    0.006002
    78   47    0.237298    0.014665
    78   48    0.237515    0.023504
    78   49    0.237482    0.032275
    78   50    0.236962    0.041229
    78   51    0.236094    0.050195
    78   52    0.234831    0.059386
    78   53    0.233277    0.068513
    78   54    0.231280    0.077837
    78   55    0.228865    0.087111
    78   56    0.226242    0.096563
    78   57    0.223101    0.106003
    78   58    0.219267    0.115702
    78   59    0.215055    0.125242
    78   60    0.210234    0.135072
    78   61    0.204947    0.144813
    78   62    0.199211    0.154570
    78   63    0.192782    0.164270
    78   64    0.185885    0.174041
    78   65    0.178139    0.183535
    78   66    0.169861    0.193256
    78   67    0.160813    0.202625
    78   68    0.150987    0.211961
    78   69    0.140318    0.220787
    78   70    0.129334    0.229734
    78   71    0.117361    0.238094
    78   72    0.104364    0.246416
    78   73    0.091445    0.253988
    78   74    0.077632    0.261338
    78   75    0.063313    0.268244
    78   76    0.048910    0.274626
    79    1   -0.000130   -0.121176
    79    2    0.002010   -0.121282
    79    3    0.004212   -0.121820
    79    4    0.006537   -0.122545
    79    5    0.009066   -0.123652
    79    6    0.011785   -0.124933
    79    7    0.014834   -0.126468
    79    8    0.018216   -0.128151
    79    9    0.022033   -0.129951
    79   10    0.026110   -0.131782
    79   11    0.030727   -0.133588
    79   12    0.035697   -0.135360
    79   13    0.041091   -0.136921
    79   14    0.046792   -0.138390
    79   15    0.053037   -0.139491
    79   16    0.059535   -0.140417
    79   17    0.066359   -0.140855
    79   18    0.073367   -0.141021
    79   19    0.080678   -0.140608
    79   20    0.088153   -0.139894
    79   21    0.095748   -0.138575
    79   22    0.103397   -0.136917
    79   23    0.111045   -0.134646
    79   24    0.118593   -0.131944
    79   25    0.126104   -0.128694
    79   26    0.133462   -0.125096
    79   27    0.140583   -0.120955
    79   28    0.147533   -0.116453
    79   29    0.154162   -0.111504
    79   30    0.160572   -0.106238
    79   31    0.166585   -0.100607
    79   32    0.172344   -0.094669
    79   33    0.177695   -0.088478
    79   34    0.182730   -0.081986
    79   35    0.187344   -0.075318
    79   36    0.191656   -0.068416
    79   37    0.195567   -0.061370
    79   38    0.199142   -0.054152
    79   39    0.202323   -0.046833
    79   40    0.205147   -0.039323
    79   41    0.207558   -0.031813
    79   42    0.209686   -0.024121
    79   43    0.211438   -0.016378
    79   44    0.212904   -0.008523
    79   45    0.213990   -0.000685
    79   46    0.214811    0.007324
    79   47    0.215144    0.015308
    79   48    0.215281    0.023425
    79   49    0.214964    0.031595
    79   50    0.214433    0.039860
    79   51    0.213416    0.048103
    79   52    0.212060    0.056497
    79   53    0.210387    0.064892
    79   54    0.208314    0.073375
    79   55    0.205912    0.081868
    79   56    0.203142    0.090448
    79   57    0.199784    0.099043
    79   58    0.195994    0.107743
    79   59    0.191854    0.116426
    79   60    0.187131    0.125131
    79   61    0.182094    0.133799
    79   62    0.176458    0.142459
    79   63    0.170253    0.150998
    79   64    0.163331    0.159660
    79   65    0.156050    0.168000
    79   66    0.148141    0.176406
    79   67    0.139864    0.184451
    79   68    0.130862    0.192500
    79   69    0.120897    0.200076
    79   70    0.110362    0.207582
    79   71    0.099489    0.214758
    79   72    0.087995    0.221502
    79   73    0.075941    0.227742
    79   74    0.063159    0.234012
    79   75    0.049744    0.239910
    79   76    0.036383    0.245113
    80    1   -0.000097   -0.116405
    80    2    0.002485   -0.116473
    80    3    0.005150   -0.116834
    80    4    0.007880   -0.117327
    80    5    0.010755   -0.118040
    80    6    0.013817   -0.118879
    80    7    0.017104   -0.119872
    80    8    0.020606   -0.120951
    80    9    0.024401   -0.122082
    80   10    0.028434   -0.123223
    80   11    0.032815   -0.124317
    80   12    0.037457   -0.125366
    80   13    0.042411   -0.126249
    80   14    0.047659   -0.127038
    80   15    0.053212   -0.127524
    80   16    0.058938   -0.127838
    80   17    0.064989   -0.127793
    80   18    0.071122   -0.127530
    80   19    0.077480   -0.126830
    80   20    0.083977   -0.125865
    80   21    0.090525   -0.124394
    80   22    0.097091   -0.122672
    80   23    0.103687   -0.120416
    80   24    0.110235   -0.117877
    80   25    0.116722   -0.114879
    80   26    0.123084   -0.111560
    80   27    0.129277   -0.107798
    80   28    0.135325   -0.103750
    80   29    0.141128   -0.099317
    80   30    0.146694   -0.094578
    80   31    0.151996   -0.089529
    80   32    0.157052   -0.084224
    80   33    0.161792   -0.078667
    80   34    0.166274   -0.072874
    80   35    0.170392   -0.066879
    80   36    0.174232   -0.060674
    80   37    0.177623   -0.054317
    80   38    0.180932   -0.047794
    80   39    0.183713   -0.041141
    80   40    0.186323   -0.034341
    80   41    0.188501   -0.027488
    80   42    0.190373   -0.020455
    80   43    0.191983   -0.013406
    80   44    0.193212   -0.006212
    80   45    0.194044    0.001014
    80   46    0.194668    0.008359
    80   47    0.195017    0.015712
    80   48    0.194865    0.023177
    80   49    0.194599    0.030645
    80   50    0.193870    0.038233
    80   51    0.192792    0.045776
    80   52    0.191437    0.053411
    80   53    0.189647    0.061063
    80   54    0.187596    0.068847
    80   55    0.185017    0.076545
    80   56    0.182264    0.084355
    80   57    0.178973    0.092135
    80   58    0.175316    0.099956
    80   59    0.171331    0.107653
    80   60    0.166761    0.115475
    80   61    0.161906    0.123068
    80   62    0.156425    0.130772
    80   63    0.150448    0.138375
    80   64    0.144024    0.145896
    80   65    0.136968    0.153229
    80   66    0.129800    0.160402
    80   67    0.121626    0.167463
    80   68    0.113374    0.174273
    80   69    0.104381    0.180850
    80   70    0.094832    0.187111
    80   71    0.084819    0.193043
    80   72    0.074195    0.198674
    80   73    0.062950    0.203941
    80   74    0.051426    0.208805
    80   75    0.039218    0.212938
    80   76    0.026445    0.217233
    81    1   -0.000130   -0.110934
    81    2    0.002774   -0.110989
    81    3    0.005678   -0.111189
    81    4    0.008669   -0.111492
    81    5    0.011763   -0.111937
    81    6    0.014950   -0.112450
    81    7    0.018336   -0.113051
    81    8    0.021839   -0.113681
    81    9    0.025564   -0.114334
    81   10    0.029518   -0.114977
    81   11    0.033671   -0.115556
    81   12    0.037998   -0.116082
    81   13    0.042618   -0.116464
    81   14    0.047390   -0.116732
    81   15    0.052375   -0.116794
    81   16    0.057504   -0.116702
    81   17    0.062825   -0.116300
    81   18    0.068311   -0.115724
    81   19    0.073943   -0.114777
    81   20    0.079550   -0.113628
    81   21    0.085257   -0.112092
    81   22    0.090985   -0.110310
    81   23    0.096720   -0.108162
    81   24    0.102479   -0.105713
    81   25    0.108078   -0.102888
    81   26    0.113639   -0.099803
    81   27    0.119037   -0.096355
    81   28    0.124281   -0.092645
    81   29    0.129344   -0.088634
    81   30    0.134239   -0.084353
    81   31    0.138884   -0.079791
    81   32    0.143343   -0.075005
    81   33    0.147531   -0.069991
    81   34    0.151455   -0.064782
    81   35    0.155136   -0.059338
    81   36    0.158548   -0.053761
    81   37    0.161644   -0.048017
    81   38    0.164469   -0.042108
    81   39    0.166977   -0.036077
    81   40    0.169292   -0.029884
    81   41    0.171222   -0.023641
    81   42    0.172831   -0.017218
    81   43    0.174195   -0.010793
    81   44    0.175290   -0.004190
    81   45    0.175987    0.002399
    81   46    0.176442    0.009116
    81   47    0.176583    0.015850
    81   48    0.176477    0.022652
    81   49    0.176031    0.029478
    81   50    0.175275    0.036423
    81   51    0.174124    0.043284
    81   52    0.172669    0.050298
    81   53    0.170940    0.057269
    81   54    0.168867    0.064265
    81   55    0.166292    0.071277
    81   56    0.163636    0.078283
    81   57    0.160475    0.085271
    81   58    0.156943    0.092283
    81   59    0.152984    0.099249
    81   60    0.148671    0.106164
    81   61    0.143844    0.113066
    81   62    0.138609    0.119869
    81   63    0.133184    0.126443
    81   64    0.127233    0.133041
    81   65    0.120546    0.139311
    81   66    0.113808    0.145598
    81   67    0.106406    0.151590
    81   68    0.098706    0.157517
    81   69    0.090249    0.163068
    81   70    0.081683    0.168332
    81   71    0.072569    0.173186
    81   72    0.062655    0.177885
    81   73    0.052607    0.182102
    81   74    0.042197    0.185928
    81   75    0.030461    0.189049
    81   76    0.019000    0.192365
    82    1   -0.000097   -0.105041
    82    2    0.002927   -0.105057
    82    3    0.005948   -0.105183
    82    4    0.009047   -0.105358
    82    5    0.012211   -0.105595
    82    6    0.015462   -0.105868
    82    7    0.018849   -0.106188
    82    8    0.022322   -0.106499
    82    9    0.025951   -0.106812
    82   10    0.029722   -0.107096
    82   11    0.033652   -0.107316
    82   12    0.037721   -0.107446
    82   13    0.041955   -0.107471
    82   14    0.046326   -0.107399
    82   15    0.050883   -0.107140
    82   16    0.055515   -0.106738
    82   17    0.060301   -0.106096
    82   18    0.065142   -0.105285
    82   19    0.070112   -0.104188
    82   20    0.075080   -0.102918
    82   21    0.080101   -0.101308
    82   22    0.085118   -0.099516
    82   23    0.090168   -0.097404
    82   24    0.095168   -0.095071
    82   25    0.100075   -0.092424
    82   26    0.104940   -0.089543
    82   27    0.109646   -0.086352
    82   28    0.114256   -0.082952
    82   29    0.118703   -0.079275
    82   30    0.122991   -0.075385
    82   31    0.127070   -0.071243
    82   32    0.130997   -0.066909
    82   33    0.134657   -0.062351
    82   34    0.138170   -0.057623
    82   35    0.141397   -0.052707
    82   36    0.144410   -0.047630
    82   37    0.147141   -0.042415
    82   38    0.149613   -0.037025
    82   39    0.151822   -0.031544
    82   40    0.153806   -0.025933
    82   41    0.155560   -0.020228
    82   42    0.156995   -0.014416
    82   43    0.158062   -0.008557
    82   44    0.158992   -0.002566
    82   45    0.159587    0.003444
    82   46    0.159909    0.009560
    82   47    0.159966    0.015703
    82   48    0.159756    0.021960
    82   49    0.159203    0.028163
    82   50    0.158354    0.034481
    82   51    0.157228    0.040760
    82   52    0.155776    0.047111
    82   53    0.154076    0.053451
    82   54    0.152062    0.059816
    82   55    0.149549    0.066111
    82   56    0.146874    0.072451
    82   57    0.143755    0.078701
    82   58    0.140393    0.084980
    82   59    0.136736    0.091176
    82   60    0.132588    0.097383
    82   61    0.128006    0.103444
    82   62    0.123261    0.109388
    82   63    0.118025    0.115219
    82   64    0.112467    0.120975
    82   65    0.106423    0.126516
    82   66    0.100061    0.131951
    82   67    0.093119    0.137103
    82   68    0.086076    0.142069
    82   69    0.078448    0.146756
    82   70    0.070514    0.151127
    82   71    0.062313    0.155218
    82   72    0.053512    0.159021
    82   73    0.044399    0.162353
    82   74    0.034862    0.165454
    82   75    0.024802    0.167734
    82   76    0.014803    0.169884
    83    1   -0.000087   -0.098960
    83    2    0.002973   -0.098973
    83    3    0.006040   -0.099023
    83    4    0.009151   -0.099093
    83    5    0.012324   -0.099205
    83    6    0.015537   -0.099313
    83    7    0.018842   -0.099421
    83    8    0.022236   -0.099514
    83    9    0.025716   -0.099573
    83   10    0.029294   -0.099600
    83   11    0.033014   -0.099551
    83   12    0.036833   -0.099428
    83   13    0.040763   -0.099201
    83   14    0.044764   -0.098875
    83   15    0.048877   -0.098374
    83   16    0.053111   -0.097771
    83   17    0.057394   -0.096946
    83   18    0.061757   -0.096003
    83   19    0.066151   -0.094796
    83   20    0.070598   -0.093453
    83   21    0.075038   -0.091825
    83   22    0.079483   -0.090050
    83   23    0.083942   -0.087992
    83   24    0.088316   -0.085748
    83   25    0.092639   -0.083243
    83   26    0.096900   -0.080548
    83   27    0.101050   -0.077596
    83   28    0.105092   -0.074457
    83   29    0.108996   -0.071067
    83   30    0.112782   -0.067496
    83   31    0.116354   -0.063718
    83   32    0.119827   -0.059772
    83   33    0.123049   -0.055633
    83   34    0.126100   -0.051325
    83   35    0.128947   -0.046866
    83   36    0.131581   -0.042242
    83   37    0.133980   -0.037490
    83   38    0.136194   -0.032609
    83   39    0.138135   -0.027614
    83   40    0.139869   -0.022513
    83   41    0.141343   -0.017322
    83   42    0.142594   -0.012025
    83   43    0.143551   -0.006708
    83   44    0.144273   -0.001234
    83   45    0.144727    0.004244
    83   46    0.144907    0.009817
    83   47    0.144886    0.015410
    83   48    0.144587    0.021082
    83   49    0.143979    0.026763
    83   50    0.143097    0.032491
    83   51    0.141933    0.038173
    83   52    0.140547    0.043964
    83   53    0.138810    0.049714
    83   54    0.136862    0.055448
    83   55    0.134540    0.061113
    83   56    0.131891    0.066829
    83   57    0.128956    0.072449
    83   58    0.125779    0.078071
    83   59    0.122243    0.083532
    83   60    0.118302    0.089058
    83   61    0.114100    0.094422
    83   62    0.109602    0.099746
    83   63    0.104714    0.104861
    83   64    0.099549    0.109870
    83   65    0.094044    0.114693
    83   66    0.088258    0.119360
    83   67    0.081972    0.123718
    83   68    0.075495    0.127977
    83   69    0.068608    0.131869
    83   70    0.061385    0.135645
    83   71    0.053746    0.138988
    83   72    0.045869    0.142140
    83   73    0.037821    0.144731
    83   74    0.029364    0.147100
    83   75    0.020481    0.148804
    83   76    0.011578    0.150493
    84    1   -0.000076   -0.092884
    84    2    0.002942   -0.092872
    84    3    0.005972   -0.092881
    84    4    0.009037   -0.092894
    84    5    0.012152   -0.092891
    84    6    0.015293   -0.092876
    84    7    0.018501   -0.092840
    84    8    0.021754   -0.092782
    84    9    0.025099   -0.092660
    84   10    0.028481   -0.092514
    84   11    0.031975   -0.092278
    84   12    0.035516   -0.091975
    84   13    0.039165   -0.091557
    84   14    0.042873   -0.091071
    84   15    0.046633   -0.090402
    84   16    0.050454   -0.089661
    84   17    0.054337   -0.088725
    84   18    0.058262   -0.087689
    84   19    0.062217   -0.086416
    84   20    0.066176   -0.085038
    84   21    0.070145   -0.083425
    84   22    0.074101   -0.081667
    84   23    0.078013   -0.079690
    84   24    0.081899   -0.077527
    84   25    0.085724   -0.075169
    84   26    0.089479   -0.072631
    84   27    0.093125   -0.069882
    84   28    0.096700   -0.066970
    84   29    0.100142   -0.063859
    84   30    0.103459   -0.060578
    84   31    0.106611   -0.057106
    84   32    0.109656   -0.053490
    84   33    0.112490   -0.049703
    84   34    0.115198   -0.045779
    84   35    0.117685   -0.041706
    84   36    0.120002   -0.037511
    84   37    0.122115   -0.033177
    84   38    0.124050   -0.028748
    84   39    0.125737   -0.024217
    84   40    0.127246   -0.019554
    84   41    0.128476   -0.014843
    84   42    0.129549   -0.010003
    84   43    0.130344   -0.005124
    84   44    0.130931   -0.000158
    84   45    0.131264    0.004851
    84   46    0.131420    0.009914
    84   47    0.131204    0.014997
    84   48    0.130855    0.020134
    84   49    0.130182    0.025308
    84   50    0.129355    0.030469
    84   51    0.128204    0.035635
    84   52    0.126786    0.040844
    84   53    0.125152    0.045985
    84   54    0.123242    0.051190
    84   55    0.120998    0.056309
    84   56    0.118568    0.061455
    84   57    0.115748    0.066514
    84   58    0.112800    0.071523
    84   59    0.109439    0.076383
    84   60    0.105804    0.081269
    84   61    0.101901    0.085927
    84   62    0.097636    0.090618
    84   63    0.093130    0.095053
    84   64    0.088409    0.099540
    84   65    0.083303    0.103758
    84   66    0.078059    0.107818
    84   67    0.072363    0.111586
    84   68    0.066415    0.115207
    84   69    0.060113    0.118617
    84   70    0.053644    0.121672
    84   71    0.046870    0.124386
    84   72    0.039925    0.126968
    84   73    0.032622    0.129021
    84   74    0.025165    0.130878
    84   75    0.017266    0.132206
    84   76    0.009895    0.133267
    85    1   -0.000084   -0.086904
    85    2    0.002875   -0.086898
    85    3    0.005831   -0.086876
    85    4    0.008807   -0.086824
    85    5    0.011811   -0.086757
    85    6    0.014848   -0.086655
    85    7    0.017910   -0.086527
    85    8    0.021026   -0.086348
    85    9    0.024189   -0.086120
    85   10    0.027394   -0.085834
    85   11    0.030658   -0.085472
    85   12    0.033970   -0.085039
    85   13    0.037341   -0.084515
    85   14    0.040743   -0.083897
    85   15    0.044205   -0.083145
    85   16    0.047683   -0.082287
    85   17    0.051199   -0.081301
    85   18    0.054748   -0.080193
    85   19    0.058302   -0.078916
    85   20    0.061858   -0.077514
    85   21    0.065400   -0.075931
    85   22    0.068931   -0.074213
    85   23    0.072421   -0.072307
    85   24    0.075870   -0.070257
    85   25    0.079263   -0.068017
    85   26    0.082586   -0.065640
    85   27    0.085806   -0.063074
    85   28    0.088977   -0.060366
    85   29    0.092016   -0.057491
    85   30    0.094941   -0.054460
    85   31    0.097731   -0.051271
    85   32    0.100396   -0.047961
    85   33    0.102913   -0.044504
    85   34    0.105281   -0.040907
    85   35    0.107471   -0.037194
    85   36    0.109510   -0.033355
    85   37    0.111328   -0.029414
    85   38    0.113014   -0.025368
    85   39    0.114471   -0.021235
    85   40    0.115773   -0.016987
    85   41    0.116815   -0.012696
    85   42    0.117733   -0.008308
    85   43    0.118356   -0.003868
    85   44    0.118845    0.000642
    85   45    0.119098    0.005180
    85   46    0.119127    0.009782
    85   47    0.118900    0.014409
    85   48    0.118478    0.019084
    85   49    0.117842    0.023762
    85   50    0.117007    0.028450
    85   51    0.115830    0.033112
    85   52    0.114497    0.037825
    85   53    0.112904    0.042435
    85   54    0.111011    0.047141
    85   55    0.108890    0.051772
    85   56    0.106607    0.056347
    85   57    0.103991    0.060880
    85   58    0.101174    0.065349
    85   59    0.098071    0.069698
    85   60    0.094746    0.074033
    85   61    0.091074    0.078194
    85   62    0.087199    0.082328
    85   63    0.082976    0.086255
    85   64    0.078636    0.090088
    85   65    0.074022    0.093748
    85   66    0.069162    0.097257
    85   67    0.063973    0.100554
    85   68    0.058679    0.103706
    85   69    0.053064    0.106521
    85   70    0.047238    0.109165
    85   71    0.041290    0.111411
    85   72    0.034923    0.113510
    85   73    0.028470    0.115175
    85   74    0.021961    0.116607
    85   75    0.015104    0.117605
    85   76    0.008408    0.118316
    86    1   -0.000073   -0.081117
    86    2    0.002772   -0.081097
    86    3    0.005613   -0.081056
    86    4    0.008468   -0.080973
    86    5    0.011350   -0.080857
    86    6    0.014245   -0.080702
    86    7    0.017174   -0.080499
    86    8    0.020119   -0.080246
    86    9    0.023100   -0.079931
    86   10    0.026110   -0.079570
    86   11    0.029173   -0.079123
    86   12    0.032249   -0.078607
    86   13    0.035365   -0.077996
    86   14    0.038507   -0.077300
    86   15    0.041662   -0.076485
    86   16    0.044876   -0.075592
    86   17    0.048061   -0.074562
    86   18    0.051271   -0.073436
    86   19    0.054487   -0.072159
    86   20    0.057682   -0.070759
    86   21    0.060854   -0.069220
    86   22    0.064026   -0.067556
    86   23    0.067141   -0.065735
    86   24    0.070223   -0.063783
    86   25    0.073238   -0.061676
    86   26    0.076192   -0.059438
    86   27    0.079071   -0.057048
    86   28    0.081868   -0.054530
    86   29    0.084546   -0.051864
    86   30    0.087143   -0.049071
    86   31    0.089604   -0.046140
    86   32    0.091946   -0.043084
    86   33    0.094169   -0.039918
    86   34    0.096247   -0.036625
    86   35    0.098161   -0.033227
    86   36    0.099945   -0.029721
    86   37    0.101555   -0.026122
    86   38    0.102997   -0.022427
    86   39    0.104270   -0.018655
    86   40    0.105385   -0.014800
    86   41    0.106313   -0.010880
    86   42    0.107036   -0.006889
    86   43    0.107594   -0.002859
    86   44    0.107922    0.001251
    86   45    0.108071    0.005372
    86   46    0.108023    0.009563
    86   47    0.107720    0.013760
    86   48    0.107282    0.017986
    86   49    0.106663    0.022197
    86   50    0.105787    0.026458
    86   51    0.104673    0.030693
    86   52    0.103392    0.034944
    86   53    0.101804    0.039140
    86   54    0.100096    0.043329
    86   55    0.098095    0.047421
    86   56    0.095942    0.051586
    86   57    0.093424    0.055606
    86   58    0.090862    0.059614
    86   59    0.087965    0.063495
    86   60    0.084820    0.067354
    86   61    0.081502    0.071079
    86   62    0.077991    0.074695
    86   63    0.074157    0.078123
    86   64    0.070197    0.081476
    86   65    0.065927    0.084676
    86   66    0.061421    0.087713
    86   67    0.056743    0.090517
    86   68    0.052010    0.093210
    86   69    0.046912    0.095623
    86   70    0.041755    0.097880
    86   71    0.036416    0.099792
    86   72    0.030852    0.101548
    86   73    0.025100    0.102962
    86   74    0.019278    0.104142
    86   75    0.013186    0.104968
    86   76    0.007532    0.105582
    87    1   -0.000060   -0.075562
    87    2    0.002646   -0.075554
    87    3    0.005362   -0.075484
    87    4    0.008078   -0.075381
    87    5    0.010832   -0.075236
    87    6    0.013574   -0.075039
    87    7    0.016329   -0.074787
    87    8    0.019118   -0.074487
    87    9    0.021923   -0.074128
    87   10    0.024746   -0.073701
    87   11    0.027587   -0.073200
    87   12    0.030448   -0.072641
    87   13    0.033329   -0.071976
    87   14    0.036234   -0.071244
    87   15    0.039139   -0.070405
    87   16    0.042055   -0.069481
    87   17    0.044975   -0.068445
    87   18    0.047886   -0.067309
    87   19    0.050786   -0.066046
    87   20    0.053688   -0.064691
    87   21    0.056562   -0.063195
    87   22    0.059391   -0.061596
    87   23    0.062180   -0.059864
    87   24    0.064939   -0.058013
    87   25    0.067630   -0.056027
    87   26    0.070268   -0.053930
    87   27    0.072823   -0.051699
    87   28    0.075298   -0.049354
    87   29    0.077684   -0.046887
    87   30    0.079990   -0.044301
    87   31    0.082154   -0.041599
    87   32    0.084241   -0.038791
    87   33    0.086198   -0.035876
    87   34    0.088022   -0.032861
    87   35    0.089699   -0.029751
    87   36    0.091268   -0.026547
    87   37    0.092658   -0.023256
    87   38    0.093924   -0.019882
    87   39    0.095018   -0.016455
    87   40    0.095959   -0.012930
    87   41    0.096744   -0.009376
    87   42    0.097354   -0.005733
    87   43    0.097768   -0.002066
    87   44    0.098037    0.001662
    87   45    0.098098    0.005417
    87   46    0.098008    0.009215
    87   47    0.097717    0.012990
    87   48    0.097244    0.016833
    87   49    0.096557    0.020661
    87   50    0.095690    0.024504
    87   51    0.094633    0.028327
    87   52    0.093391    0.032169
    87   53    0.091897    0.035952
    87   54    0.090313    0.039715
    87   55    0.088438    0.043434
    87   56    0.086381    0.047123
    87   57    0.084122    0.050708
    87   58    0.081646    0.054265
    87   59    0.079000    0.057710
    87   60    0.076139    0.061150
    87   61    0.073025    0.064418
    87   62    0.069839    0.067612
    87   63    0.066389    0.070648
    87   64    0.062705    0.073612
    87   65    0.058910    0.076383
    87   66    0.054878    0.079053
    87   67    0.050633    0.081488
    87   68    0.046322    0.083808
    87   69    0.041766    0.085829
    87   70    0.037047    0.087799
    87   71    0.032330    0.089444
    87   72    0.027368    0.090917
    87   73    0.022307    0.092067
    87   74    0.017172    0.093065
    87   75    0.011872    0.093680
    87   76    0.006803    0.094238
    88    1   -0.000056   -0.070277
    88    2    0.002510   -0.070252
    88    3    0.005082   -0.070186
    88    4    0.007665   -0.070070
    88    5    0.010247   -0.069912
    88    6    0.012834   -0.069683
    88    7    0.015451   -0.069409
    88    8    0.018057   -0.069078
    88    9    0.020688   -0.068684
    88   10    0.023314   -0.068227
    88   11    0.025967   -0.067695
    88   12    0.028634   -0.067104
    88   13    0.031285   -0.066421
    88   14    0.033966   -0.065675
    88   15    0.036643   -0.064824
    88   16    0.039301   -0.063896
    88   17    0.041968   -0.062864
    88   18    0.044623   -0.061750
    88   19    0.047268   -0.060524
    88   20    0.049873   -0.059203
    88   21    0.052465   -0.057770
    88   22    0.055015   -0.056242
    88   23    0.057527   -0.054595
    88   24    0.060010   -0.052847
    88   25    0.062408   -0.050981
    88   26    0.064777   -0.049010
    88   27    0.067049   -0.046936
    88   28    0.069252   -0.044760
    88   29    0.071382   -0.042469
    88   30    0.073413   -0.040076
    88   31    0.075336   -0.037593
    88   32    0.077178   -0.035002
    88   33    0.078894   -0.032324
    88   34    0.080517   -0.029556
    88   35    0.081982   -0.026699
    88   36    0.083356   -0.023773
    88   37    0.084569   -0.020766
    88   38    0.085670   -0.017687
    88   39    0.086610   -0.014546
    88   40    0.087433   -0.011341
    88   41    0.088065   -0.008093
    88   42    0.088560   -0.004780
    88   43    0.088906   -0.001451
    88   44    0.089097    0.001939
    88   45    0.089113    0.005331
    88   46    0.088970    0.008779
    88   47    0.088639    0.012212
    88   48    0.088145    0.015692
    88   49    0.087461    0.019137
    88   50    0.086642    0.022624
    88   51    0.085649    0.026046
    88   52    0.084434    0.029512
    88   53    0.083089    0.032901
    88   54    0.081525    0.036292
    88   55    0.079787    0.039630
    88   56    0.077935    0.042938
    88   57    0.075853    0.046145
    88   58    0.073540    0.049336
    88   59    0.071036    0.052407
    88   60    0.068430    0.055457
    88   61    0.065646    0.058345
    88   62    0.062655    0.061190
    88   63    0.059469    0.063888
    88   64    0.056253    0.066492
    88   65    0.052746    0.068902
    88   66    0.049031    0.071232
    88   67    0.045282    0.073375
    88   68    0.041382    0.075351
    88   69    0.037312    0.077132
    88   70    0.033123    0.078810
    88   71    0.028837    0.080204
    88   72    0.024394    0.081464
    88   73    0.019872    0.082441
    88   74    0.015380    0.083236
    88   75    0.010708    0.083734
    88   76    0.006026    0.083978
    89    1   -0.000060   -0.065284
    89    2    0.002366   -0.065263
    89    3    0.004797   -0.065183
    89    4    0.007228   -0.065057
    89    5    0.009659   -0.064885
    89    6    0.012088   -0.064646
    89    7    0.014540   -0.064362
    89    8    0.016997   -0.064011
    89    9    0.019444   -0.063600
    89   10    0.021887   -0.063124
    89   11    0.024353   -0.062586
    89   12    0.026819   -0.061981
    89   13    0.029272   -0.061292
    89   14    0.031733   -0.060541
    89   15    0.034183   -0.059701
    89   16    0.036640   -0.058786
    89   17    0.039083   -0.057781
    89   18    0.041494   -0.056691
    89   19    0.043882   -0.055509
    89   20    0.046263   -0.054241
    89   21    0.048609   -0.052872
    89   22    0.050920   -0.051418
    89   23    0.053178   -0.049858
    89   24    0.055410   -0.048213
    89   25    0.057562   -0.046462
    89   26    0.059682   -0.044626
    89   27    0.061696   -0.042684
    89   28    0.063685   -0.040663
    89   29    0.065566   -0.038541
    89   30    0.067386   -0.036325
    89   31    0.069092   -0.034032
    89   32    0.070718   -0.031654
    89   33    0.072239   -0.029192
    89   34    0.073656   -0.026653
    89   35    0.074957   -0.024041
    89   36    0.076149   -0.021360
    89   37    0.077219   -0.018609
    89   38    0.078169   -0.015793
    89   39    0.078977   -0.012931
    89   40    0.079659   -0.010006
    89   41    0.080206   -0.007044
    89   42    0.080628   -0.004035
    89   43    0.080867   -0.001003
    89   44    0.080997    0.002079
    89   45    0.080989    0.005163
    89   46    0.080785    0.008296
    89   47    0.080441    0.011420
    89   48    0.079946    0.014553
    89   49    0.079291    0.017698
    89   50    0.078495    0.020824
    89   51    0.077571    0.023915
    89   52    0.076403    0.027043
    89   53    0.075114    0.030096
    89   54    0.073689    0.033134
    89   55    0.072042    0.036105
    89   56    0.070308    0.039099
    89   57    0.068360    0.041974
    89   58    0.066276    0.044841
    89   59    0.063978    0.047589
    89   60    0.061621    0.050269
    89   61    0.059052    0.052823
    89   62    0.056346    0.055340
    89   63    0.053443    0.057709
    89   64    0.050483    0.060023
    89   65    0.047336    0.062142
    89   66    0.044055    0.064208
    89   67    0.040627    0.066046
    89   68    0.037094    0.067802
    89   69    0.033426    0.069319
    89   70    0.029709    0.070763
    89   71    0.025885    0.071948
    89   72    0.021960    0.073028
    89   73    0.017900    0.073835
    89   74    0.013862    0.074516
    89   75    0.009684    0.074977
    89   76    0.005727    0.075311
    90    1   -0.000058   -0.060579
    90    2    0.002215   -0.060557
    90    3    0.004499   -0.060476
    90    4    0.006781   -0.060346
    90    5    0.009066   -0.060162
    90    6    0.011344   -0.059928
    90    7    0.013627   -0.059628
    90    8    0.015915   -0.059275
    90    9    0.018194   -0.058857
    90   10    0.020482   -0.058387
    90   11    0.022762   -0.057845
    90   12    0.025043   -0.057236
    90   13    0.027311   -0.056567
    90   14    0.029588   -0.055821
    90   15    0.031849   -0.054999
    90   16    0.034092   -0.054109
    90   17    0.036318   -0.053130
    90   18    0.038520   -0.052087
    90   19    0.040714   -0.050952
    90   20    0.042869   -0.049741
    90   21    0.044994   -0.048441
    90   22    0.047081   -0.047066
    90   23    0.049112   -0.045600
    90   24    0.051128   -0.044050
    90   25    0.053062   -0.042410
    90   26    0.054952   -0.040693
    90   27    0.056779   -0.038890
    90   28    0.058546   -0.037009
    90   29    0.060223   -0.035041
    90   30    0.061847   -0.033000
    90   31    0.063372   -0.030883
    90   32    0.064809   -0.028686
    90   33    0.066145   -0.026426
    90   34    0.067398   -0.024092
    90   35    0.068542   -0.021698
    90   36    0.069596   -0.019234
    90   37    0.070530   -0.016723
    90   38    0.071339   -0.014153
    90   39    0.072030   -0.011537
    90   40    0.072628   -0.008873
    90   41    0.073074   -0.006187
    90   42    0.073405   -0.003443
    90   43    0.073607   -0.000684
    90   44    0.073668    0.002116
    90   45    0.073590    0.004923
    90   46    0.073389    0.007752
    90   47    0.073057    0.010580
    90   48    0.072555    0.013432
    90   49    0.071916    0.016255
    90   50    0.071196    0.019085
    90   51    0.070246    0.021896
    90   52    0.069198    0.024703
    90   53    0.067985    0.027469
    90   54    0.066647    0.030199
    90   55    0.065159    0.032869
    90   56    0.063508    0.035539
    90   57    0.061678    0.038116
    90   58    0.059802    0.040653
    90   59    0.057737    0.043108
    90   60    0.055552    0.045498
    90   61    0.053209    0.047795
    90   62    0.050729    0.050025
    90   63    0.048107    0.052140
    90   64    0.045370    0.054165
    90   65    0.042539    0.056030
    90   66    0.039614    0.057817
    90   67    0.036539    0.059458
    90   68    0.033335    0.060979
    90   69    0.030093    0.062311
    90   70    0.026732    0.063572
    90   71    0.023298    0.064617
    90   72    0.019801    0.065554
    90   73    0.016199    0.066231
    90   74    0.012615    0.066834
    90   75    0.008953    0.067180
    90   76    0.005405    0.067415
    91    1   -0.000052   -0.056173
    91    2    0.002077   -0.056146
    91    3    0.004207   -0.056069
    91    4    0.006352   -0.055936
    91    5    0.008476   -0.055759
    91    6    0.010598   -0.055514
    91    7    0.012732   -0.055214
    91    8    0.014859   -0.054869
    91    9    0.016991   -0.054453
    91   10    0.019111   -0.053987
    91   11    0.021221   -0.053452
    91   12    0.023331   -0.052864
    91   13    0.025431   -0.052197
    91   14    0.027523   -0.051478
    91   15    0.029594   -0.050679
    91   16    0.031651   -0.049824
    91   17    0.033698   -0.048886
    91   18    0.035712   -0.047887
    91   19    0.037712   -0.046801
    91   20    0.039668   -0.045656
    91   21    0.041587   -0.044424
    91   22    0.043486   -0.043127
    91   23    0.045331   -0.041746
    91   24    0.047144   -0.040291
    91   25    0.048891   -0.038767
    91   26    0.050587   -0.037165
    91   27    0.052227   -0.035491
    91   28    0.053810   -0.033741
    91   29    0.055317   -0.031926
    91   30    0.056748   -0.030038
    91   31    0.058109   -0.028089
    91   32    0.059387   -0.026059
    91   33    0.060573   -0.023976
    91   34    0.061680   -0.021836
    91   35    0.062687   -0.019634
    91   36    0.063610   -0.017388
    91   37    0.064407   -0.015095
    91   38    0.065139   -0.012735
    91   39    0.065726   -0.010348
    91   40    0.066235   -0.007924
    91   41    0.066607   -0.005470
    91   42    0.066871   -0.002970
    91   43    0.067019   -0.000468
    91   44    0.067043    0.002086
    91   45    0.066922    0.004621
    91   46    0.066706    0.007197
    91   47    0.066352    0.009760
    91   48    0.065888    0.012333
    91   49    0.065280    0.014893
    91   50    0.064592    0.017449
    91   51    0.063682    0.019975
    91   52    0.062689    0.022504
    91   53    0.061586    0.024989
    91   54    0.060344    0.027455
    91   55    0.058956    0.029846
    91   56    0.057441    0.032242
    91   57    0.055802    0.034547
    91   58    0.054042    0.036818
    91   59    0.052142    0.039007
    91   60    0.050141    0.041158
    91   61    0.048014    0.043197
    91   62    0.045743    0.045182
    91   63    0.043357    0.047034
    91   64    0.040933    0.048834
    91   65    0.038351    0.050490
    91   66    0.035669    0.052076
    91   67    0.032902    0.053514
    91   68    0.030032    0.054868
    91   69    0.027131    0.056045
    91   70    0.024088    0.057146
    91   71    0.021007    0.058054
    91   72    0.017866    0.058872
    91   73    0.014743    0.059492
    91   74    0.011548    0.059992
    91   75    0.008233    0.060303
    91   76    0.005127    0.060501
    92    1   -0.000049   -0.052045
    92    2    0.001945   -0.052027
    92    3    0.003930   -0.051948
    92    4    0.005928   -0.051816
    92    5    0.007913   -0.051634
    92    6    0.009887   -0.051397
    92    7    0.011872   -0.051104
    92    8    0.013847   -0.050768
    92    9    0.015823   -0.050362
    92   10    0.017775   -0.049906
    92   11    0.019746   -0.049388
    92   12    0.021693   -0.048817
    92   13    0.023631   -0.048175
    92   14    0.025553   -0.047479
    92   15    0.027461   -0.046720
    92   16    0.029352   -0.045899
    92   17    0.031216   -0.045009
    92   18    0.033062   -0.044053
    92   19    0.034877   -0.043025
    92   20    0.036664   -0.041937
    92   21    0.038406   -0.040779
    92   22    0.040130   -0.039560
    92   23    0.041801   -0.038264
    92   24    0.043433   -0.036913
    92   25    0.045027   -0.035483
    92   26    0.046549   -0.033995
    92   27    0.048029   -0.032440
    92   28    0.049445   -0.030812
    92   29    0.050786   -0.029133
    92   30    0.052076   -0.027390
    92   31    0.053289   -0.025584
    92   32    0.054436   -0.023726
    92   33    0.055484   -0.021813
    92   34    0.056467   -0.019843
    92   35    0.057345   -0.017831
    92   36    0.058167   -0.015758
    92   37    0.058866   -0.013666
    92   38    0.059484   -0.011516
    92   39    0.060003   -0.009337
    92   40    0.060410   -0.007117
    92   41    0.060725   -0.004884
    92   42    0.060939   -0.002603
    92   43    0.061018   -0.000317
    92   44    0.061030    0.001994
    92   45    0.060912    0.004299
    92   46    0.060683    0.006630
    92   47    0.060323    0.008951
    92   48    0.059869    0.011280
    92   49    0.059301    0.013593
    92   50    0.058600    0.015911
    92   51    0.057803    0.018180
    92   52    0.056867    0.020475
    92   53    0.055827    0.022698
    92   54    0.054685    0.024924
    92   55    0.053417    0.027072
    92   56    0.052009    0.029221
    92   57    0.050491    0.031286
    92   58    0.048873    0.033327
    92   59    0.047130    0.035280
    92   60    0.045285    0.037194
    92   61    0.043385    0.039016
    92   62    0.041351    0.040779
    92   63    0.039213    0.042423
    92   64    0.036961    0.044036
    92   65    0.034655    0.045506
    92   66    0.032227    0.046914
    92   67    0.029707    0.048176
    92   68    0.027163    0.049362
    92   69    0.024531    0.050401
    92   70    0.021819    0.051364
    92   71    0.019055    0.052157
    92   72    0.016243    0.052884
    92   73    0.013405    0.053424
    92   74    0.010553    0.053890
    92   75    0.007579    0.054150
    92   76    0.004654    0.054293
    93    1   -0.000047   -0.048206
    93    2    0.001814   -0.048185
    93    3    0.003662   -0.048107
    93    4    0.005513   -0.047985
    93    5    0.007363   -0.047802
    93    6    0.009200   -0.047575
    93    7    0.011039   -0.047293
    93    8    0.012876   -0.046961
    93    9    0.014708   -0.046573
    93   10    0.016527   -0.046131
    93   11    0.018345   -0.045634
    93   12    0.020140   -0.045079
    93   13    0.021920   -0.044468
    93   14    0.023688   -0.043804
    93   15    0.025452   -0.043074
    93   16    0.027180   -0.042294
    93   17    0.028887   -0.041453
    93   18    0.030570   -0.040549
    93   19    0.032238   -0.039583
    93   20    0.033863   -0.038558
    93   21    0.035458   -0.037469
    93   22    0.037020   -0.036323
    93   23    0.038533   -0.035113
    93   24    0.040011   -0.033848
    93   25    0.041444   -0.032522
    93   26    0.042827   -0.031132
    93   27    0.044144   -0.029691
    93   28    0.045431   -0.028190
    93   29    0.046626   -0.026632
    93   30    0.047787   -0.025020
    93   31    0.048865   -0.023365
    93   32    0.049878   -0.021648
    93   33    0.050823   -0.019893
    93   34    0.051685   -0.018081
    93   35    0.052474   -0.016239
    93   36    0.053179   -0.014345
    93   37    0.053803   -0.012421
    93   38    0.054341   -0.010454
    93   39    0.054776   -0.008473
    93   40    0.055126   -0.006447
    93   41    0.055385   -0.004403
    93   42    0.055560   -0.002344
    93   43    0.055622   -0.000263
    93   44    0.055586    0.001838
    93   45    0.055441    0.003929
    93   46    0.055229    0.006043
    93   47    0.054890    0.008148
    93   48    0.054434    0.010259
    93   49    0.053896    0.012350
    93   50    0.053250    0.014451
    93   51    0.052504    0.016508
    93   52    0.051637    0.018568
    93   53    0.050645    0.020582
    93   54    0.049592    0.022582
    93   55    0.048414    0.024529
    93   56    0.047140    0.026440
    93   57    0.045757    0.028304
    93   58    0.044291    0.030131
    93   59    0.042689    0.031870
    93   60    0.040996    0.033587
    93   61    0.039250    0.035201
    93   62    0.037421    0.036780
    93   63    0.035442    0.038235
    93   64    0.033416    0.039669
    93   65    0.031307    0.040992
    93   66    0.029166    0.042232
    93   67    0.026907    0.043347
    93   68    0.024576    0.044403
    93   69    0.022205    0.045332
    93   70    0.019786    0.046187
    93   71    0.017313    0.046891
    93   72    0.014731    0.047520
    93   73    0.012236    0.047993
    93   74    0.009649    0.048393
    93   75    0.007041    0.048616
    93   76    0.004474    0.048822
    94    1   -0.000037   -0.046391
    94    2    0.001750   -0.046365
    94    3    0.003528   -0.046295
    94    4    0.005315   -0.046170
    94    5    0.007110   -0.045995
    94    6    0.008868   -0.045766
    94    7    0.010648   -0.045494
    94    8    0.012408   -0.045159
    94    9    0.014181   -0.044784
    94   10    0.015922   -0.044351
    94   11    0.017656   -0.043864
    94   12    0.019391   -0.043324
    94   13    0.021100   -0.042729
    94   14    0.022797   -0.042074
    94   15    0.024479   -0.041366
    94   16    0.026144   -0.040606
    94   17    0.027781   -0.039782
    94   18    0.029387   -0.038909
    94   19    0.030977   -0.037974
    94   20    0.032534   -0.036981
    94   21    0.034053   -0.035933
    94   22    0.035544   -0.034818
    94   23    0.036993   -0.033651
    94   24    0.038391   -0.032429
    94   25    0.039759   -0.031147
    94   26    0.041071   -0.029808
    94   27    0.042329   -0.028424
    94   28    0.043544   -0.026979
    94   29    0.044689   -0.025479
    94   30    0.045773   -0.023933
    94   31    0.046797   -0.022342
    94   32    0.047751   -0.020696
    94   33    0.048651   -0.019010
    94   34    0.049453   -0.017282
    94   35    0.050184   -0.015512
    94   36    0.050851   -0.013707
    94   37    0.051434   -0.011860
    94   38    0.051941   -0.009987
    94   39    0.052346   -0.008085
    94   40    0.052664   -0.006157
    94   41    0.052895   -0.004198
    94   42    0.053056   -0.002243
    94   43    0.053112   -0.000245
    94   44    0.053056    0.001747
    94   45    0.052922    0.003759
    94   46    0.052693    0.005752
    94   47    0.052366    0.007777
    94   48    0.051915    0.009763
    94   49    0.051389    0.011772
    94   50    0.050763    0.013747
    94   51    0.050044    0.015727
    94   52    0.049208    0.017653
    94   53    0.048258    0.019592
    94   54    0.047243    0.021471
    94   55    0.046124    0.023330
    94   56    0.044898    0.025130
    94   57    0.043578    0.026921
    94   58    0.042172    0.028620
    94   59    0.040666    0.030302
    94   60    0.039024    0.031895
    94   61    0.037379    0.033447
    94   62    0.035613    0.034907
    94   63    0.033768    0.036331
    94   64    0.031802    0.037632
    94   65    0.029847    0.038891
    94   66    0.027760    0.040040
    94   67    0.025627    0.041135
    94   68    0.023396    0.042102
    94   69    0.021146    0.043005
    94   70    0.018856    0.043775
    94   71    0.016524    0.044465
    94   72    0.014076    0.045035
    94   73    0.011712    0.045518
    94   74    0.009253    0.045856
    94   75    0.006800    0.046121
    94   76    0.006800    0.046121
    95    1   -0.000033   -0.044633
    95    2    0.001689   -0.044609
    95    3    0.003402   -0.044542
    95    4    0.005118   -0.044415
    95    5    0.006854   -0.044245
    95    6    0.008550   -0.044027
    95    7    0.010259   -0.043755
    95    8    0.011962   -0.043438
    95    9    0.013657   -0.043062
    95   10    0.015333   -0.042639
    95   11    0.016998   -0.042160
    95   12    0.018661   -0.041636
    95   13    0.020305   -0.041054
    95   14    0.021939   -0.040421
    95   15    0.023545   -0.039734
    95   16    0.025138   -0.038993
    95   17    0.026709   -0.038195
    95   18    0.028245   -0.037341
    95   19    0.029763   -0.036434
    95   20    0.031254   -0.035476
    95   21    0.032701   -0.034461
    95   22    0.034122   -0.033385
    95   23    0.035501   -0.032261
    95   24    0.036838   -0.031079
    95   25    0.038135   -0.029842
    95   26    0.039388   -0.028556
    95   27    0.040580   -0.027222
    95   28    0.041720   -0.025829
    95   29    0.042816   -0.024392
    95   30    0.043851   -0.022906
    95   31    0.044810   -0.021376
    95   32    0.045723   -0.019801
    95   33    0.046564   -0.018186
    95   34    0.047329   -0.016527
    95   35    0.048004   -0.014834
    95   36    0.048649   -0.013100
    95   37    0.049178   -0.011338
    95   38    0.049653   -0.009546
    95   39    0.050026   -0.007733
    95   40    0.050327   -0.005884
    95   41    0.050529   -0.004023
    95   42    0.050667   -0.002145
    95   43    0.050711   -0.000251
    95   44    0.050663    0.001661
    95   45    0.050512    0.003564
    95   46    0.050286    0.005484
    95   47    0.049959    0.007389
    95   48    0.049534    0.009296
    95   49    0.049006    0.011193
    95   50    0.048401    0.013086
    95   51    0.047710    0.014946
    95   52    0.046898    0.016807
    95   53    0.045983    0.018630
    95   54    0.045016    0.020419
    95   55    0.043946    0.022172
    95   56    0.042774    0.023902
    95   57    0.041502    0.025566
    95   58    0.040173    0.027214
    95   59    0.038732    0.028774
    95   60    0.037209    0.030300
    95   61    0.035587    0.031748
    95   62    0.033910    0.033156
    95   63    0.032146    0.034461
    95   64    0.030298    0.035726
    95   65    0.028422    0.036883
    95   66    0.026416    0.038010
    95   67    0.024408    0.039005
    95   68    0.022308    0.039946
    95   69    0.020152    0.040768
    95   70    0.017972    0.041522
    95   71    0.015777    0.042145
    95   72    0.013506    0.042702
    95   73    0.011214    0.043134
    95   74    0.008886    0.043478
    95   75    0.006556    0.043702
    95   76    0.004213    0.043885
    96    1   -0.000037   -0.041311
    96    2    0.001560   -0.041295
    96    3    0.003147   -0.041219
    96    4    0.004742   -0.041107
    96    5    0.006345   -0.040942
    96    6    0.007927   -0.040731
    96    7    0.009517   -0.040469
    96    8    0.011088   -0.040166
    96    9    0.012653   -0.039811
    96   10    0.014208   -0.039410
    96   11    0.015748   -0.038961
    96   12    0.017282   -0.038460
    96   13    0.018793   -0.037909
    96   14    0.020295   -0.037312
    96   15    0.021761   -0.036659
    96   16    0.023232   -0.035962
    96   17    0.024666   -0.035215
    96   18    0.026083   -0.034412
    96   19    0.027445   -0.033567
    96   20    0.028820   -0.032665
    96   21    0.030142   -0.031712
    96   22    0.031438   -0.030714
    96   23    0.032683   -0.029663
    96   24    0.033911   -0.028569
    96   25    0.035070   -0.027421
    96   26    0.036214   -0.026230
    96   27    0.037289   -0.024991
    96   28    0.038324   -0.023703
    96   29    0.039308   -0.022382
    96   30    0.040236   -0.021010
    96   31    0.041092   -0.019600
    96   32    0.041917   -0.018151
    96   33    0.042660   -0.016669
    96   34    0.043335   -0.015142
    96   35    0.043942   -0.013588
    96   36    0.044509   -0.012007
    96   37    0.044982   -0.010397
    96   38    0.045379   -0.008758
    96   39    0.045721   -0.007099
    96   40    0.045981   -0.005416
    96   41    0.046149   -0.003717
    96   42    0.046240   -0.002000
    96   43    0.046253   -0.000280
    96   44    0.046197    0.001456
    96   45    0.046048    0.003180
    96   46    0.045813    0.004923
    96   47    0.045497    0.006651
    96   48    0.045094    0.008395
    96   49    0.044609    0.010109
    96   50    0.044036    0.011818
    96   51    0.043379    0.013497
    96   52    0.042639    0.015176
    96   53    0.041815    0.016813
    96   54    0.040909    0.018436
    96   55    0.039917    0.020007
    96   56    0.038865    0.021561
    96   57    0.037697    0.023060
    96   58    0.036454    0.024534
    96   59    0.035146    0.025946
    96   60    0.033768    0.027314
    96   61    0.032319    0.028606
    96   62    0.030786    0.029875
    96   63    0.029165    0.031050
    96   64    0.027505    0.032175
    96   65    0.025797    0.033217
    96   66    0.024007    0.034211
    96   67    0.022203    0.035090
    96   68    0.020281    0.035924
    96   69    0.018342    0.036657
    96   70    0.016377    0.037312
    96   71    0.014393    0.037868
    96   72    0.012348    0.038362
    96   73    0.010268    0.038756
    96   74    0.008199    0.039056
    96   75    0.006076    0.039251
    96   76    0.004009    0.039411
    97    1   -0.000033   -0.038236
    97    2    0.001451   -0.038216
    97    3    0.002921   -0.038143
    97    4    0.004401   -0.038039
    97    5    0.005870   -0.037882
    97    6    0.007337   -0.037683
    97    7    0.008807   -0.037438
    97    8    0.010262   -0.037151
    97    9    0.011702   -0.036816
    97   10    0.013144   -0.036436
    97   11    0.014562   -0.036006
    97   12    0.015977   -0.035531
    97   13    0.017368   -0.035015
    97   14    0.018754   -0.034453
    97   15    0.020118   -0.033842
    97   16    0.021450   -0.033182
    97   17    0.022770   -0.032486
    97   18    0.024059   -0.031736
    97   19    0.025338   -0.030941
    97   20    0.026578   -0.030098
    97   21    0.027768   -0.029215
    97   22    0.028959   -0.028281
    97   23    0.030094   -0.027308
    97   24    0.031200   -0.026285
    97   25    0.032257   -0.025229
    97   26    0.033290   -0.024124
    97   27    0.034260   -0.022978
    97   28    0.035198   -0.021785
    97   29    0.036084   -0.020566
    97   30    0.036912   -0.019304
    97   31    0.037695   -0.018009
    97   32    0.038421   -0.016671
    97   33    0.039077   -0.015311
    97   34    0.039694   -0.013914
    97   35    0.040238   -0.012490
    97   36    0.040729   -0.011041
    97   37    0.041150   -0.009566
    97   38    0.041506   -0.008064
    97   39    0.041783   -0.006554
    97   40    0.042005   -0.005017
    97   41    0.042140   -0.003470
    97   42    0.042232   -0.001909
    97   43    0.042217   -0.000342
    97   44    0.042154    0.001232
    97   45    0.042002    0.002807
    97   46    0.041780    0.004392
    97   47    0.041462    0.005956
    97   48    0.041093    0.007529
    97   49    0.040634    0.009079
    97   50    0.040105    0.010634
    97   51    0.039486    0.012154
    97   52    0.038804    0.013666
    97   53    0.038062    0.015136
    97   54    0.037226    0.016611
    97   55    0.036302    0.018023
    97   56    0.035324    0.019428
    97   57    0.034261    0.020773
    97   58    0.033141    0.022103
    97   59    0.031954    0.023370
    97   60    0.030684    0.024587
    97   61    0.029373    0.025763
    97   62    0.027990    0.026898
    97   63    0.026529    0.027938
    97   64    0.025012    0.028957
    97   65    0.023462    0.029881
    97   66    0.021861    0.030768
    97   67    0.020169    0.031559
    97   68    0.018482    0.032301
    97   69    0.016746    0.032949
    97   70    0.014985    0.033534
    97   71    0.013172    0.034023
    97   72    0.011338    0.034459
    97   73    0.009459    0.034784
    97   74    0.007572    0.035061
    97   75    0.005699    0.035228
    97   76    0.003769    0.035278
    98    1   -0.000036   -0.035387
    98    2    0.001334   -0.035368
    98    3    0.002703   -0.035300
    98    4    0.004077   -0.035195
    98    5    0.005437   -0.035048
    98    6    0.006797   -0.034862
    98    7    0.008152   -0.034628
    98    8    0.009486   -0.034358
    98    9    0.010822   -0.034038
    98   10    0.012149   -0.033682
    98   11    0.013466   -0.033282
    98   12    0.014764   -0.032840
    98   13    0.016048   -0.032352
    98   14    0.017314   -0.031829
    98   15    0.018576   -0.031252
    98   16    0.019795   -0.030637
    98   17    0.021000   -0.029980
    98   18    0.022196   -0.029279
    98   19    0.023345   -0.028540
    98   20    0.024480   -0.027762
    98   21    0.025583   -0.026935
    98   22    0.026662   -0.026066
    98   23    0.027695   -0.025162
    98   24    0.028701   -0.024224
    98   25    0.029661   -0.023235
    98   26    0.030601   -0.022218
    98   27    0.031483   -0.021159
    98   28    0.032322   -0.020061
    98   29    0.033116   -0.018934
    98   30    0.033873   -0.017773
    98   31    0.034585   -0.016580
    98   32    0.035221   -0.015351
    98   33    0.035825   -0.014103
    98   34    0.036368   -0.012822
    98   35    0.036857   -0.011522
    98   36    0.037281   -0.010183
    98   37    0.037657   -0.008837
    98   38    0.037969   -0.007467
    98   39    0.038211   -0.006085
    98   40    0.038390   -0.004686
    98   41    0.038516   -0.003273
    98   42    0.038556   -0.001857
    98   43    0.038543   -0.000425
    98   44    0.038475    0.001009
    98   45    0.038319    0.002441
    98   46    0.038111    0.003879
    98   47    0.037821    0.005300
    98   48    0.037462    0.006728
    98   49    0.037047    0.008126
    98   50    0.036552    0.009543
    98   51    0.035982    0.010910
    98   52    0.035350    0.012279
    98   53    0.034643    0.013613
    98   54    0.033889    0.014937
    98   55    0.033059    0.016224
    98   56    0.032157    0.017489
    98   57    0.031186    0.018695
    98   58    0.030161    0.019888
    98   59    0.029078    0.021022
    98   60    0.027938    0.022133
    98   61    0.026738    0.023172
    98   62    0.025467    0.024182
    98   63    0.024142    0.025125
    98   64    0.022781    0.026037
    98   65    0.021378    0.026867
    98   66    0.019923    0.027651
    98   67    0.018421    0.028359
    98   68    0.016884    0.029010
    98   69    0.015326    0.029585
    98   70    0.013711    0.030115
    98   71    0.012074    0.030553
    98   72    0.010426    0.030937
    98   73    0.008746    0.031234
    98   74    0.007064    0.031473
    98   75    0.005339    0.031632
    98   76    0.003664    0.031696
    99    1   -0.000029   -0.032749
    99    2    0.001224   -0.032728
    99    3    0.002503   -0.032671
    99    4    0.003763   -0.032572
    99    5    0.005028   -0.032435
    99    6    0.006276   -0.032258
    99    7    0.007545   -0.032041
    99    8    0.008775   -0.031776
    99    9    0.009999   -0.031484
    99   10    0.011225   -0.031152
    99   11    0.012437   -0.030773
    99   12    0.013634   -0.030359
    99   13    0.014819   -0.029903
    99   14    0.015984   -0.029405
    99   15    0.017132   -0.028875
    99   16    0.018258   -0.028304
    99   17    0.019372   -0.027686
    99   18    0.020451   -0.027038
    99   19    0.021516   -0.026349
    99   20    0.022549   -0.025623
    99   21    0.023560   -0.024854
    99   22    0.024538   -0.024051
    99   23    0.025479   -0.023213
    99   24    0.026400   -0.022338
    99   25    0.027275   -0.021432
    99   26    0.028121   -0.020484
    99   27    0.028922   -0.019505
    99   28    0.029682   -0.018499
    99   29    0.030402   -0.017464
    99   30    0.031091   -0.016391
    99   31    0.031717   -0.015296
    99   32    0.032304   -0.014166
    99   33    0.032842   -0.013021
    99   34    0.033321   -0.011845
    99   35    0.033760   -0.010650
    99   36    0.034140   -0.009431
    99   37    0.034471   -0.008202
    99   38    0.034733   -0.006947
    99   39    0.034948   -0.005685
    99   40    0.035109   -0.004407
    99   41    0.035203   -0.003124
    99   42    0.035247   -0.001824
    99   43    0.035220   -0.000528
    99   44    0.035145    0.000779
    99   45    0.034991    0.002079
    99   46    0.034780    0.003387
    99   47    0.034507    0.004677
    99   48    0.034184    0.005973
    99   49    0.033790    0.007246
    99   50    0.033331    0.008516
    99   51    0.032809    0.009763
    99   52    0.032227    0.011007
    99   53    0.031576    0.012207
    99   54    0.030880    0.013402
    99   55    0.030121    0.014562
    99   56    0.029308    0.015698
    99   57    0.028414    0.016790
    99   58    0.027479    0.017868
    99   59    0.026496    0.018891
    99   60    0.025459    0.019888
    99   61    0.024376    0.020820
    99   62    0.023228    0.021728
    99   63    0.022032    0.022580
    99   64    0.020783    0.023391
    99   65    0.019496    0.024130
    99   66    0.018207    0.024837
    99   67    0.016865    0.025464
    99   68    0.015462    0.026059
    99   69    0.014037    0.026563
    99   70    0.012578    0.027034
    99   71    0.011119    0.027416
    99   72    0.009628    0.027749
    99   73    0.008099    0.028020
    99   74    0.006596    0.028225
    99   75    0.005066    0.028351
    99   76    0.003583    0.028400
   100    1   -0.000039   -0.030308
   100    2    0.001150   -0.030264
   100    3    0.002314   -0.030237
   100    4    0.003480   -0.030140
   100    5    0.004643   -0.030010
   100    6    0.005809   -0.029862
   100    7    0.006948   -0.029640
   100    8    0.008101   -0.029402
   100    9    0.009239   -0.029128
   100   10    0.010354   -0.028818
   100   11    0.011470   -0.028461
   100   12    0.012574   -0.028062
   100   13    0.013670   -0.027647
   100   14    0.014739   -0.027184
   100   15    0.015797   -0.026688
   100   16    0.016834   -0.026142
   100   17    0.017855   -0.025586
   100   18    0.018861   -0.024961
   100   19    0.019817   -0.024336
   100   20    0.020762   -0.023666
   100   21    0.021676   -0.022954
   100   22    0.022584   -0.022206
   100   23    0.023443   -0.021434
   100   24    0.024279   -0.020617
   100   25    0.025072   -0.019787
   100   26    0.025847   -0.018912
   100   27    0.026564   -0.018019
   100   28    0.027281   -0.017074
   100   29    0.027918   -0.016123
   100   30    0.028540   -0.015139
   100   31    0.029095   -0.014135
   100   32    0.029621   -0.013102
   100   33    0.030108   -0.012048
   100   34    0.030544   -0.010970
   100   35    0.030929   -0.009880
   100   36    0.031279   -0.008760
   100   37    0.031564   -0.007637
   100   38    0.031808   -0.006489
   100   39    0.031989   -0.005338
   100   40    0.032132   -0.004169
   100   41    0.032204   -0.002998
   100   42    0.032230   -0.001813
   100   43    0.032203   -0.000634
   100   44    0.032113    0.000552
   100   45    0.031970    0.001735
   100   46    0.031778    0.002921
   100   47    0.031521    0.004095
   100   48    0.031213    0.005265
   100   49    0.030846    0.006427
   100   50    0.030419    0.007584
   100   51    0.029938    0.008706
   100   52    0.029409    0.009818
   100   53    0.028815    0.010918
   100   54    0.028171    0.011989
   100   55    0.027474    0.013047
   100   56    0.026730    0.014056
   100   57    0.025919    0.015064
   100   58    0.025097    0.016014
   100   59    0.024172    0.016947
   100   60    0.023231    0.017835
   100   61    0.022248    0.018691
   100   62    0.021207    0.019501
   100   63    0.020122    0.020268
   100   64    0.019007    0.020979
   100   65    0.017853    0.021665
   100   66    0.016660    0.022286
   100   67    0.015437    0.022860
   100   68    0.014199    0.023374
   100   69    0.012883    0.023851
   100   70    0.011591    0.024254
   100   71    0.010267    0.024603
   100   72    0.008896    0.024899
   100   73    0.007523    0.025127
   100   74    0.006198    0.025289
   100   75    0.004834    0.025429
   100   76    0.003521    0.025446
   101    1    0.000006   -0.028091
   101    2    0.001106   -0.028109
   101    3    0.002155   -0.028036
   101    4    0.003186   -0.027957
   101    5    0.004271   -0.027823
   101    6    0.005307   -0.027724
   101    7    0.006288   -0.027480
   101    8    0.007500   -0.027269
   101    9    0.008492   -0.026981
   101   10    0.009556   -0.026712
   101   11    0.010612   -0.026384
   101   12    0.011674   -0.026022
   101   13    0.012627   -0.025622
   101   14    0.013594   -0.025220
   101   15    0.014533   -0.024717
   101   16    0.015548   -0.024204
   101   17    0.016444   -0.023673
   101   18    0.017361   -0.023123
   101   19    0.018230   -0.022525
   101   20    0.019219   -0.021910
   101   21    0.019981   -0.021243
   101   22    0.020752   -0.020547
   101   23    0.021569   -0.019778
   101   24    0.022328   -0.019116
   101   25    0.022950   -0.018275
   101   26    0.023786   -0.017505
   101   27    0.024486   -0.016690
   101   28    0.024976   -0.015842
   101   29    0.025634   -0.014922
   101   30    0.026208   -0.014032
   101   31    0.026685   -0.013098
   101   32    0.027167   -0.012184
   101   33    0.027647   -0.011192
   101   34    0.027980   -0.010177
   101   35    0.028371   -0.009204
   101   36    0.028662   -0.008174
   101   37    0.028906   -0.007144
   101   38    0.029122   -0.006100
   101   39    0.029287   -0.005044
   101   40    0.029397   -0.003975
   101   41    0.029463   -0.002907
   101   42    0.029477   -0.001826
   101   43    0.029452   -0.000754
   101   44    0.029365    0.000340
   101   45    0.029231    0.001405
   101   46    0.029058    0.002501
   101   47    0.028806    0.003542
   101   48    0.028521    0.004592
   101   49    0.028216    0.005644
   101   50    0.027807    0.006712
   101   51    0.027345    0.007747
   101   52    0.026843    0.008766
   101   53    0.026354    0.009736
   101   54    0.025656    0.010737
   101   55    0.025071    0.011673
   101   56    0.024401    0.012616
   101   57    0.023647    0.013470
   101   58    0.022955    0.014373
   101   59    0.022105    0.015194
   101   60    0.021265    0.016038
   101   61    0.020337    0.016781
   101   62    0.019395    0.017537
   101   63    0.018396    0.018210
   101   64    0.017391    0.018849
   101   65    0.016399    0.019457
   101   66    0.015251    0.020052
   101   67    0.014164    0.020536
   101   68    0.013011    0.021030
   101   69    0.011904    0.021435
   101   70    0.010703    0.021828
   101   71    0.009489    0.022124
   101   72    0.008275    0.022401
   101   73    0.007080    0.022559
   101   74    0.005859    0.022762
   101   75    0.004546    0.022872
   101   76    0.003336    0.023058
   102    1    0.000047   -0.025498
   102    2    0.000980   -0.025304
   102    3    0.001880   -0.025482
   102    4    0.002937   -0.025292
   102    5    0.004025   -0.025450
   102    6    0.004992   -0.024922
   102    7    0.006037   -0.024953
   102    8    0.006893   -0.024555
   102    9    0.007898   -0.024477
   102   10    0.008953   -0.024107
   102   11    0.009840   -0.024005
   102   12    0.010728   -0.023569
   102   13    0.011644   -0.023248
   102   14    0.012466   -0.022714
   102   15    0.013501   -0.022445
   102   16    0.014231   -0.021837
   102   17    0.015079   -0.021416
   102   18    0.016112   -0.020839
   102   19    0.016882   -0.020406
   102   20    0.017550   -0.019766
   102   21    0.018435   -0.019325
   102   22    0.019146   -0.018497
   102   23    0.019842   -0.017971
   102   24    0.020439   -0.017214
   102   25    0.021306   -0.016606
   102   26    0.021906   -0.015820
   102   27    0.022562   -0.015118
   102   28    0.022927   -0.014260
   102   29    0.023601   -0.013613
   102   30    0.024044   -0.012681
   102   31    0.024485   -0.011901
   102   32    0.024987   -0.011035
   102   33    0.025332   -0.010175
   102   34    0.025709   -0.009286
   102   35    0.026011   -0.008410
   102   36    0.026301   -0.007488
   102   37    0.026519   -0.006593
   102   38    0.026723   -0.005640
   102   39    0.026858   -0.004715
   102   40    0.026964   -0.003741
   102   41    0.026989   -0.002815
   102   42    0.027019   -0.001854
   102   43    0.026966   -0.000900
   102   44    0.026911    0.000076
   102   45    0.026773    0.001034
   102   46    0.026597    0.001936
   102   47    0.026350    0.002900
   102   48    0.026112    0.003775
   102   49    0.025808    0.004751
   102   50    0.025399    0.005684
   102   51    0.024977    0.006615
   102   52    0.024505    0.007522
   102   53    0.023974    0.008404
   102   54    0.023594    0.009300
   102   55    0.022977    0.010025
   102   56    0.022186    0.010906
   102   57    0.021666    0.011673
   102   58    0.020939    0.012475
   102   59    0.020045    0.013197
   102   60    0.019417    0.013935
   102   61    0.018356    0.014691
   102   62    0.017755    0.015389
   102   63    0.016816    0.015787
   102   64    0.015929    0.016299
   102   65    0.014903    0.016919
   102   66    0.014025    0.017384
   102   67    0.013121    0.017819
   102   68    0.011970    0.018295
   102   69    0.011034    0.018610
   102   70    0.009786    0.019007
   102   71    0.008472    0.019306
   102   72    0.007728    0.019507
   102   73    0.006550    0.019701
   102   74    0.005390    0.019800
   102   75    0.004327    0.019929
   102   76    0.003030    0.019973
   103    1   -0.000336   -0.022976
   103    2    0.000644   -0.023193
   103    3    0.001361   -0.022995
   103    4    0.002620   -0.023001
   103    5    0.003311   -0.022686
   103    6    0.004484   -0.022816
   103    7    0.005165   -0.022514
   103    8    0.006181   -0.022437
   103    9    0.006851   -0.022017
   103   10    0.008033   -0.022041
   103   11    0.008703   -0.021625
   103   12    0.009767   -0.021408
   103   13    0.010370   -0.020889
   103   14    0.011237   -0.020781
   103   15    0.011862   -0.020249
   103   16    0.012967   -0.019933
   103   17    0.013557   -0.019323
   103   18    0.014682   -0.019048
   103   19    0.015266   -0.018405
   103   20    0.016069   -0.018008
   103   21    0.016598   -0.017299
   103   22    0.017504   -0.016990
   103   23    0.018012   -0.016345
   103   24    0.018913   -0.015795
   103   25    0.019362   -0.015077
   103   26    0.019981   -0.014544
   103   27    0.020413   -0.013786
   103   28    0.021220   -0.013066
   103   29    0.021576   -0.012222
   103   30    0.022173   -0.011661
   103   31    0.022527   -0.010817
   103   32    0.022850   -0.010146
   103   33    0.023123   -0.009295
   103   34    0.023542   -0.008600
   103   35    0.023780   -0.007743
   103   36    0.024120   -0.006945
   103   37    0.024293   -0.006042
   103   38    0.024510   -0.005268
   103   39    0.024611   -0.004387
   103   40    0.024758   -0.003603
   103   41    0.024809   -0.002727
   103   42    0.024814   -0.001876
   103   43    0.024791   -0.000997
   103   44    0.024696   -0.000167
   103   45    0.024601    0.000702
   103   46    0.024468    0.001560
   103   47    0.024313    0.002408
   103   48    0.024051    0.003240
   103   49    0.023837    0.004059
   103   50    0.023435    0.004883
   103   51    0.023174    0.005685
   103   52    0.022590    0.006447
   103   53    0.022250    0.007172
   103   54    0.021694    0.008074
   103   55    0.021228    0.008811
   103   56    0.020514    0.009529
   103   57    0.019976    0.010174
   103   58    0.019209    0.011068
   103   59    0.018592    0.011756
   103   60    0.018048    0.012196
   103   61    0.017468    0.012745
   103   62    0.016407    0.013417
   103   63    0.015675    0.013952
   103   64    0.014911    0.014379
   103   65    0.014140    0.014748
   103   66    0.013023    0.015544
   103   67    0.012134    0.015953
   103   68    0.011337    0.016086
   103   69    0.010535    0.016323
   103   70    0.009241    0.016694
   103   71    0.008347    0.016869
   103   72    0.007083    0.017258
   103   73    0.006137    0.017419
   103   74    0.005242    0.017556
   103   75    0.004277    0.017615
   103   76    0.003156    0.017693
   104    1   -0.000277   -0.021912
   104    2    0.000849   -0.021940
   104    3    0.001499   -0.021921
   104    4    0.002440   -0.021810
   104    5    0.003109   -0.021668
   104    6    0.004159   -0.021577
   104    7    0.004794   -0.021390
   104    8    0.005834   -0.021284
   104    9    0.006458   -0.021096
   104   10    0.007545   -0.020844
   104   11    0.008160   -0.020612
   104   12    0.009158   -0.020287
   104   13    0.009771   -0.019992
   104   14    0.010676   -0.019626
   104   15    0.011250   -0.019280
   104   16    0.012181   -0.018919
   104   17    0.012737   -0.018532
   104   18    0.013607   -0.018017
   104   19    0.014113   -0.017571
   104   20    0.014984   -0.017108
   104   21    0.015482   -0.016623
   104   22    0.016240   -0.016056
   104   23    0.016714   -0.015531
   104   24    0.017426   -0.014956
   104   25    0.017862   -0.014375
   104   26    0.018553   -0.013730
   104   27    0.018945   -0.013103
   104   28    0.019540   -0.012396
   104   29    0.019883   -0.011721
   104   30    0.020392   -0.011091
   104   31    0.020697   -0.010389
   104   32    0.021146   -0.009658
   104   33    0.021398   -0.008928
   104   34    0.021748   -0.008172
   104   35    0.021942   -0.007418
   104   36    0.022235   -0.006647
   104   37    0.022372   -0.005870
   104   38    0.022576   -0.005101
   104   39    0.022663   -0.004308
   104   40    0.022761   -0.003514
   104   41    0.022791   -0.002711
   104   42    0.022803   -0.001916
   104   43    0.022774   -0.001110
   104   44    0.022686   -0.000317
   104   45    0.022596    0.000491
   104   46    0.022450    0.001285
   104   47    0.022300    0.002086
   104   48    0.022023    0.002862
   104   49    0.021822    0.003650
   104   50    0.021432    0.004384
   104   51    0.021173    0.005150
   104   52    0.020705    0.005895
   104   53    0.020369    0.006638
   104   54    0.019846    0.007325
   104   55    0.019461    0.008034
   104   56    0.018803    0.008667
   104   57    0.018368    0.009346
   104   58    0.017705    0.009940
   104   59    0.017235    0.010564
   104   60    0.016390    0.011150
   104   61    0.015845    0.011725
   104   62    0.014954    0.012204
   104   63    0.014394    0.012716
   104   64    0.013537    0.013214
   104   65    0.012914    0.013672
   104   66    0.011967    0.014004
   104   67    0.011309    0.014387
   104   68    0.010383    0.014686
   104   69    0.009708    0.014980
   104   70    0.008560    0.015355
   104   71    0.007852    0.015604
   104   72    0.006808    0.015742
   104   73    0.006062    0.015902
   104   74    0.004931    0.016000
   104   75    0.004168    0.016096
   104   76    0.003072    0.016067
   105    1   -0.000157   -0.020653
   105    2    0.000725   -0.020645
   105    3    0.001536   -0.020609
   105    4    0.002275   -0.020540
   105    5    0.003121   -0.020444
   105    6    0.003840   -0.020330
   105    7    0.004639   -0.020194
   105    8    0.005359   -0.020046
   105    9    0.006183   -0.019828
   105   10    0.006873   -0.019644
   105   11    0.007711   -0.019354
   105   12    0.008380   -0.019094
   105   13    0.009178   -0.018805
   105   14    0.009837   -0.018491
   105   15    0.010585   -0.018143
   105   16    0.011216   -0.017785
   105   17    0.011888   -0.017397
   105   18    0.012495   -0.016990
   105   19    0.013230   -0.016549
   105   20    0.013787   -0.016106
   105   21    0.014413   -0.015626
   105   22    0.014961   -0.015158
   105   23    0.015555   -0.014611
   105   24    0.016049   -0.014090
   105   25    0.016583   -0.013511
   105   26    0.017029   -0.012934
   105   27    0.017482   -0.012333
   105   28    0.017880   -0.011726
   105   29    0.018389   -0.011115
   105   30    0.018741   -0.010469
   105   31    0.019112   -0.009812
   105   32    0.019409   -0.009139
   105   33    0.019717   -0.008451
   105   34    0.019957   -0.007758
   105   35    0.020244   -0.007051
   105   36    0.020421   -0.006336
   105   37    0.020597   -0.005623
   105   38    0.020719   -0.004894
   105   39    0.020829   -0.004167
   105   40    0.020888   -0.003424
   105   41    0.020924   -0.002689
   105   42    0.020925   -0.001937
   105   43    0.020898   -0.001200
   105   44    0.020829   -0.000452
   105   45    0.020707    0.000274
   105   46    0.020576    0.001022
   105   47    0.020395    0.001735
   105   48    0.020202    0.002470
   105   49    0.019932    0.003180
   105   50    0.019671    0.003899
   105   51    0.019348    0.004567
   105   52    0.019035    0.005265
   105   53    0.018608    0.005933
   105   54    0.018231    0.006611
   105   55    0.017756    0.007213
   105   56    0.017336    0.007845
   105   57    0.016768    0.008443
   105   58    0.016277    0.009034
   105   59    0.015677    0.009566
   105   60    0.015145    0.010102
   105   61    0.014437    0.010609
   105   62    0.013852    0.011118
   105   63    0.013093    0.011550
   105   64    0.012477    0.011998
   105   65    0.011838    0.012380
   105   66    0.011169    0.012783
   105   67    0.010266    0.013091
   105   68    0.009566    0.013419
   105   69    0.008711    0.013660
   105   70    0.008000    0.013921
   105   71    0.007093    0.014138
   105   72    0.006345    0.014323
   105   73    0.005582    0.014446
   105   74    0.004832    0.014557
   105   75    0.003823    0.014564
   105   76    0.003082    0.014613
   106    1   -0.000036   -0.019190
   106    2    0.000710   -0.019174
   106    3    0.001423   -0.019143
   106    4    0.002162   -0.019076
   106    5    0.002868   -0.018998
   106    6    0.003597   -0.018891
   106    7    0.004297   -0.018759
   106    8    0.005025   -0.018600
   106    9    0.005715   -0.018436
   106   10    0.006418   -0.018218
   106   11    0.007086   -0.017995
   106   12    0.007792   -0.017749
   106   13    0.008441   -0.017477
   106   14    0.009110   -0.017181
   106   15    0.009741   -0.016861
   106   16    0.010388   -0.016531
   106   17    0.010988   -0.016178
   106   18    0.011557   -0.015795
   106   19    0.012131   -0.015396
   106   20    0.012711   -0.014974
   106   21    0.013246   -0.014531
   106   22    0.013807   -0.014073
   106   23    0.014312   -0.013600
   106   24    0.014804   -0.013102
   106   25    0.015259   -0.012589
   106   26    0.015705   -0.012056
   106   27    0.016119   -0.011506
   106   28    0.016534   -0.010952
   106   29    0.016902   -0.010375
   106   30    0.017254   -0.009790
   106   31    0.017569   -0.009185
   106   32    0.017889   -0.008561
   106   33    0.018151   -0.007930
   106   34    0.018373   -0.007303
   106   35    0.018579   -0.006650
   106   36    0.018783   -0.006008
   106   37    0.018928   -0.005343
   106   38    0.019040   -0.004684
   106   39    0.019129   -0.004007
   106   40    0.019200   -0.003336
   106   41    0.019229   -0.002651
   106   42    0.019229   -0.001982
   106   43    0.019195   -0.001295
   106   44    0.019122   -0.000625
   106   45    0.019023    0.000057
   106   46    0.018891    0.000716
   106   47    0.018732    0.001392
   106   48    0.018535    0.002039
   106   49    0.018315    0.002702
   106   50    0.018060    0.003335
   106   51    0.017778    0.003979
   106   52    0.017446    0.004590
   106   53    0.017106    0.005212
   106   54    0.016736    0.005792
   106   55    0.016340    0.006383
   106   56    0.015884    0.006943
   106   57    0.015430    0.007501
   106   58    0.014944    0.008003
   106   59    0.014445    0.008519
   106   60    0.013864    0.008993
   106   61    0.013318    0.009468
   106   62    0.012707    0.009902
   106   63    0.012109    0.010328
   106   64    0.011490    0.010697
   106   65    0.010846    0.011078
   106   66    0.010209    0.011401
   106   67    0.009547    0.011721
   106   68    0.008806    0.011979
   106   69    0.008126    0.012240
   106   70    0.007413    0.012438
   106   71    0.006705    0.012634
   106   72    0.005934    0.012790
   106   73    0.005209    0.012929
   106   74    0.004462    0.013006
   106   75    0.003727    0.013087
   106   76    0.002987    0.013149
   107    1   -0.000032   -0.017785
   107    2    0.000633   -0.017778
   107    3    0.001316   -0.017740
   107    4    0.001979   -0.017686
   107    5    0.002649   -0.017605
   107    6    0.003304   -0.017510
   107    7    0.003972   -0.017383
   107    8    0.004617   -0.017243
   107    9    0.005273   -0.017077
   107   10    0.005908   -0.016892
   107   11    0.006544   -0.016683
   107   12    0.007162   -0.016453
   107   13    0.007782   -0.016203
   107   14    0.008379   -0.015934
   107   15    0.008974   -0.015644
   107   16    0.009547   -0.015331
   107   17    0.010109   -0.015006
   107   18    0.010655   -0.014656
   107   19    0.011205   -0.014289
   107   20    0.011721   -0.013900
   107   21    0.012223   -0.013496
   107   22    0.012703   -0.013074
   107   23    0.013187   -0.012637
   107   24    0.013633   -0.012178
   107   25    0.014058   -0.011710
   107   26    0.014462   -0.011219
   107   27    0.014846   -0.010722
   107   28    0.015208   -0.010202
   107   29    0.015562   -0.009679
   107   30    0.015875   -0.009135
   107   31    0.016165   -0.008588
   107   32    0.016433   -0.008019
   107   33    0.016696   -0.007452
   107   34    0.016913   -0.006864
   107   35    0.017098   -0.006281
   107   36    0.017261   -0.005679
   107   37    0.017396   -0.005087
   107   38    0.017506   -0.004470
   107   39    0.017580   -0.003868
   107   40    0.017635   -0.003244
   107   41    0.017662   -0.002636
   107   42    0.017657   -0.002009
   107   43    0.017627   -0.001402
   107   44    0.017566   -0.000775
   107   45    0.017485   -0.000171
   107   46    0.017361    0.000448
   107   47    0.017221    0.001040
   107   48    0.017043    0.001651
   107   49    0.016817    0.002234
   107   50    0.016583    0.002831
   107   51    0.016322    0.003388
   107   52    0.016030    0.003962
   107   53    0.015718    0.004499
   107   54    0.015377    0.005051
   107   55    0.015002    0.005569
   107   56    0.014602    0.006090
   107   57    0.014172    0.006564
   107   58    0.013728    0.007052
   107   59    0.013276    0.007503
   107   60    0.012785    0.007949
   107   61    0.012272    0.008349
   107   62    0.011740    0.008761
   107   63    0.011192    0.009127
   107   64    0.010620    0.009487
   107   65    0.010049    0.009807
   107   66    0.009440    0.010117
   107   67    0.008822    0.010389
   107   68    0.008185    0.010647
   107   69    0.007558    0.010860
   107   70    0.006899    0.011062
   107   71    0.006246    0.011221
   107   72    0.005573    0.011366
   107   73    0.004907    0.011478
   107   74    0.004226    0.011567
   107   75    0.003541    0.011633
   107   76    0.002840    0.011657
   108    1   -0.000024   -0.016498
   108    2    0.000585   -0.016487
   108    3    0.001205   -0.016458
   108    4    0.001833   -0.016405
   108    5    0.002448   -0.016334
   108    6    0.003059   -0.016243
   108    7    0.003666   -0.016132
   108    8    0.004267   -0.015997
   108    9    0.004864   -0.015845
   108   10    0.005456   -0.015671
   108   11    0.006039   -0.015478
   108   12    0.006618   -0.015270
   108   13    0.007183   -0.015041
   108   14    0.007734   -0.014790
   108   15    0.008278   -0.014523
   108   16    0.008804   -0.014238
   108   17    0.009324   -0.013932
   108   18    0.009838   -0.013613
   108   19    0.010332   -0.013271
   108   20    0.010800   -0.012919
   108   21    0.011263   -0.012543
   108   22    0.011710   -0.012161
   108   23    0.012142   -0.011754
   108   24    0.012549   -0.011339
   108   25    0.012943   -0.010903
   108   26    0.013321   -0.010464
   108   27    0.013675   -0.010000
   108   28    0.014007   -0.009532
   108   29    0.014321   -0.009042
   108   30    0.014611   -0.008552
   108   31    0.014881   -0.008041
   108   32    0.015125   -0.007535
   108   33    0.015349   -0.007004
   108   34    0.015553   -0.006479
   108   35    0.015727   -0.005934
   108   36    0.015878   -0.005396
   108   37    0.016004   -0.004839
   108   38    0.016100   -0.004295
   108   39    0.016174   -0.003730
   108   40    0.016221   -0.003179
   108   41    0.016242   -0.002609
   108   42    0.016246   -0.002054
   108   43    0.016214   -0.001485
   108   44    0.016156   -0.000933
   108   45    0.016070   -0.000365
   108   46    0.015960    0.000182
   108   47    0.015820    0.000742
   108   48    0.015674    0.001275
   108   49    0.015487    0.001824
   108   50    0.015249    0.002343
   108   51    0.015005    0.002872
   108   52    0.014756    0.003372
   108   53    0.014464    0.003880
   108   54    0.014149    0.004363
   108   55    0.013805    0.004845
   108   56    0.013463    0.005295
   108   57    0.013078    0.005748
   108   58    0.012671    0.006173
   108   59    0.012240    0.006594
   108   60    0.011800    0.006982
   108   61    0.011327    0.007367
   108   62    0.010854    0.007719
   108   63    0.010348    0.008066
   108   64    0.009836    0.008375
   108   65    0.009296    0.008679
   108   66    0.008772    0.008943
   108   67    0.008202    0.009199
   108   68    0.007619    0.009420
   108   69    0.007029    0.009627
   108   70    0.006478    0.009801
   108   71    0.005871    0.009957
   108   72    0.005268    0.010082
   108   73    0.004652    0.010193
   108   74    0.004032    0.010285
   108   75    0.003377    0.010321
   108   76    0.002750    0.010357
   109    1   -0.000027   -0.015300
   109    2    0.000547   -0.015294
   109    3    0.001110   -0.015262
   109    4    0.001681   -0.015216
   109    5    0.002255   -0.015151
   109    6    0.002821   -0.015069
   109    7    0.003378   -0.014960
   109    8    0.003934   -0.014838
   109    9    0.004490   -0.014698
   109   10    0.005035   -0.014541
   109   11    0.005566   -0.014365
   109   12    0.006095   -0.014171
   109   13    0.006616   -0.013960
   109   14    0.007129   -0.013730
   109   15    0.007630   -0.013483
   109   16    0.008123   -0.013219
   109   17    0.008595   -0.012943
   109   18    0.009064   -0.012645
   109   19    0.009516   -0.012336
   109   20    0.009958   -0.012008
   109   21    0.010386   -0.011668
   109   22    0.010797   -0.011308
   109   23    0.011190   -0.010946
   109   24    0.011572   -0.010559
   109   25    0.011935   -0.010167
   109   26    0.012280   -0.009755
   109   27    0.012595   -0.009337
   109   28    0.012903   -0.008901
   109   29    0.013187   -0.008463
   109   30    0.013456   -0.008005
   109   31    0.013704   -0.007550
   109   32    0.013929   -0.007073
   109   33    0.014135   -0.006604
   109   34    0.014319   -0.006112
   109   35    0.014474   -0.005626
   109   36    0.014610   -0.005123
   109   37    0.014731   -0.004630
   109   38    0.014821   -0.004118
   109   39    0.014881   -0.003618
   109   40    0.014925   -0.003101
   109   41    0.014953   -0.002597
   109   42    0.014947   -0.002077
   109   43    0.014921   -0.001573
   109   44    0.014865   -0.001056
   109   45    0.014788   -0.000556
   109   46    0.014688   -0.000043
   109   47    0.014566    0.000446
   109   48    0.014412    0.000949
   109   49    0.014246    0.001427
   109   50    0.014048    0.001917
   109   51    0.013828    0.002375
   109   52    0.013586    0.002845
   109   53    0.013338    0.003294
   109   54    0.013046    0.003742
   109   55    0.012732    0.004165
   109   56    0.012398    0.004594
   109   57    0.012063    0.004987
   109   58    0.011690    0.005384
   109   59    0.011333    0.005750
   109   60    0.010922    0.006114
   109   61    0.010477    0.006454
   109   62    0.010026    0.006786
   109   63    0.009601    0.007078
   109   64    0.009128    0.007370
   109   65    0.008641    0.007635
   109   66    0.008134    0.007889
   109   67    0.007614    0.008110
   109   68    0.007089    0.008320
   109   69    0.006613    0.008493
   109   70    0.006063    0.008659
   109   71    0.005509    0.008798
   109   72    0.004947    0.008921
   109   73    0.004401    0.009007
   109   74    0.003832    0.009080
   109   75    0.003258    0.009132
   109   76    0.002699    0.009146
   110    1   -0.000024   -0.014195
   110    2    0.000501   -0.014186
   110    3    0.001030   -0.014161
   110    4    0.001554   -0.014117
   110    5    0.002080   -0.014058
   110    6    0.002600   -0.013979
   110    7    0.003120   -0.013887
   110    8    0.003635   -0.013770
   110    9    0.004142   -0.013638
   110   10    0.004640   -0.013497
   110   11    0.005138   -0.013335
   110   12    0.005624   -0.013156
   110   13    0.006105   -0.012961
   110   14    0.006582   -0.012751
   110   15    0.007046   -0.012524
   110   16    0.007500   -0.012284
   110   17    0.007943   -0.012027
   110   18    0.008360   -0.011759
   110   19    0.008782   -0.011471
   110   20    0.009188   -0.011173
   110   21    0.009580   -0.010857
   110   22    0.009961   -0.010535
   110   23    0.010325   -0.010194
   110   24    0.010669   -0.009846
   110   25    0.011003   -0.009479
   110   26    0.011315   -0.009110
   110   27    0.011615   -0.008721
   110   28    0.011901   -0.008333
   110   29    0.012166   -0.007925
   110   30    0.012413   -0.007515
   110   31    0.012640   -0.007088
   110   32    0.012834   -0.006664
   110   33    0.013022   -0.006223
   110   34    0.013186   -0.005791
   110   35    0.013334   -0.005340
   110   36    0.013474   -0.004889
   110   37    0.013580   -0.004425
   110   38    0.013658   -0.003972
   110   39    0.013721   -0.003503
   110   40    0.013762   -0.003046
   110   41    0.013781   -0.002573
   110   42    0.013771   -0.002115
   110   43    0.013747   -0.001642
   110   44    0.013687   -0.001188
   110   45    0.013615   -0.000717
   110   46    0.013534   -0.000270
   110   47    0.013419    0.000190
   110   48    0.013301    0.000631
   110   49    0.013140    0.001079
   110   50    0.012950    0.001507
   110   51    0.012747    0.001943
   110   52    0.012549    0.002359
   110   53    0.012302    0.002774
   110   54    0.012044    0.003164
   110   55    0.011760    0.003562
   110   56    0.011448    0.003939
   110   57    0.011127    0.004310
   110   58    0.010831    0.004652
   110   59    0.010473    0.004996
   110   60    0.010092    0.005314
   110   61    0.009700    0.005628
   110   62    0.009317    0.005918
   110   63    0.008895    0.006201
   110   64    0.008492    0.006449
   110   65    0.008046    0.006692
   110   66    0.007593    0.006909
   110   67    0.007122    0.007120
   110   68    0.006655    0.007305
   110   69    0.006162    0.007475
   110   70    0.005685    0.007612
   110   71    0.005182    0.007741
   110   72    0.004697    0.007849
   110   73    0.004181    0.007937
   110   74    0.003660    0.008006
   110   75    0.003163    0.008041
   110   76    0.002640    0.008064
   111    1   -0.000028   -0.013175
   111    2    0.000461   -0.013169
   111    3    0.000941   -0.013143
   111    4    0.001427   -0.013103
   111    5    0.001922   -0.013046
   111    6    0.002405   -0.012976
   111    7    0.002878   -0.012888
   111    8    0.003354   -0.012787
   111    9    0.003821   -0.012667
   111   10    0.004287   -0.012532
   111   11    0.004754   -0.012385
   111   12    0.005206   -0.012221
   111   13    0.005637   -0.012041
   111   14    0.006073   -0.011848
   111   15    0.006506   -0.011641
   111   16    0.006925   -0.011421
   111   17    0.007324   -0.011187
   111   18    0.007724   -0.010937
   111   19    0.008112   -0.010678
   111   20    0.008487   -0.010401
   111   21    0.008842   -0.010116
   111   22    0.009191   -0.009816
   111   23    0.009526   -0.009510
   111   24    0.009849   -0.009185
   111   25    0.010153   -0.008856
   111   26    0.010445   -0.008511
   111   27    0.010720   -0.008166
   111   28    0.010982   -0.007802
   111   29    0.011218   -0.007435
   111   30    0.011444   -0.007053
   111   31    0.011655   -0.006676
   111   32    0.011846   -0.006280
   111   33    0.012015   -0.005883
   111   34    0.012169   -0.005472
   111   35    0.012301   -0.005079
   111   36    0.012417   -0.004661
   111   37    0.012525   -0.004248
   111   38    0.012602   -0.003824
   111   39    0.012654   -0.003409
   111   40    0.012692   -0.002982
   111   41    0.012712   -0.002567
   111   42    0.012709   -0.002137
   111   43    0.012678   -0.001718
   111   44    0.012634   -0.001291
   111   45    0.012578   -0.000880
   111   46    0.012491   -0.000458
   111   47    0.012389   -0.000053
   111   48    0.012264    0.000362
   111   49    0.012127    0.000753
   111   50    0.011963    0.001153
   111   51    0.011788    0.001535
   111   52    0.011580    0.001921
   111   53    0.011378    0.002285
   111   54    0.011138    0.002652
   111   55    0.010873    0.003002
   111   56    0.010594    0.003354
   111   57    0.010311    0.003672
   111   58    0.010001    0.003996
   111   59    0.009698    0.004297
   111   60    0.009357    0.004598
   111   61    0.009024    0.004867
   111   62    0.008654    0.005136
   111   63    0.008260    0.005383
   111   64    0.007864    0.005622
   111   65    0.007487    0.005835
   111   66    0.007066    0.006040
   111   67    0.006660    0.006219
   111   68    0.006222    0.006388
   111   69    0.005800    0.006537
   111   70    0.005347    0.006674
   111   71    0.004895    0.006786
   111   72    0.004431    0.006883
   111   73    0.003988    0.006958
   111   74    0.003511    0.007017
   111   75    0.003032    0.007060
   111   76    0.002588    0.007076
   112    1   -0.000026   -0.012231
   112    2    0.000424   -0.012224
   112    3    0.000876   -0.012202
   112    4    0.001322   -0.012165
   112    5    0.001770   -0.012115
   112    6    0.002212   -0.012048
   112    7    0.002657   -0.011968
   112    8    0.003096   -0.011874
   112    9    0.003530   -0.011767
   112   10    0.003968   -0.011642
   112   11    0.004392   -0.011507
   112   12    0.004799   -0.011356
   112   13    0.005210   -0.011192
   112   14    0.005615   -0.011016
   112   15    0.006010   -0.010824
   112   16    0.006397   -0.010623
   112   17    0.006774   -0.010407
   112   18    0.007134   -0.010181
   112   19    0.007491   -0.009939
   112   20    0.007833   -0.009693
   112   21    0.008169   -0.009428
   112   22    0.008481   -0.009159
   112   23    0.008792   -0.008872
   112   24    0.009097   -0.008582
   112   25    0.009380   -0.008275
   112   26    0.009651   -0.007968
   112   27    0.009905   -0.007646
   112   28    0.010134   -0.007318
   112   29    0.010359   -0.006977
   112   30    0.010572   -0.006638
   112   31    0.010764   -0.006286
   112   32    0.010944   -0.005934
   112   33    0.011103   -0.005567
   112   34    0.011240   -0.005205
   112   35    0.011367   -0.004828
   112   36    0.011481   -0.004459
   112   37    0.011572   -0.004076
   112   38    0.011629   -0.003697
   112   39    0.011683   -0.003308
   112   40    0.011715   -0.002929
   112   41    0.011731   -0.002538
   112   42    0.011740   -0.002164
   112   43    0.011718   -0.001776
   112   44    0.011677   -0.001400
   112   45    0.011620   -0.001014
   112   46    0.011549   -0.000646
   112   47    0.011454   -0.000266
   112   48    0.011346    0.000095
   112   49    0.011216    0.000466
   112   50    0.011054    0.000818
   112   51    0.010887    0.001176
   112   52    0.010733    0.001512
   112   53    0.010529    0.001852
   112   54    0.010311    0.002170
   112   55    0.010077    0.002493
   112   56    0.009825    0.002799
   112   57    0.009557    0.003101
   112   58    0.009306    0.003388
   112   59    0.009009    0.003670
   112   60    0.008677    0.003928
   112   61    0.008352    0.004189
   112   62    0.008041    0.004428
   112   63    0.007693    0.004660
   112   64    0.007354    0.004856
   112   65    0.006985    0.005059
   112   66    0.006624    0.005238
   112   67    0.006231    0.005409
   112   68    0.005862    0.005555
   112   69    0.005455    0.005695
   112   70    0.005062    0.005812
   112   71    0.004644    0.005918
   112   72    0.004233    0.005998
   112   73    0.003804    0.006068
   112   74    0.003371    0.006122
   112   75    0.002954    0.006152
   112   76    0.002518    0.006170
   113    1   -0.000032   -0.011359
   113    2    0.000388   -0.011353
   113    3    0.000803   -0.011333
   113    4    0.001220   -0.011299
   113    5    0.001634   -0.011251
   113    6    0.002046   -0.011191
   113    7    0.002460   -0.011119
   113    8    0.002866   -0.011033
   113    9    0.003259   -0.010932
   113   10    0.003656   -0.010818
   113   11    0.004048   -0.010694
   113   12    0.004435   -0.010557
   113   13    0.004813   -0.010407
   113   14    0.005186   -0.010246
   113   15    0.005558   -0.010073
   113   16    0.005914   -0.009886
   113   17    0.006257   -0.009691
   113   18    0.006596   -0.009482
   113   19    0.006928   -0.009266
   113   20    0.007249   -0.009035
   113   21    0.007555   -0.008799
   113   22    0.007854   -0.008548
   113   23    0.008129   -0.008292
   113   24    0.008403   -0.008020
   113   25    0.008675   -0.007747
   113   26    0.008923   -0.007456
   113   27    0.009153   -0.007169
   113   28    0.009376   -0.006866
   113   29    0.009580   -0.006564
   113   30    0.009772   -0.006247
   113   31    0.009950   -0.005931
   113   32    0.010114   -0.005602
   113   33    0.010262   -0.005277
   113   34    0.010394   -0.004938
   113   35    0.010504   -0.004606
   113   36    0.010605   -0.004262
   113   37    0.010692   -0.003922
   113   38    0.010757   -0.003570
   113   39    0.010810   -0.003228
   113   40    0.010844   -0.002874
   113   41    0.010860   -0.002532
   113   42    0.010858   -0.002178
   113   43    0.010839   -0.001836
   113   44    0.010803   -0.001484
   113   45    0.010753   -0.001145
   113   46    0.010684   -0.000798
   113   47    0.010601   -0.000465
   113   48    0.010498   -0.000126
   113   49    0.010381    0.000193
   113   50    0.010245    0.000522
   113   51    0.010098    0.000834
   113   52    0.009929    0.001150
   113   53    0.009753    0.001450
   113   54    0.009556    0.001753
   113   55    0.009349    0.002034
   113   56    0.009118    0.002316
   113   57    0.008894    0.002580
   113   58    0.008637    0.002844
   113   59    0.008375    0.003088
   113   60    0.008094    0.003337
   113   61    0.007814    0.003556
   113   62    0.007511    0.003775
   113   63    0.007202    0.003977
   113   64    0.006871    0.004169
   113   65    0.006541    0.004344
   113   66    0.006195    0.004513
   113   67    0.005870    0.004659
   113   68    0.005506    0.004798
   113   69    0.005145    0.004921
   113   70    0.004768    0.005034
   113   71    0.004383    0.005121
   113   72    0.003996    0.005202
   113   73    0.003635    0.005259
   113   74    0.003243    0.005308
   113   75    0.002848    0.005341
   113   76    0.002467    0.005358
   114    1   -0.000028   -0.010551
   114    2    0.000362   -0.010544
   114    3    0.000741   -0.010529
   114    4    0.001127   -0.010496
   114    5    0.001513   -0.010454
   114    6    0.001908   -0.010398
   114    7    0.002278   -0.010334
   114    8    0.002648   -0.010251
   114    9    0.003015   -0.010161
   114   10    0.003384   -0.010058
   114   11    0.003748   -0.009945
   114   12    0.004109   -0.009818
   114   13    0.004457   -0.009683
   114   14    0.004808   -0.009534
   114   15    0.005142   -0.009379
   114   16    0.005473   -0.009205
   114   17    0.005791   -0.009031
   114   18    0.006109   -0.008837
   114   19    0.006411   -0.008640
   114   20    0.006713   -0.008430
   114   21    0.006989   -0.008215
   114   22    0.007267   -0.007986
   114   23    0.007519   -0.007751
   114   24    0.007781   -0.007504
   114   25    0.008020   -0.007257
   114   26    0.008266   -0.006995
   114   27    0.008466   -0.006729
   114   28    0.008682   -0.006457
   114   29    0.008862   -0.006182
   114   30    0.009052   -0.005892
   114   31    0.009203   -0.005602
   114   32    0.009360   -0.005306
   114   33    0.009490   -0.005010
   114   34    0.009619   -0.004704
   114   35    0.009716   -0.004399
   114   36    0.009820   -0.004091
   114   37    0.009889   -0.003781
   114   38    0.009959   -0.003462
   114   39    0.010001   -0.003148
   114   40    0.010047   -0.002833
   114   41    0.010049   -0.002521
   114   42    0.010056   -0.002200
   114   43    0.010031   -0.001888
   114   44    0.010011   -0.001570
   114   45    0.009956   -0.001261
   114   46    0.009909   -0.000951
   114   47    0.009819   -0.000649
   114   48    0.009733   -0.000343
   114   49    0.009624   -0.000041
   114   50    0.009517    0.000246
   114   51    0.009378    0.000535
   114   52    0.009222    0.000813
   114   53    0.009054    0.001095
   114   54    0.008891    0.001358
   114   55    0.008696    0.001622
   114   56    0.008503    0.001868
   114   57    0.008278    0.002115
   114   58    0.008041    0.002345
   114   59    0.007797    0.002576
   114   60    0.007565    0.002787
   114   61    0.007296    0.002994
   114   62    0.007010    0.003185
   114   63    0.006721    0.003375
   114   64    0.006435    0.003538
   114   65    0.006126    0.003700
   114   66    0.005825    0.003845
   114   67    0.005499    0.003983
   114   68    0.005186    0.004101
   114   69    0.004849    0.004215
   114   70    0.004515    0.004311
   114   71    0.004166    0.004395
   114   72    0.003835    0.004462
   114   73    0.003477    0.004519
   114   74    0.003115    0.004563
   114   75    0.002773    0.004592
   114   76    0.002409    0.004611
   115    1   -0.000030   -0.009802
   115    2    0.000333   -0.009797
   115    3    0.000685   -0.009779
   115    4    0.001045   -0.009754
   115    5    0.001403   -0.009712
   115    6    0.001764   -0.009667
   115    7    0.002110   -0.009600
   115    8    0.002451   -0.009532
   115    9    0.002798   -0.009448
   115   10    0.003135   -0.009352
   115   11    0.003473   -0.009248
   115   12    0.003807   -0.009135
   115   13    0.004134   -0.009009
   115   14    0.004455   -0.008877
   115   15    0.004772   -0.008732
   115   16    0.005068   -0.008576
   115   17    0.005373   -0.008413
   115   18    0.005660   -0.008243
   115   19    0.005945   -0.008058
   115   20    0.006217   -0.007868
   115   21    0.006481   -0.007667
   115   22    0.006729   -0.007465
   115   23    0.006990   -0.007251
   115   24    0.007210   -0.007024
   115   25    0.007437   -0.006796
   115   26    0.007658   -0.006567
   115   27    0.007857   -0.006321
   115   28    0.008042   -0.006076
   115   29    0.008221   -0.005817
   115   30    0.008384   -0.005562
   115   31    0.008537   -0.005296
   115   32    0.008668   -0.005029
   115   33    0.008808   -0.004757
   115   34    0.008910   -0.004484
   115   35    0.009011   -0.004203
   115   36    0.009095   -0.003925
   115   37    0.009180   -0.003641
   115   38    0.009228   -0.003359
   115   39    0.009278   -0.003070
   115   40    0.009308   -0.002785
   115   41    0.009337   -0.002497
   115   42    0.009324   -0.002214
   115   43    0.009319   -0.001924
   115   44    0.009283   -0.001646
   115   45    0.009251   -0.001362
   115   46    0.009190   -0.001086
   115   47    0.009130   -0.000805
   115   48    0.009034   -0.000537
   115   49    0.008950   -0.000263
   115   50    0.008841   -0.000007
   115   51    0.008724    0.000256
   115   52    0.008568    0.000506
   115   53    0.008437    0.000761
   115   54    0.008273    0.000995
   115   55    0.008099    0.001238
   115   56    0.007916    0.001460
   115   57    0.007712    0.001680
   115   58    0.007497    0.001894
   115   59    0.007279    0.002094
   115   60    0.007045    0.002292
   115   61    0.006816    0.002471
   115   62    0.006562    0.002647
   115   63    0.006312    0.002806
   115   64    0.006039    0.002963
   115   65    0.005767    0.003103
   115   66    0.005480    0.003236
   115   67    0.005207    0.003360
   115   68    0.004903    0.003472
   115   69    0.004607    0.003566
   115   70    0.004295    0.003657
   115   71    0.003975    0.003731
   115   72    0.003654    0.003796
   115   73    0.003342    0.003845
   115   74    0.003014    0.003885
   115   75    0.002684    0.003913
   115   76    0.002365    0.003924
   116    1   -0.000027   -0.009111
   116    2    0.000310   -0.009100
   116    3    0.000635   -0.009089
   116    4    0.000965   -0.009063
   116    5    0.001301   -0.009028
   116    6    0.001634   -0.008981
   116    7    0.001960   -0.008924
   116    8    0.002275   -0.008859
   116    9    0.002598   -0.008784
   116   10    0.002917   -0.008700
   116   11    0.003222   -0.008607
   116   12    0.003530   -0.008501
   116   13    0.003837   -0.008388
   116   14    0.004133   -0.008265
   116   15    0.004425   -0.008135
   116   16    0.004709   -0.007990
   116   17    0.004987   -0.007844
   116   18    0.005259   -0.007685
   116   19    0.005515   -0.007522
   116   20    0.005767   -0.007347
   116   21    0.006011   -0.007167
   116   22    0.006249   -0.006978
   116   23    0.006481   -0.006788
   116   24    0.006691   -0.006583
   116   25    0.006906   -0.006376
   116   26    0.007100   -0.006160
   116   27    0.007289   -0.005945
   116   28    0.007467   -0.005716
   116   29    0.007626   -0.005488
   116   30    0.007783   -0.005252
   116   31    0.007920   -0.005015
   116   32    0.008057   -0.004769
   116   33    0.008172   -0.004526
   116   34    0.008281   -0.004273
   116   35    0.008360   -0.004022
   116   36    0.008454   -0.003767
   116   37    0.008519   -0.003511
   116   38    0.008584   -0.003254
   116   39    0.008612   -0.002995
   116   40    0.008654   -0.002734
   116   41    0.008672   -0.002482
   116   42    0.008672   -0.002216
   116   43    0.008657   -0.001965
   116   44    0.008641   -0.001706
   116   45    0.008597   -0.001454
   116   46    0.008552   -0.001202
   116   47    0.008488   -0.000954
   116   48    0.008422   -0.000707
   116   49    0.008327   -0.000466
   116   50    0.008243   -0.000224
   116   51    0.008121    0.000006
   116   52    0.008002    0.000238
   116   53    0.007864    0.000453
   116   54    0.007722    0.000679
   116   55    0.007552    0.000883
   116   56    0.007391    0.001094
   116   57    0.007206    0.001279
   116   58    0.007006    0.001475
   116   59    0.006839    0.001658
   116   60    0.006621    0.001834
   116   61    0.006395    0.002001
   116   62    0.006160    0.002155
   116   63    0.005916    0.002304
   116   64    0.005693    0.002439
   116   65    0.005432    0.002569
   116   66    0.005164    0.002682
   116   67    0.004895    0.002793
   116   68    0.004634    0.002893
   116   69    0.004354    0.002985
   116   70    0.004073    0.003057
   116   71    0.003783    0.003127
   116   72    0.003496    0.003183
   116   73    0.003195    0.003229
   116   74    0.002888    0.003265
   116   75    0.002625    0.003286
   116   76    0.002321    0.003299
   117    1   -0.000027   -0.008463
   117    2    0.000286   -0.008460
   117    3    0.000584   -0.008444
   117    4    0.000896   -0.008422
   117    5    0.001208   -0.008390
   117    6    0.001514   -0.008349
   117    7    0.001815   -0.008296
   117    8    0.002114   -0.008237
   117    9    0.002418   -0.008168
   117   10    0.002710   -0.008094
   117   11    0.002999   -0.008006
   117   12    0.003279   -0.007911
   117   13    0.003571   -0.007809
   117   14    0.003838   -0.007698
   117   15    0.004116   -0.007576
   117   16    0.004374   -0.007450
   117   17    0.004635   -0.007313
   117   18    0.004886   -0.007173
   117   19    0.005123   -0.007020
   117   20    0.005358   -0.006864
   117   21    0.005597   -0.006698
   117   22    0.005806   -0.006531
   117   23    0.006023   -0.006352
   117   24    0.006217   -0.006171
   117   25    0.006418   -0.005981
   117   26    0.006597   -0.005790
   117   27    0.006773   -0.005589
   117   28    0.006938   -0.005384
   117   29    0.007099   -0.005176
   117   30    0.007233   -0.004963
   117   31    0.007366   -0.004746
   117   32    0.007487   -0.004529
   117   33    0.007606   -0.004304
   117   34    0.007696   -0.004082
   117   35    0.007789   -0.003851
   117   36    0.007858   -0.003621
   117   37    0.007935   -0.003388
   117   38    0.007983   -0.003160
   117   39    0.008025   -0.002924
   117   40    0.008050   -0.002693
   117   41    0.008069   -0.002454
   117   42    0.008070   -0.002225
   117   43    0.008074   -0.001992
   117   44    0.008045   -0.001766
   117   45    0.008017   -0.001532
   117   46    0.007963   -0.001304
   117   47    0.007925   -0.001082
   117   48    0.007850   -0.000861
   117   49    0.007775   -0.000640
   117   50    0.007689   -0.000431
   117   51    0.007595   -0.000217
   117   52    0.007471   -0.000017
   117   53    0.007362    0.000187
   117   54    0.007215    0.000375
   117   55    0.007073    0.000566
   117   56    0.006914    0.000749
   117   57    0.006762    0.000929
   117   58    0.006564    0.001094
   117   59    0.006405    0.001263
   117   60    0.006214    0.001409
   117   61    0.006007    0.001562
   117   62    0.005795    0.001705
   117   63    0.005585    0.001838
   117   64    0.005357    0.001963
   117   65    0.005128    0.002071
   117   66    0.004885    0.002178
   117   67    0.004654    0.002275
   117   68    0.004401    0.002365
   117   69    0.004159    0.002439
   117   70    0.003898    0.002511
   117   71    0.003637    0.002572
   117   72    0.003367    0.002624
   117   73    0.003098    0.002663
   117   74    0.002823    0.002693
   117   75    0.002546    0.002714
   117   76    0.002280    0.002722
   118    1   -0.000025   -0.007865
   118    2    0.000262   -0.007859
   118    3    0.000546   -0.007845
   118    4    0.000839   -0.007825
   118    5    0.001125   -0.007799
   118    6    0.001405   -0.007759
   118    7    0.001688   -0.007716
   118    8    0.001971   -0.007658
   118    9    0.002252   -0.007598
   118   10    0.002519   -0.007526
   118   11    0.002789   -0.007450
   118   12    0.003044   -0.007363
   118   13    0.003323   -0.007270
   118   14    0.003574   -0.007167
   118   15    0.003828   -0.007062
   118   16    0.004066   -0.006945
   118   17    0.004311   -0.006825
   118   18    0.004545   -0.006690
   118   19    0.004765   -0.006557
   118   20    0.004993   -0.006414
   118   21    0.005209   -0.006266
   118   22    0.005407   -0.006110
   118   23    0.005606   -0.005951
   118   24    0.005792   -0.005785
   118   25    0.005973   -0.005616
   118   26    0.006153   -0.005438
   118   27    0.006306   -0.005260
   118   28    0.006468   -0.005074
   118   29    0.006609   -0.004889
   118   30    0.006745   -0.004691
   118   31    0.006859   -0.004499
   118   32    0.006985   -0.004302
   118   33    0.007081   -0.004099
   118   34    0.007178   -0.003896
   118   35    0.007254   -0.003691
   118   36    0.007330   -0.003481
   118   37    0.007393   -0.003276
   118   38    0.007449   -0.003063
   118   39    0.007479   -0.002856
   118   40    0.007516   -0.002641
   118   41    0.007524   -0.002434
   118   42    0.007540   -0.002223
   118   43    0.007529   -0.002017
   118   44    0.007521   -0.001808
   118   45    0.007485   -0.001604
   118   46    0.007463   -0.001398
   118   47    0.007401   -0.001199
   118   48    0.007353   -0.000996
   118   49    0.007266   -0.000805
   118   50    0.007193   -0.000610
   118   51    0.007106   -0.000427
   118   52    0.006996   -0.000236
   118   53    0.006894   -0.000065
   118   54    0.006775    0.000113
   118   55    0.006629    0.000277
   118   56    0.006492    0.000449
   118   57    0.006348    0.000599
   118   58    0.006196    0.000757
   118   59    0.006021    0.000895
   118   60    0.005846    0.001035
   118   61    0.005658    0.001165
   118   62    0.005480    0.001296
   118   63    0.005278    0.001415
   118   64    0.005079    0.001522
   118   65    0.004864    0.001625
   118   66    0.004643    0.001717
   118   67    0.004414    0.001804
   118   68    0.004195    0.001881
   118   69    0.003959    0.001952
   118   70    0.003725    0.002009
   118   71    0.003484    0.002063
   118   72    0.003240    0.002108
   118   73    0.002987    0.002146
   118   74    0.002732    0.002177
   118   75    0.002499    0.002185
   118   76    0.002244    0.002194
   119    1   -0.000027   -0.007305
   119    2    0.000245   -0.007301
   119    3    0.000509   -0.007288
   119    4    0.000782   -0.007272
   119    5    0.001047   -0.007243
   119    6    0.001310   -0.007211
   119    7    0.001572   -0.007168
   119    8    0.001836   -0.007120
   119    9    0.002095   -0.007063
   119   10    0.002347   -0.007001
   119   11    0.002599   -0.006928
   119   12    0.002838   -0.006852
   119   13    0.003093   -0.006766
   119   14    0.003331   -0.006677
   119   15    0.003565   -0.006575
   119   16    0.003788   -0.006469
   119   17    0.004021   -0.006362
   119   18    0.004237   -0.006244
   119   19    0.004453   -0.006121
   119   20    0.004653   -0.005995
   119   21    0.004856   -0.005859
   119   22    0.005040   -0.005720
   119   23    0.005233   -0.005574
   119   24    0.005401   -0.005425
   119   25    0.005575   -0.005270
   119   26    0.005735   -0.005116
   119   27    0.005894   -0.004951
   119   28    0.006033   -0.004786
   119   29    0.006169   -0.004613
   119   30    0.006293   -0.004443
   119   31    0.006404   -0.004262
   119   32    0.006514   -0.004089
   119   33    0.006625   -0.003904
   119   34    0.006700   -0.003724
   119   35    0.006784   -0.003538
   119   36    0.006844   -0.003352
   119   37    0.006917   -0.003163
   119   38    0.006957   -0.002977
   119   39    0.006994   -0.002786
   119   40    0.007022   -0.002598
   119   41    0.007046   -0.002407
   119   42    0.007047   -0.002223
   119   43    0.007046   -0.002033
   119   44    0.007034   -0.001847
   119   45    0.007011   -0.001660
   119   46    0.006987   -0.001483
   119   47    0.006941   -0.001297
   119   48    0.006888   -0.001127
   119   49    0.006826   -0.000946
   119   50    0.006742   -0.000778
   119   51    0.006662   -0.000608
   119   52    0.006566   -0.000445
   119   53    0.006476   -0.000285
   119   54    0.006364   -0.000132
   119   55    0.006236    0.000023
   119   56    0.006109    0.000165
   119   57    0.005980    0.000310
   119   58    0.005840    0.000435
   119   59    0.005685    0.000568
   119   60    0.005514    0.000688
   119   61    0.005353    0.000811
   119   62    0.005184    0.000914
   119   63    0.004998    0.001021
   119   64    0.004813    0.001119
   119   65    0.004616    0.001210
   119   66    0.004413    0.001294
   119   67    0.004214    0.001365
   119   68    0.004000    0.001434
   119   69    0.003787    0.001497
   119   70    0.003564    0.001552
   119   71    0.003365    0.001594
   119   72    0.003139    0.001633
   119   73    0.002901    0.001664
   119   74    0.002669    0.001687
   119   75    0.002434    0.001703
   119   76    0.002208    0.001706
   120    1   -0.000024   -0.006783
   120    2    0.000222   -0.006779
   120    3    0.000480   -0.006768
   120    4    0.000728   -0.006752
   120    5    0.000976   -0.006728
   120    6    0.001219   -0.006697
   120    7    0.001469   -0.006662
   120    8    0.001714   -0.006615
   120    9    0.001957   -0.006566
   120   10    0.002196   -0.006508
   120   11    0.002428   -0.006445
   120   12    0.002664   -0.006375
   120   13    0.002889   -0.006299
   120   14    0.003120   -0.006215
   120   15    0.003333   -0.006127
   120   16    0.003545   -0.006031
   120   17    0.003756   -0.005934
   120   18    0.003963   -0.005827
   120   19    0.004162   -0.005718
   120   20    0.004353   -0.005602
   120   21    0.004537   -0.005483
   120   22    0.004719   -0.005355
   120   23    0.004890   -0.005227
   120   24    0.005057   -0.005092
   120   25    0.005212   -0.004952
   120   26    0.005368   -0.004809
   120   27    0.005509   -0.004665
   120   28    0.005643   -0.004513
   120   29    0.005767   -0.004361
   120   30    0.005886   -0.004205
   120   31    0.005992   -0.004047
   120   32    0.006100   -0.003887
   120   33    0.006197   -0.003727
   120   34    0.006280   -0.003558
   120   35    0.006346   -0.003394
   120   36    0.006420   -0.003225
   120   37    0.006476   -0.003060
   120   38    0.006522   -0.002888
   120   39    0.006549   -0.002720
   120   40    0.006589   -0.002548
   120   41    0.006601   -0.002383
   120   42    0.006616   -0.002212
   120   43    0.006608   -0.002048
   120   44    0.006604   -0.001876
   120   45    0.006575   -0.001716
   120   46    0.006561   -0.001552
   120   47    0.006515   -0.001390
   120   48    0.006475   -0.001230
   120   49    0.006413   -0.001079
   120   50    0.006352   -0.000924
   120   51    0.006265   -0.000775
   120   52    0.006192   -0.000629
   120   53    0.006095   -0.000488
   120   54    0.006000   -0.000348
   120   55    0.005878   -0.000216
   120   56    0.005777   -0.000087
   120   57    0.005652    0.000036
   120   58    0.005524    0.000155
   120   59    0.005377    0.000265
   120   60    0.005235    0.000375
   120   61    0.005073    0.000474
   120   62    0.004924    0.000575
   120   63    0.004748    0.000659
   120   64    0.004587    0.000751
   120   65    0.004409    0.000828
   120   66    0.004222    0.000900
   120   67    0.004031    0.000967
   120   68    0.003833    0.001023
   120   69    0.003632    0.001077
   120   70    0.003441    0.001123
   120   71    0.003234    0.001162
   120   72    0.003035    0.001195
   120   73    0.002821    0.001222
   120   74    0.002606    0.001244
   120   75    0.002384    0.001252
   120   76    0.002163    0.001258
   121    1   -0.000026   -0.006294
   121    2    0.000210   -0.006292
   121    3    0.000443   -0.006282
   121    4    0.000684   -0.006269
   121    5    0.000917   -0.006246
   121    6    0.001140   -0.006219
   121    7    0.001372   -0.006184
   121    8    0.001606   -0.006145
   121    9    0.001831   -0.006098
   121   10    0.002057   -0.006048
   121   11    0.002274   -0.005991
   121   12    0.002494   -0.005931
   121   13    0.002702   -0.005857
   121   14    0.002919   -0.005786
   121   15    0.003125   -0.005706
   121   16    0.003318   -0.005621
   121   17    0.003522   -0.005531
   121   18    0.003710   -0.005438
   121   19    0.003900   -0.005338
   121   20    0.004077   -0.005234
   121   21    0.004251   -0.005124
   121   22    0.004418   -0.005014
   121   23    0.004581   -0.004897
   121   24    0.004736   -0.004776
   121   25    0.004887   -0.004650
   121   26    0.005029   -0.004525
   121   27    0.005170   -0.004390
   121   28    0.005287   -0.004258
   121   29    0.005414   -0.004119
   121   30    0.005517   -0.003983
   121   31    0.005630   -0.003839
   121   32    0.005723   -0.003701
   121   33    0.005811   -0.003550
   121   34    0.005889   -0.003405
   121   35    0.005965   -0.003254
   121   36    0.006024   -0.003108
   121   37    0.006082   -0.002956
   121   38    0.006122   -0.002807
   121   39    0.006161   -0.002654
   121   40    0.006187   -0.002506
   121   41    0.006211   -0.002351
   121   42    0.006218   -0.002205
   121   43    0.006220   -0.002053
   121   44    0.006210   -0.001906
   121   45    0.006209   -0.001758
   121   46    0.006175   -0.001616
   121   47    0.006142   -0.001468
   121   48    0.006100   -0.001334
   121   49    0.006054   -0.001191
   121   50    0.005989   -0.001059
   121   51    0.005929   -0.000924
   121   52    0.005843   -0.000796
   121   53    0.005767   -0.000669
   121   54    0.005672   -0.000551
   121   55    0.005581   -0.000431
   121   56    0.005469   -0.000320
   121   57    0.005365   -0.000211
   121   58    0.005238   -0.000110
   121   59    0.005118   -0.000005
   121   60    0.004976    0.000081
   121   61    0.004846    0.000176
   121   62    0.004691    0.000254
   121   63    0.004538    0.000336
   121   64    0.004377    0.000404
   121   65    0.004212    0.000476
   121   66    0.004052    0.000538
   121   67    0.003873    0.000594
   121   68    0.003690    0.000645
   121   69    0.003511    0.000689
   121   70    0.003320    0.000728
   121   71    0.003137    0.000761
   121   72    0.002940    0.000789
   121   73    0.002749    0.000808
   121   74    0.002548    0.000824
   121   75    0.002345    0.000834
   121   76    0.002159    0.000836
   122    1   -0.000024   -0.005838
   122    2    0.000194   -0.005834
   122    3    0.000414   -0.005828
   122    4    0.000636   -0.005811
   122    5    0.000860   -0.005795
   122    6    0.001069   -0.005768
   122    7    0.001287   -0.005738
   122    8    0.001505   -0.005701
   122    9    0.001717   -0.005663
   122   10    0.001924   -0.005615
   122   11    0.002134   -0.005566
   122   12    0.002338   -0.005508
   122   13    0.002539   -0.005448
   122   14    0.002738   -0.005381
   122   15    0.002936   -0.005313
   122   16    0.003117   -0.005235
   122   17    0.003305   -0.005155
   122   18    0.003483   -0.005070
   122   19    0.003660   -0.004984
   122   20    0.003827   -0.004888
   122   21    0.003992   -0.004791
   122   22    0.004151   -0.004690
   122   23    0.004304   -0.004590
   122   24    0.004456   -0.004479
   122   25    0.004591   -0.004367
   122   26    0.004731   -0.004251
   122   27    0.004857   -0.004138
   122   28    0.004974   -0.004017
   122   29    0.005086   -0.003896
   122   30    0.005190   -0.003770
   122   31    0.005292   -0.003646
   122   32    0.005384   -0.003516
   122   33    0.005462   -0.003388
   122   34    0.005546   -0.003256
   122   35    0.005612   -0.003127
   122   36    0.005674   -0.002990
   122   37    0.005725   -0.002860
   122   38    0.005765   -0.002724
   122   39    0.005801   -0.002591
   122   40    0.005830   -0.002457
   122   41    0.005852   -0.002324
   122   42    0.005865   -0.002188
   122   43    0.005864   -0.002057
   122   44    0.005871   -0.001925
   122   45    0.005859   -0.001797
   122   46    0.005837   -0.001664
   122   47    0.005801   -0.001543
   122   48    0.005769   -0.001415
   122   49    0.005722   -0.001298
   122   50    0.005668   -0.001175
   122   51    0.005612   -0.001063
   122   52    0.005546   -0.000945
   122   53    0.005465   -0.000838
   122   54    0.005394   -0.000730
   122   55    0.005298   -0.000631
   122   56    0.005204   -0.000534
   122   57    0.005100   -0.000441
   122   58    0.004986   -0.000346
   122   59    0.004877   -0.000266
   122   60    0.004750   -0.000180
   122   61    0.004627   -0.000109
   122   62    0.004493   -0.000032
   122   63    0.004347    0.000030
   122   64    0.004195    0.000095
   122   65    0.004043    0.000147
   122   66    0.003894    0.000205
   122   67    0.003727    0.000252
   122   68    0.003557    0.000294
   122   69    0.003382    0.000331
   122   70    0.003221    0.000360
   122   71    0.003042    0.000388
   122   72    0.002871    0.000409
   122   73    0.002685    0.000427
   122   74    0.002508    0.000440
   122   75    0.002316    0.000448
   122   76    0.002123    0.000451
   123    1   -0.000026   -0.005406
   123    2    0.000183   -0.005404
   123    3    0.000390   -0.005396
   123    4    0.000597   -0.005383
   123    5    0.000803   -0.005366
   123    6    0.001007   -0.005347
   123    7    0.001213   -0.005317
   123    8    0.001416   -0.005289
   123    9    0.001615   -0.005250
   123   10    0.001812   -0.005210
   123   11    0.002000   -0.005164
   123   12    0.002204   -0.005116
   123   13    0.002393   -0.005060
   123   14    0.002577   -0.005002
   123   15    0.002759   -0.004937
   123   16    0.002935   -0.004873
   123   17    0.003117   -0.004801
   123   18    0.003280   -0.004726
   123   19    0.003442   -0.004646
   123   20    0.003601   -0.004563
   123   21    0.003769   -0.004475
   123   22    0.003909   -0.004389
   123   23    0.004056   -0.004295
   123   24    0.004197   -0.004201
   123   25    0.004330   -0.004100
   123   26    0.004455   -0.004000
   123   27    0.004574   -0.003895
   123   28    0.004687   -0.003790
   123   29    0.004798   -0.003680
   123   30    0.004893   -0.003571
   123   31    0.005000   -0.003457
   123   32    0.005076   -0.003348
   123   33    0.005160   -0.003230
   123   34    0.005232   -0.003116
   123   35    0.005304   -0.002997
   123   36    0.005355   -0.002883
   123   37    0.005410   -0.002760
   123   38    0.005440   -0.002644
   123   39    0.005487   -0.002525
   123   40    0.005504   -0.002407
   123   41    0.005537   -0.002286
   123   42    0.005543   -0.002172
   123   43    0.005551   -0.002055
   123   44    0.005554   -0.001939
   123   45    0.005545   -0.001822
   123   46    0.005530   -0.001714
   123   47    0.005505   -0.001600
   123   48    0.005469   -0.001494
   123   49    0.005430   -0.001385
   123   50    0.005378   -0.001282
   123   51    0.005330   -0.001178
   123   52    0.005270   -0.001086
   123   53    0.005209   -0.000986
   123   54    0.005136   -0.000899
   123   55    0.005051   -0.000807
   123   56    0.004962   -0.000725
   123   57    0.004865   -0.000642
   123   58    0.004764   -0.000568
   123   59    0.004669   -0.000493
   123   60    0.004550   -0.000428
   123   61    0.004434   -0.000361
   123   62    0.004314   -0.000306
   123   63    0.004182   -0.000247
   123   64    0.004038   -0.000198
   123   65    0.003902   -0.000151
   123   66    0.003760   -0.000114
   123   67    0.003604   -0.000071
   123   68    0.003444   -0.000035
   123   69    0.003288   -0.000006
   123   70    0.003120    0.000020
   123   71    0.002966    0.000037
   123   72    0.002792    0.000056
   123   73    0.002621    0.000068
   123   74    0.002442    0.000079
   123   75    0.002262    0.000087
   123   76    0.002101    0.000088
   124    1   -0.000023   -0.005001
   124    2    0.000170   -0.004998
   124    3    0.000366   -0.004992
   124    4    0.000561   -0.004980
   124    5    0.000759   -0.004966
   124    6    0.000949   -0.004945
   124    7    0.001146   -0.004923
   124    8    0.001339   -0.004893
   124    9    0.001524   -0.004863
   124   10    0.001708   -0.004826
   124   11    0.001887   -0.004786
   124   12    0.002082   -0.004740
   124   13    0.002260   -0.004695
   124   14    0.002436   -0.004642
   124   15    0.002605   -0.004586
   124   16    0.002772   -0.004527
   124   17    0.002943   -0.004466
   124   18    0.003102   -0.004397
   124   19    0.003250   -0.004328
   124   20    0.003414   -0.004255
   124   21    0.003560   -0.004181
   124   22    0.003693   -0.004101
   124   23    0.003832   -0.004019
   124   24    0.003970   -0.003935
   124   25    0.004092   -0.003848
   124   26    0.004210   -0.003757
   124   27    0.004323   -0.003667
   124   28    0.004441   -0.003573
   124   29    0.004534   -0.003479
   124   30    0.004635   -0.003379
   124   31    0.004731   -0.003282
   124   32    0.004814   -0.003181
   124   33    0.004882   -0.003081
   124   34    0.004957   -0.002977
   124   35    0.005021   -0.002876
   124   36    0.005075   -0.002771
   124   37    0.005123   -0.002668
   124   38    0.005169   -0.002563
   124   39    0.005198   -0.002461
   124   40    0.005233   -0.002354
   124   41    0.005251   -0.002255
   124   42    0.005271   -0.002149
   124   43    0.005268   -0.002049
   124   44    0.005280   -0.001947
   124   45    0.005267   -0.001848
   124   46    0.005256   -0.001750
   124   47    0.005233   -0.001652
   124   48    0.005215   -0.001556
   124   49    0.005170   -0.001465
   124   50    0.005134   -0.001373
   124   51    0.005078   -0.001288
   124   52    0.005035   -0.001199
   124   53    0.004975   -0.001124
   124   54    0.004910   -0.001040
   124   55    0.004833   -0.000969
   124   56    0.004758   -0.000892
   124   57    0.004660   -0.000829
   124   58    0.004584   -0.000762
   124   59    0.004485   -0.000705
   124   60    0.004384   -0.000648
   124   61    0.004271   -0.000598
   124   62    0.004163   -0.000547
   124   63    0.004039   -0.000509
   124   64    0.003912   -0.000467
   124   65    0.003779   -0.000434
   124   66    0.003643   -0.000400
   124   67    0.003498   -0.000375
   124   68    0.003354   -0.000348
   124   69    0.003200   -0.000327
   124   70    0.003058   -0.000307
   124   71    0.002897   -0.000293
   124   72    0.002733   -0.000279
   124   73    0.002566   -0.000268
   124   74    0.002412   -0.000264
   124   75    0.002241   -0.000260
   124   76    0.002069   -0.000257
   125    1   -0.000025   -0.004617
   125    2    0.000161   -0.004615
   125    3    0.000345   -0.004607
   125    4    0.000534   -0.004599
   125    5    0.000718   -0.004585
   125    6    0.000898   -0.004569
   125    7    0.001084   -0.004547
   125    8    0.001267   -0.004525
   125    9    0.001444   -0.004496
   125   10    0.001618   -0.004464
   125   11    0.001792   -0.004428
   125   12    0.001972   -0.004391
   125   13    0.002138   -0.004347
   125   14    0.002309   -0.004302
   125   15    0.002474   -0.004251
   125   16    0.002628   -0.004202
   125   17    0.002779   -0.004148
   125   18    0.002936   -0.004089
   125   19    0.003084   -0.004026
   125   20    0.003240   -0.003965
   125   21    0.003372   -0.003896
   125   22    0.003500   -0.003831
   125   23    0.003630   -0.003755
   125   24    0.003764   -0.003682
   125   25    0.003884   -0.003605
   125   26    0.003994   -0.003529
   125   27    0.004111   -0.003447
   125   28    0.004213   -0.003368
   125   29    0.004313   -0.003281
   125   30    0.004398   -0.003199
   125   31    0.004488   -0.003112
   125   32    0.004570   -0.003027
   125   33    0.004636   -0.002936
   125   34    0.004708   -0.002847
   125   35    0.004768   -0.002757
   125   36    0.004822   -0.002667
   125   37    0.004874   -0.002576
   125   38    0.004910   -0.002486
   125   39    0.004947   -0.002392
   125   40    0.004978   -0.002306
   125   41    0.005002   -0.002216
   125   42    0.005019   -0.002127
   125   43    0.005025   -0.002036
   125   44    0.005030   -0.001951
   125   45    0.005026   -0.001863
   125   46    0.005012   -0.001778
   125   47    0.004993   -0.001695
   125   48    0.004979   -0.001616
   125   49    0.004942   -0.001534
   125   50    0.004909   -0.001455
   125   51    0.004869   -0.001381
   125   52    0.004820   -0.001310
   125   53    0.004777   -0.001239
   125   54    0.004710   -0.001175
   125   55    0.004645   -0.001111
   125   56    0.004575   -0.001054
   125   57    0.004504   -0.000994
   125   58    0.004416   -0.000944
   125   59    0.004331   -0.000894
   125   60    0.004237   -0.000854
   125   61    0.004141   -0.000812
   125   62    0.004035   -0.000780
   125   63    0.003922   -0.000747
   125   64    0.003805   -0.000718
   125   65    0.003684   -0.000692
   125   66    0.003553   -0.000675
   125   67    0.003419   -0.000655
   125   68    0.003280   -0.000642
   125   69    0.003131   -0.000628
   125   70    0.002979   -0.000618
   125   71    0.002844   -0.000609
   125   72    0.002685   -0.000602
   125   73    0.002537   -0.000596
   125   74    0.002374   -0.000593
   125   75    0.002209   -0.000590
   125   76    0.002063   -0.000593
   126    1   -0.000022   -0.004252
   126    2    0.000150   -0.004251
   126    3    0.000328   -0.004246
   126    4    0.000506   -0.004237
   126    5    0.000682   -0.004227
   126    6    0.000854   -0.004211
   126    7    0.001032   -0.004195
   126    8    0.001203   -0.004171
   126    9    0.001373   -0.004147
   126   10    0.001543   -0.004117
   126   11    0.001703   -0.004090
   126   12    0.001869   -0.004054
   126   13    0.002033   -0.004019
   126   14    0.002193   -0.003977
   126   15    0.002350   -0.003940
   126   16    0.002503   -0.003890
   126   17    0.002644   -0.003844
   126   18    0.002790   -0.003794
   126   19    0.002934   -0.003742
   126   20    0.003076   -0.003685
   126   21    0.003206   -0.003630
   126   22    0.003335   -0.003569
   126   23    0.003454   -0.003506
   126   24    0.003584   -0.003441
   126   25    0.003696   -0.003378
   126   26    0.003801   -0.003309
   126   27    0.003912   -0.003239
   126   28    0.004010   -0.003168
   126   29    0.004107   -0.003099
   126   30    0.004187   -0.003022
   126   31    0.004277   -0.002951
   126   32    0.004354   -0.002872
   126   33    0.004417   -0.002797
   126   34    0.004486   -0.002718
   126   35    0.004544   -0.002643
   126   36    0.004603   -0.002564
   126   37    0.004649   -0.002486
   126   38    0.004693   -0.002406
   126   39    0.004720   -0.002333
   126   40    0.004755   -0.002253
   126   41    0.004777   -0.002176
   126   42    0.004794   -0.002097
   126   43    0.004804   -0.002023
   126   44    0.004808   -0.001947
   126   45    0.004809   -0.001874
   126   46    0.004802   -0.001800
   126   47    0.004783   -0.001731
   126   48    0.004777   -0.001660
   126   49    0.004740   -0.001594
   126   50    0.004716   -0.001527
   126   51    0.004677   -0.001466
   126   52    0.004643   -0.001402
   126   53    0.004598   -0.001349
   126   54    0.004543   -0.001291
   126   55    0.004480   -0.001241
   126   56    0.004422   -0.001191
   126   57    0.004354   -0.001148
   126   58    0.004279   -0.001103
   126   59    0.004201   -0.001071
   126   60    0.004121   -0.001033
   126   61    0.004028   -0.001009
   126   62    0.003934   -0.000982
   126   63    0.003828   -0.000964
   126   64    0.003724   -0.000945
   126   65    0.003611   -0.000936
   126   66    0.003486   -0.000926
   126   67    0.003364   -0.000924
   126   68    0.003222   -0.000922
   126   69    0.003087   -0.000920
   126   70    0.002940   -0.000917
   126   71    0.002785   -0.000919
   126   72    0.002656   -0.000913
   126   73    0.002498   -0.000911
   126   74    0.002368   -0.000913
   126   75    0.002209   -0.000911
   126   76    0.002053   -0.000906
   127    1   -0.000027   -0.003904
   127    2    0.000143   -0.003905
   127    3    0.000315   -0.003899
   127    4    0.000480   -0.003893
   127    5    0.000649   -0.003880
   127    6    0.000815   -0.003870
   127    7    0.000978   -0.003855
   127    8    0.001149   -0.003836
   127    9    0.001310   -0.003815
   127   10    0.001472   -0.003792
   127   11    0.001629   -0.003765
   127   12    0.001784   -0.003737
   127   13    0.001935   -0.003705
   127   14    0.002095   -0.003671
   127   15    0.002242   -0.003635
   127   16    0.002386   -0.003598
   127   17    0.002530   -0.003555
   127   18    0.002664   -0.003514
   127   19    0.002803   -0.003469
   127   20    0.002937   -0.003421
   127   21    0.003063   -0.003371
   127   22    0.003186   -0.003321
   127   23    0.003305   -0.003268
   127   24    0.003422   -0.003213
   127   25    0.003530   -0.003156
   127   26    0.003631   -0.003099
   127   27    0.003738   -0.003038
   127   28    0.003833   -0.002979
   127   29    0.003924   -0.002917
   127   30    0.004003   -0.002854
   127   31    0.004090   -0.002791
   127   32    0.004163   -0.002727
   127   33    0.004234   -0.002662
   127   34    0.004292   -0.002597
   127   35    0.004358   -0.002531
   127   36    0.004405   -0.002464
   127   37    0.004454   -0.002398
   127   38    0.004495   -0.002332
   127   39    0.004535   -0.002265
   127   40    0.004558   -0.002200
   127   41    0.004584   -0.002133
   127   42    0.004598   -0.002068
   127   43    0.004612   -0.002003
   127   44    0.004615   -0.001943
   127   45    0.004623   -0.001877
   127   46    0.004616   -0.001820
   127   47    0.004609   -0.001758
   127   48    0.004597   -0.001701
   127   49    0.004572   -0.001644
   127   50    0.004544   -0.001591
   127   51    0.004519   -0.001535
   127   52    0.004483   -0.001489
   127   53    0.004448   -0.001440
   127   54    0.004392   -0.001396
   127   55    0.004349   -0.001352
   127   56    0.004288   -0.001318
   127   57    0.004228   -0.001280
   127   58    0.004160   -0.001250
   127   59    0.004098   -0.001220
   127   60    0.004022   -0.001200
   127   61    0.003943   -0.001181
   127   62    0.003854   -0.001166
   127   63    0.003768   -0.001159
   127   64    0.003668   -0.001155
   127   65    0.003563   -0.001156
   127   66    0.003450   -0.001162
   127   67    0.003329   -0.001172
   127   68    0.003199   -0.001187
   127   69    0.003053   -0.001204
   127   70    0.002926   -0.001215
   127   71    0.002766   -0.001231
   127   72    0.002607   -0.001243
   127   73    0.002490   -0.001229
   127   74    0.002326   -0.001231
   127   75    0.002180   -0.001237
   127   76    0.002002   -0.001238
   128    1   -0.000024   -0.003574
   128    2    0.000137   -0.003570
   128    3    0.000298   -0.003569
   128    4    0.000462   -0.003561
   128    5    0.000621   -0.003553
   128    6    0.000781   -0.003543
   128    7    0.000939   -0.003531
   128    8    0.001098   -0.003514
   128    9    0.001256   -0.003498
   128   10    0.001402   -0.003478
   128   11    0.001562   -0.003457
   128   12    0.001702   -0.003433
   128   13    0.001854   -0.003404
   128   14    0.002009   -0.003376
   128   15    0.002148   -0.003347
   128   16    0.002290   -0.003313
   128   17    0.002425   -0.003280
   128   18    0.002563   -0.003244
   128   19    0.002687   -0.003207
   128   20    0.002819   -0.003165
   128   21    0.002934   -0.003127
   128   22    0.003059   -0.003082
   128   23    0.003169   -0.003038
   128   24    0.003282   -0.002994
   128   25    0.003387   -0.002946
   128   26    0.003493   -0.002897
   128   27    0.003585   -0.002849
   128   28    0.003682   -0.002797
   128   29    0.003766   -0.002747
   128   30    0.003847   -0.002693
   128   31    0.003924   -0.002641
   128   32    0.003996   -0.002586
   128   33    0.004066   -0.002531
   128   34    0.004126   -0.002478
   128   35    0.004185   -0.002421
   128   36    0.004242   -0.002367
   128   37    0.004281   -0.002312
   128   38    0.004321   -0.002253
   128   39    0.004362   -0.002200
   128   40    0.004385   -0.002143
   128   41    0.004412   -0.002091
   128   42    0.004435   -0.002036
   128   43    0.004445   -0.001983
   128   44    0.004453   -0.001930
   128   45    0.004459   -0.001880
   128   46    0.004461   -0.001829
   128   47    0.004449   -0.001781
   128   48    0.004442   -0.001733
   128   49    0.004419   -0.001686
   128   50    0.004407   -0.001638
   128   51    0.004376   -0.001601
   128   52    0.004347   -0.001556
   128   53    0.004313   -0.001522
   128   54    0.004273   -0.001482
   128   55    0.004228   -0.001454
   128   56    0.004179   -0.001422
   128   57    0.004122   -0.001399
   128   58    0.004065   -0.001376
   128   59    0.004011   -0.001358
   128   60    0.003945   -0.001340
   128   61    0.003876   -0.001335
   128   62    0.003801   -0.001328
   128   63    0.003724   -0.001334
   128   64    0.003639   -0.001339
   128   65    0.003544   -0.001353
   128   66    0.003449   -0.001373
   128   67    0.003333   -0.001400
   128   68    0.003210   -0.001434
   128   69    0.003076   -0.001469
   128   70    0.002933   -0.001515
   128   71    0.002730   -0.001537
   128   72    0.002570   -0.001566
   128   73    0.002388   -0.001592
   128   74    0.002291   -0.001559
   128   75    0.002108   -0.001563
   128   76    0.001921   -0.001551
   129    1   -0.000017   -0.003253
   129    2    0.000133   -0.003254
   129    3    0.000288   -0.003249
   129    4    0.000444   -0.003246
   129    5    0.000599   -0.003237
   129    6    0.000754   -0.003231
   129    7    0.000908   -0.003218
   129    8    0.001057   -0.003208
   129    9    0.001207   -0.003192
   129   10    0.001350   -0.003176
   129   11    0.001508   -0.003158
   129   12    0.001640   -0.003142
   129   13    0.001791   -0.003117
   129   14    0.001934   -0.003096
   129   15    0.002064   -0.003068
   129   16    0.002203   -0.003044
   129   17    0.002341   -0.003013
   129   18    0.002468   -0.002986
   129   19    0.002590   -0.002954
   129   20    0.002714   -0.002924
   129   21    0.002834   -0.002885
   129   22    0.002942   -0.002855
   129   23    0.003055   -0.002817
   129   24    0.003163   -0.002781
   129   25    0.003267   -0.002741
   129   26    0.003366   -0.002704
   129   27    0.003459   -0.002660
   129   28    0.003548   -0.002622
   129   29    0.003631   -0.002580
   129   30    0.003708   -0.002536
   129   31    0.003789   -0.002490
   129   32    0.003852   -0.002448
   129   33    0.003927   -0.002401
   129   34    0.003978   -0.002360
   129   35    0.004044   -0.002315
   129   36    0.004096   -0.002270
   129   37    0.004137   -0.002224
   129   38    0.004172   -0.002181
   129   39    0.004214   -0.002134
   129   40    0.004236   -0.002090
   129   41    0.004270   -0.002044
   129   42    0.004285   -0.002003
   129   43    0.004301   -0.001958
   129   44    0.004308   -0.001917
   129   45    0.004329   -0.001873
   129   46    0.004321   -0.001834
   129   47    0.004314   -0.001795
   129   48    0.004309   -0.001758
   129   49    0.004295   -0.001718
   129   50    0.004281   -0.001686
   129   51    0.004260   -0.001650
   129   52    0.004228   -0.001620
   129   53    0.004196   -0.001588
   129   54    0.004164   -0.001563
   129   55    0.004129   -0.001536
   129   56    0.004084   -0.001517
   129   57    0.004051   -0.001497
   129   58    0.003985   -0.001484
   129   59    0.003942   -0.001471
   129   60    0.003884   -0.001467
   129   61    0.003833   -0.001464
   129   62    0.003763   -0.001469
   129   63    0.003701   -0.001478
   129   64    0.003628   -0.001500
   129   65    0.003551   -0.001522
   129   66    0.003471   -0.001556
   129   67    0.003385   -0.001596
   129   68    0.003266   -0.001647
   129   69    0.003150   -0.001714
   129   70    0.003019   -0.001783
   129   71    0.002843   -0.001860
   129   72    0.002538   -0.001935
   129   73    0.002344   -0.001980
   129   74    0.002106   -0.002024
   129   75    0.002030   -0.001955
   129   76    0.001792   -0.001962
   130    1   -0.000020   -0.002949
   130    2    0.000132   -0.002946
   130    3    0.000280   -0.002945
   130    4    0.000420   -0.002943
   130    5    0.000577   -0.002937
   130    6    0.000733   -0.002930
   130    7    0.000876   -0.002922
   130    8    0.001018   -0.002909
   130    9    0.001165   -0.002900
   130   10    0.001297   -0.002886
   130   11    0.001457   -0.002873
   130   12    0.001597   -0.002858
   130   13    0.001731   -0.002841
   130   14    0.001886   -0.002818
   130   15    0.001994   -0.002803
   130   16    0.002135   -0.002784
   130   17    0.002263   -0.002761
   130   18    0.002389   -0.002735
   130   19    0.002503   -0.002712
   130   20    0.002630   -0.002685
   130   21    0.002743   -0.002662
   130   22    0.002851   -0.002634
   130   23    0.002953   -0.002606
   130   24    0.003062   -0.002577
   130   25    0.003161   -0.002546
   130   26    0.003244   -0.002517
   130   27    0.003346   -0.002483
   130   28    0.003435   -0.002445
   130   29    0.003515   -0.002418
   130   30    0.003606   -0.002381
   130   31    0.003670   -0.002348
   130   32    0.003745   -0.002314
   130   33    0.003804   -0.002280
   130   34    0.003868   -0.002245
   130   35    0.003917   -0.002210
   130   36    0.003968   -0.002173
   130   37    0.004012   -0.002140
   130   38    0.004058   -0.002103
   130   39    0.004087   -0.002070
   130   40    0.004116   -0.002034
   130   41    0.004144   -0.002000
   130   42    0.004171   -0.001965
   130   43    0.004175   -0.001933
   130   44    0.004197   -0.001899
   130   45    0.004208   -0.001870
   130   46    0.004205   -0.001834
   130   47    0.004199   -0.001805
   130   48    0.004195   -0.001775
   130   49    0.004185   -0.001748
   130   50    0.004170   -0.001718
   130   51    0.004154   -0.001697
   130   52    0.004131   -0.001671
   130   53    0.004099   -0.001649
   130   54    0.004078   -0.001629
   130   55    0.004041   -0.001612
   130   56    0.004008   -0.001596
   130   57    0.003979   -0.001586
   130   58    0.003934   -0.001574
   130   59    0.003886   -0.001570
   130   60    0.003845   -0.001567
   130   61    0.003795   -0.001575
   130   62    0.003750   -0.001582
   130   63    0.003691   -0.001600
   130   64    0.003644   -0.001622
   130   65    0.003574   -0.001656
   130   66    0.003522   -0.001695
   130   67    0.003451   -0.001752
   130   68    0.003375   -0.001817
   130   69    0.003271   -0.001905
   130   70    0.003173   -0.002008
   130   71    0.003013   -0.002134
   130   72    0.002801   -0.002280
   130   73    0.002366   -0.002343
   130   74    0.002148   -0.002464
   130   75    0.001838   -0.002573
   130   76    0.002168   -0.002574
   131    1   -0.000040   -0.002652
   131    2    0.000124   -0.002659
   131    3    0.000260   -0.002651
   131    4    0.000403   -0.002652
   131    5    0.000540   -0.002645
   131    6    0.000711   -0.002647
   131    7    0.000845   -0.002636
   131    8    0.000986   -0.002633
   131    9    0.001116   -0.002621
   131   10    0.001260   -0.002611
   131   11    0.001390   -0.002598
   131   12    0.001547   -0.002592
   131   13    0.001673   -0.002573
   131   14    0.001816   -0.002568
   131   15    0.001933   -0.002540
   131   16    0.002071   -0.002537
   131   17    0.002187   -0.002514
   131   18    0.002319   -0.002503
   131   19    0.002428   -0.002479
   131   20    0.002555   -0.002467
   131   21    0.002657   -0.002443
   131   22    0.002768   -0.002423
   131   23    0.002866   -0.002397
   131   24    0.002975   -0.002384
   131   25    0.003064   -0.002357
   131   26    0.003160   -0.002340
   131   27    0.003242   -0.002317
   131   28    0.003337   -0.002291
   131   29    0.003408   -0.002262
   131   30    0.003507   -0.002241
   131   31    0.003572   -0.002212
   131   32    0.003638   -0.002184
   131   33    0.003697   -0.002151
   131   34    0.003762   -0.002138
   131   35    0.003811   -0.002109
   131   36    0.003862   -0.002082
   131   37    0.003903   -0.002053
   131   38    0.003951   -0.002032
   131   39    0.003983   -0.002003
   131   40    0.004009   -0.001981
   131   41    0.004032   -0.001953
   131   42    0.004065   -0.001931
   131   43    0.004079   -0.001903
   131   44    0.004092   -0.001885
   131   45    0.004098   -0.001858
   131   46    0.004103   -0.001834
   131   47    0.004102   -0.001810
   131   48    0.004098   -0.001791
   131   49    0.004090   -0.001768
   131   50    0.004078   -0.001751
   131   51    0.004062   -0.001731
   131   52    0.004047   -0.001716
   131   53    0.004025   -0.001700
   131   54    0.004001   -0.001685
   131   55    0.003973   -0.001672
   131   56    0.003941   -0.001663
   131   57    0.003909   -0.001656
   131   58    0.003880   -0.001653
   131   59    0.003844   -0.001650
   131   60    0.003810   -0.001655
   131   61    0.003770   -0.001661
   131   62    0.003734   -0.001673
   131   63    0.003699   -0.001691
   131   64    0.003660   -0.001719
   131   65    0.003627   -0.001755
   131   66    0.003579   -0.001799
   131   67    0.003544   -0.001860
   131   68    0.003492   -0.001935
   131   69    0.003461   -0.002039
   131   70    0.003383   -0.002169
   131   71    0.003246   -0.002337
   131   72    0.003139   -0.002546
   131   73    0.002915   -0.002826
   131   74    0.002483   -0.002946
   131   75    0.002183   -0.003245
   131   76    0.001735   -0.003514
   132    1   -0.000025   -0.002413
   132    2    0.000119   -0.002416
   132    3    0.000257   -0.002412
   132    4    0.000393   -0.002410
   132    5    0.000533   -0.002404
   132    6    0.000686   -0.002402
   132    7    0.000822   -0.002395
   132    8    0.000964   -0.002393
   132    9    0.001106   -0.002391
   132   10    0.001250   -0.002377
   132   11    0.001380   -0.002373
   132   12    0.001506   -0.002369
   132   13    0.001648   -0.002360
   132   14    0.001772   -0.002348
   132   15    0.001893   -0.002337
   132   16    0.002002   -0.002326
   132   17    0.002143   -0.002318
   132   18    0.002268   -0.002299
   132   19    0.002385   -0.002291
   132   20    0.002489   -0.002275
   132   21    0.002603   -0.002262
   132   22    0.002715   -0.002247
   132   23    0.002817   -0.002234
   132   24    0.002905   -0.002219
   132   25    0.003002   -0.002202
   132   26    0.003085   -0.002184
   132   27    0.003190   -0.002177
   132   28    0.003268   -0.002154
   132   29    0.003339   -0.002134
   132   30    0.003417   -0.002116
   132   31    0.003493   -0.002098
   132   32    0.003552   -0.002081
   132   33    0.003618   -0.002065
   132   34    0.003676   -0.002043
   132   35    0.003734   -0.002029
   132   36    0.003775   -0.002008
   132   37    0.003822   -0.001990
   132   38    0.003862   -0.001971
   132   39    0.003899   -0.001950
   132   40    0.003925   -0.001934
   132   41    0.003949   -0.001915
   132   42    0.003982   -0.001896
   132   43    0.003992   -0.001881
   132   44    0.004011   -0.001864
   132   45    0.004019   -0.001846
   132   46    0.004020   -0.001831
   132   47    0.004018   -0.001817
   132   48    0.004021   -0.001798
   132   49    0.004018   -0.001787
   132   50    0.004004   -0.001772
   132   51    0.003994   -0.001761
   132   52    0.003977   -0.001748
   132   53    0.003955   -0.001737
   132   54    0.003936   -0.001728
   132   55    0.003915   -0.001722
   132   56    0.003892   -0.001715
   132   57    0.003860   -0.001710
   132   58    0.003836   -0.001709
   132   59    0.003813   -0.001713
   132   60    0.003777   -0.001717
   132   61    0.003748   -0.001725
   132   62    0.003724   -0.001738
   132   63    0.003701   -0.001756
   132   64    0.003677   -0.001782
   132   65    0.003660   -0.001817
   132   66    0.003644   -0.001863
   132   67    0.003638   -0.001924
   132   68    0.003631   -0.002003
   132   69    0.003645   -0.002112
   132   70    0.003648   -0.002261
   132   71    0.003599   -0.002453
   132   72    0.003660   -0.002730
   132   73    0.003573   -0.003122
   132   74    0.003151   -0.003611
   132   75    0.002876   -0.004197
   132   76    0.003835   -0.004896
+DECK,CONTROL_B  ,T=DATA.
*CMZU:  2.00/12 08/11/96  14.02.50  by  Phobos (R. Verdier)
*-- Author :
* CONTROL_B.TXT: benchmark control option file for the Phobos Monte Carlo
*  08-Nov-96: Update to current standard settings
*  16-May-95: Special version for benchmarking changes: 3 event pieces
*             (NTPE=3500) with SECT=1 and diagnostic histograms.
*  31-Mar-95: Change STRA to SECT to avoid a GEANT 3.21 conflict (RV)
*
*  -------- Global definitions of the events --------------------
*
*   number of events to run (cutoff only if reading events)
*   This value is overridden by an interactively specified value.
TRIG     3
*
* ----------  Magnetic field -------------------------------------------
*
*   Magnetic field description:
*   0 = no field; 1 = diagnostic field; 2 = 3-d field map; 3 = super-
*   position of dipole fields from map.  UGINIT sets default = 2.
* MAGT   2
*
* ----------  event generator control cards ----------------------------
*
*   Generation mode:
*   0 = particles read from an ascii input file
*   1 = flat distributions in p, eta, phi
*   2 = flat distributions in p, phi, theta chosen to fit to the spectrometer
*       (flat cos(theta) distribution used)
*   3 = "physical" distributions of momentum (pt*exp(-pt/REXP)),
*        eta (trapezoid from -6 to 6), flat phi
*   4 = step distributions (increasing first P, then theta, finally Z of vertex)
GEN      0
*
*   Special parameters for GEN=0 only:
*   Number of events NESK and tracks NTSK to skip at the beginning of file
*   (before any particle is given to GEANT)
*   If TRIG is greater than the number of events in the file - the file
*   can be rewound and read again if RROT is different than 0
*   The tracks are however rotated in phi by the angle RROT (degrees)
*   to make the events look different at least in spectrometer
NESK     0
NTSK     0
RROT    15.0
*
*  Multiplicity of each event (GEN=1,2,3 only)
RMUL    40
*
*  Number of arms of the spectrometer (1 or 2) that have to be considerd
*  in the case of PHI cut or generation (see RPHI).
RARM    2
*
*  Particle ID min and max.
*  GEN=0   only the particles from min to max are accepted from the input file
*  GEN=1,2,3  ID is chosen from all values from min to max
*            (in case both numbers are equal 0: pi+-, K+- and p+- are generated
*             with multiplicity about 20:1:1  pi:K:p  and  half +, half -)
*  GEN=4   ID is fixed and equal to RPID(1)
RPID    0  99
*
*  Two first numbers define the range of the momentum, third is the step
*  (the values are given in GeV/c)
*  GEN = 0:  particles with momentum outside (PLOW,PHIGH) are rejected
*  GEN = 1,2: flat momentum distribution (if PSTEP = 0.0) or
*             PLOW, PLOW+PSTEP, PLOW+2*PSTEP, ... PHIGH (if PSTEP > 0.0)
*  GEN = 3:  exponential distribution in (PLOW,PHIGH) interval is used in
*            momentum generation
*  GEN = 4:  PLOW, PLOW+PSTEP, PLOW+2*PSTEP, ... up to PHIGH
RMOM    0.001   999.0  0.0
*
*  Falloff of the exponential distribution of momentum (pt*exp(-pt/REXP))
*  REXP should be equal to mean pt (in GeV/c)
*  (valid for GEN=3 only)
REXP    0.350
*
*  The range of eta (GEN = 0, 1, 3 only)
*  only particles with eta in the given interval are simulated or generated
RETA    -20.0  20.0
*
*  Polar angle range and step (GEN=4 only)  (in degrees)
*  the values of theta are:  RANG(1), RANG(1)+RANG(3), RANG(1)+2*RANG(3) ....
RANG    20.0   60.0  10.0
*
*  Azimuth range (GEN = 0,1,2,3)  (in degrees) depending on RARM
*  RARM = 1:  only particles between (RPHI(1),RPHI(2))  are accepted
*  RARM = 2:  also particles between (RPHI(1)+180,RPHI(2)+180)  are accepted
*  for GEN = 4:  phi is fixed and equal RPHI(1)
RPHI    -360.0   360.0
*
*  These are the coordinates of particle origin central point
*  GEN = 0 the vertex is read from the input file or generated as for GEN=1,2,3
*  GEN = 1,2,3  the vertex is generated around (RBXX,RBYY,RBZZ)
*               depending on the value of RBXY (see RBXY)
*  GEN = 4 the vertex is defined as
*          (RBXX,RBYY,RBZZ), (RBXX,RBYY,RBZZ+RBDZ), (RBXX,RBYY,RBZZ+2*RBDZ), ...
RBXX    0.0
RBYY    0.0
RBZZ    0.0
*
*  Projected width of intersection region. The events are Gaussian
*  distributed about x, y = 0 (not relevant for GEN=4)
*  This is also a flag that defines the kind of vertexes distribution:
*  RBXY > 0  - means gausian in x-y plane and triangular in z
*  RBXY = 0  - means flat between: RBXX-RBDX and RBXX+RBDX, the same for y and z
*              (fixed vertex if RBDX=RBDY=RBDZ=0)
*  A good value for RBXY can be 0.045 (if not 0)
RBXY    0.0
*
*  Width of the distributions of vertex position arround RBXX,RBYY,RBZZ
*  in the case RBXY=0.0 (flat distributions are assumed)
*  For RBXY>0.0 only RBDZ is used to define the length of triangular
*  Z distribution
RBDX    0.0
RBDY    0.0
RBDZ    0.0
*
*  nominal radius of field used to calculate the theta range for GEN = 2
RMAG    15.0
*
*-------- Definition of the simulation options --------------------
*
*   seeds for random number generator
RNDM    12144 232
*
*   primary tracks to read per event
NTPE  3500
*
*   number of primary tracks to process concurrently
NTCO  1000
*
* Detector sets to be active during this run (default = '*' or 'all'):
SETS 'SPEC' 'TOFC' 'VERT' 'BARR' 'RING'
*
*-------- Definition of the output  -------------------------------
*
*   run number (used in printout, histogram labels etc.)
RUNG     13
*
*   0 = exact coord. on track, 1 = set to center of nearest pad
PIXL     0
*
*   1 = generate Ntuples, 2 = calculate errors
ANAL     1
*
* SAOU = 1: hits output to ascii file for primaries and tracks with hits,
*        2 includes parents, 3 all tracks; 0 = none
SAOU     2
*
*   1 = hits output to ascii file, 0 = suppressed
SAHO     0
*
*   1 = .HST binary plot output (for PAW), 0 = suppressed
SHBO     0
*
*   1 = HISTDO is called to output plots in GPH.OUT, 0 = suppressed
SHDO     1
*
*   1 + 2 = Ntuples are output to (filename) and (filenameMC).NTU RZ files
SNTU     3
*
*   SECT=1 saves all prim, + sec tracks hitting dets, 2 saves all, 0 none
SECT     1
*
*   1 = Zebra bank output
SZEB     0
*
* Banks to be saved if SZEB is 1: may include DIGI, DRAW, HITS, INIT,
*   JXYZ, KINE, MATE, PART, ROTM, SETS, TMED, VERT, VOLU.
*   MATE, ROTM, SETS, TMED, and VOLU, if listed, are saved only on
*   the first event.  For large events in batch, remove JXYZ:
SAVE 'HITS' 'KINE' 'ROTM' 'VERT' 'VOLU' 'SETS'
*
* Total tracks for allocating MC ntuple
NTTK 300000
*
*   Debug flag; DEBUG NFIRST NLAST DN prints debug information for
*   events NFIRST, NFIRST+DN, ..., NLAST
DEBUG    1  10  1
*
*   Governs what's printed during debug; 0 disable, 1 enable...
*   1st = kine bank print
*   2nd = Ntuple print
*   3rd = bank prints
*   4th = gustep diagnostics
SWITCH   0  0  0  0
*
*-------- Definition of the physics of the simulation ------------
*
* Energy cuts for gammas, electrons, neutrons, hadrons and muons (GeV)
* (use PHOBOS default: all 0.001 - for accurate background calculations)
CUTS    0.001  0.001  0.001  0.001  0.001
*
*   multiple scattering type: 0 = none,
*   1 = Gaussian (default), 2 = Moliere
MULS     1
*
*   decay in flight: 0 =none, 1 = make secondaries,
*   2 = ignore secondaries.  (1 = default)
DCAY     1
*
* Hadronic interactions: 0 for none, 1 = hadronic interactions plus second-
* ary production, 2 = 1 without secondaries, 3 = GHEISHA, using NUCRIN for
* hadrons below 5 GeV; 4 = FLUKA (PHOBOS default)
HADR     4
*
* DE/dx loss: 0 = none, 1 or 3 = restricted Landau fluctuations plus delta
* ray production, 2 = Landau-Vavilov fluctuations with no deltas,
* 4 = average energy loss with no fluctuations:
* (3 = PHOBOS default)
LOSS     3
*
* Pair production
PAIR     1
*
*  Bremstrahlung
BREM     1
*
*  Compton scattering
COMP     1
*
*  Photoelectric effect
PHOT     1
*
*  Delta electrons
DRAY     1
*
*  Annihilation
ANNI     1
*
* --- Define HBOOK control cards for standard benchmark histograms ---
*  HIST ID TAGNAME  (short form.. default bins and interval)
*    TAGNAME can be Ntuple tag name or e.g. #35 for 35th entry
*  HIST ID TAGNAME NCHANNELS XMIN XMAX is the long form.
*  HIST ID TAGX NX XMI XMA TAGY NY YMI YMA  scatterplot, args as HBOOK2
*  (The number of arguments distinguishes these three formats.)
*
HIST 14 NHITSL   16    0.   16.
HIST 15 TP       50    0.   50.
HIST 17 TTHETA   50    0.    3.2
HIST 11 XPROD    50  -50.   50.
HIST 12 YPROD    50  -50.   50.
HIST 13 IDPART   50    0.   50.
HIST 16 TPHI     50   -3.2   3.2
*
* End of control file
+DECK,UGCDATA_V35  ,T=DATA.
*CMZ :  2.01/01 12/03/97  22.30.22  by  Phobos (R. Verdier)
*-- Author :
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ! This file contains geometry and material definitions for Phobos  !
 ! detector Geant simulations. This file consists of the following  !
 ! parts:
 !                                                                  !
 !  1) A SHORT HISTORY OF CHANGES MADE TO THIS (UGCDATA.TXT) FILE   !
 !  2) MATERIALS AND TRACKING MEDIA DEFINITIONS                     !
 !  3) COORDINATE SYSTEM AND NOMINAL VERTEX                         !
 !  4) SPECTROMETER                                                 !
 !  5) MAGNET                                                       !
 !  6) BEAM PIPE                                                    !
 !  7) TOF                                                          !
 !  8) MULTIPLICITY                                                 !
 !  9) EXPERIMENTAL AREA (COMMENTED)                                !
 ! 10) RECORDING PARAMETERS                                         !
 !                                                                  !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !                                                                  !
 !  1) A SHORT HISTORY OF CHANGES MADE TO THIS FILE                 !
 !                                                                  !
 GS SET GEOV 3.5
 ! ver 3.5     JAN-1997   A.T.                                      !
 !         number of volumes:          425/1264                     !
 !         number of sensitive planes: 146                          !
 !                                                                  !
 !                         Positions/dimensions of vertex/multipli- !
 !                         city silicons are updated,               !
 !                         Vertex detector is y-symmetric,          !
 !                         Aluminium support for octagon (ribs,     !
 !                         tubes) is added,                         !
 !                         Support for rings updated,               !
 !                         Electronics parts in multiplicity/vertex !
 !                         (incl. rings) added,                     !
 !                         Cables in the mulitiplicity/vertex       !
 !                         (incl. rings) added,                     !
 !                         Aluminium support for outer-vertex added,!
 !                         Heavy boxes with DAS added,              !
 !
 ! ver 3.4     OCT-1996   R.V.                                      !
 !                         Beam pipe now 3 inches diam; FACT values !
 !                         for X-Z, DZ-DZ now 1e5.                  !
 ! ver 3.3     SEP-1996   A.T.                                      !
 !                                                                  !
 !         number of volumes:          345/380/749                  !
 !         number of sensitive planes: 104                          !
 !         (   Sep-1996)   r_outside =3.9 (was 4cm) of BEAV         !
 !         (   Sep-1996)   The additional cut for now was updated   !
 !                         now the offset in pole Z location is     !
 !                         6*sqrt(2) vs CDR. A new line with ver no !
 !                         was added.                               !
 !         (   Jul-1996)   Cage was updated                         !
 !         (24-May-1996)   Subroutine which takes (only) ugcdata as !
 !                         input, producing  dimensions, positions  !
 !                         (center position in  OUTS and rotation), !
 !                         pixels sizes for sensitive volumes was   !
 !                         prepared and is available from me at a   !
 !                         request. Commenting in ugcdata was       !
 !                         changed for needs of this subroutine.    !
 !                                                                  !
 ! ver 3.2     May-1996   A.T.                                      !
 !                                                                  !
 !         number of volumes:          345/380                      !
 !         number of sensitive planes: 104                          !
 !                                                                  !
 !         (9-May-1996)    pixelization updated: pix_y= 0.5cm  for  !
 !                         E,F,G,H changed to .6cm,pix_y=1.955 for  !
 !                         planes in spectrometer changed to 1.9cm, !
 !                         and pixelization in I1, I2, J1, J2 cor-  !
 !                         rected.                                  !
 !                         ly/2 for the  planes   in  spectrometer  !
 !                         changed from 3.91cm to 3.8cm             !
 !                                                                  !
 ! ver 3.1     April-1996   A.T.                                    !
 !                                                                  !
 !         number of volumes:          345/380                      !
 !         number of sensitive planes: 104                          !
 !                                                                  !
 !         (18-April-1996) Some extra volumes from upgraded config. !
 !                         of spectrometer which were put by  mis-  !
 !                         take to the ver. 3.0  and  were removed. !
 !                         OUTS was  made smaller  ly/2 = 37.05 cm  !
 !                         (to contain whole pole face) lz/2=520cm  !
 !                         (to contain rings - C1). Some  comments  !
 !                         lines were added inside the file. Pixel- !
 !                         lization was updated.                    !
 !                         The geometries of enlarged spectrometer  !
 !                         and full configuration of  spectrometer  !
 !                         are available from me by request.        !
 !                         Soon a subroutine which will take (only) !
 !                         ugcdata as input, producing  dimensions, !
 !                         positions (center position in  OUTS and  !
 !                         rotation) pixels sizes for  a sensitive  !
 !                         volume will be prepared.                 !
 !                         Parameters for  sensitive  plains  were  !
 !                         discussed  with   George Stephans   and  !
 !                         Russell Bets. A  detail  description of  !
 !                         the release will be presented in PHOBOS  !
 !                         report.                                  !
 !                                                                  !
 ! ver 3.0     April-1996   A.T.                                    !
 !                                                                  !
 !         number of volumes:          375                          !
 !         number of sensitive planes: 104                          !
 !                                                                  !
 !         (22-March-1996) The support structure of the magnet was  !
 !                         modelled. The center of the pole is  at  !
 !                         (x_c,z_c)=( 43cm,43cm ).   The distance  !
 !                         between poles is 15.5cm. The additional  !
 !                         cut for now was introduced by  14.14 cm  !
 !                         (10*sqrt(2)) offset in  Z  location  of  !
 !                         poles. The cage supporting the spectro-  !
 !                         meter was modelled for the MC study.     !
 !                                                                  !
 ! ver 2.9     Feb-1996   A.T.
 !
 !         number of volumes:          375
 !         number of sensitive planes: 104
 !
 !         (16-Feb-1996)   the sensitive spectrometer planes are now:
 !                         A1,B1,C1,D1,E1,F1,H1,I1,I2,J1,J2,K1,K2,K3,K4,
 !                         L1,L3,L4,M1,M2,M3,M4,N2,N4,O1,O2,O3,O4,P1,P3,P4
 !                         Their positions have changed slightly due to
 !                         technical reasons. The vertical dimensions of
 !                         silicons have changed.
 !                         The width of cooling tubes
 !                         is 0.8 cm. There is a new realistic field map
 !                         available for magt=2. The new design of the vertex
 !                         and multiplicity detector was incorporated.
 !                         A version of UGCDATA.TXT with enlarged
 !                         dimension of silicons is available.
 !
 ! ver 2.8     Jul-1995   A.T.
 !
 !         number of volumes:          368
 !         number of sensitive planes:  97
 !
 !         (11-Jul-1995) - new scheme for names was introduced. With the scheme
 !                         added sensitive planes ( SP(N)H1;SP(N)AJ1(2);
 !                         SP(N)O2(4);SP(N)P1(3) - 14 planes ) with their
 !                         support vols - aluminum plates and electronics.
 !                         The cooling tube for g1 and h1 (vol. UCGH) was
 !                         put on the other side of the the plane G1.
 !                         The same with cooling tubes for I1, I2, J1 and J2.
 !                         Cooling uprights were move form the end of cooling
 !                         tubes: UCAB, UCCD, UCEH to the other side of silicons
 !                         farther from the beam pipe. These cooling tubes are
 !                         3cm X 0.8cm, the rest of cooling tubes is 2cmX0.9cm.
 !
 !         (06-Jul-1995) - parameters of base plate (vol. BAS1, and BAS2)
 !                         were adjusted to the magnet
 !         (04-Jul-1995) - restructuring the UGCDATA.TXT to the modular form
 !                         (see the beginning of the file).
 !                         UGCDATA.TXT cleaned from obsolete comments.
 !                         Labs set to zero as Geant calculate them.
 !         (02-Jul-1995) - base plate on the top side of the spectrometer too.
 !                         elements of the bottom pole faces put directly into
 !                         outs.
 !         (20-Apr-1995) - mate. SCINT added to TOF, CDR's support structure
 !                         is filled with the air for now as the support
 !                         is not adequate to TOF and will be changed,
 !                         magnetic field is in the beam tube now,
 !                         HIT bank corrected (4 characters names now)
 !
 !         (19-Apr-1995) - scales and names of hits updated for TOF (RV)
 !
 ! ver 2.7  26-Sep-1994  A.T.
 !
 !         number of volumes:          313
 !         number of sensitive planes:  83
 !
 !         (26-Sep-1994) - fact and orig changed
 !         (14-Sep-1994) - rad. leng. (contents) of material no 9 corrected
 !         (14-Sep-1994) - electronic's material in spectr. corrected (8-->9)
 !         (14-Sep-1994) - naming changed TOF --> TOFC
 !         (30-Aug-1994) - TOF in, dp(n)ab sticking out from detp(n)
 !         (26-Aug-1994) - Height of I4, J4, K4 now 8.82 cm
 !         (25-Aug-1994) - IUDET(57) replaced by IUDET(58)
 !
 ! ver 2.6  01-Jul-1994  A.T.
 !
 !         number of volumes:          293
 !         number of sensitive planes: 63
 !
 !         (01-jul-1994) - most of obsolete comments deleted
 !         (01-jul-1994) - added materials
 !         (01-jul-1994) - coil material corrected
 !         (30-jun-1994) - added supports for mult. & vertex
 !         (30-jun-1994) - added electronics for spec., mult. octagon and vertex
 !         (16-JUN-1994) - SDET -> SPEC, RING, BARR AND VERT
 !         (16-JUN-1994) - 11 PARAMETERS FOR HITS
 !         (15-JUN-1994) - option for higher cutoff for magnet (not used)
 !         (15-JUN-1994) - silicons divided for active and nonactive
 !         (15-JUN-1994) - major change in names of volumes
 !         (15-JUN-1994) - SUPPORT FOR MULT. UPDATED
 !         (26-may-1994) - beam pipe according to CDR
 !         (08-FEB-1994) - parameters of magnet according to CDR
 !
 ! ver 2.5  26-Jan-1994  A.T.
 !
 !         number of volumes:          215
 !         number of sensitive planes: 62
 !
 !         (11-JAN-1994) - M-substrates corrected
 !         (10-JAN-1994) - 12-cm section widths in vertex corrected
 !         (15-DEC-1993) - outs ylen/2 = 20.5
 !         (21-DEC-1993) - pixelization updated (not used in simulations)
 !         (10-NOV-1993) - multiplicity detectors are sensitive.
 !                         Now there are 42 planes in spectrometer
 !                         and 20 in mult.+vertex. ORIG was changed to
 !                         accommodate these changes.
 ! ver 2.4  01-OCT-1993 Adam Trzupek:
 ! VER 2.3, 10-Mar-1993 Robin Verdier -  For normal magnet optimization
 !                         studies, including supports, multiplicity
 !                         detectors, and survey tubes.
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 !  2) MATERIALS AND TRACKING MEDIA DEFS
 !
 ! Units are cm., kGauss, and degrees.
 !
 ! Material definitions:
 !                      A       Z       Dens     Lrad    Labs    U Nu
 GS MATE 1  VACUUM$    1.e-16  1.e-16  1.e-16   1.e+16   0.      0  0
 GS MATE 2  BERYLL$    9.01    4.00    1.848   35.3      0.      0  0
 GS MATE 3  AIR$      14.61    7.3     1.205e-3 3.04e4   0.      0  0
 GS MATE 4  SILICON$  28.09   14.0     2.33     9.36     0.      0  0
 GS MATE 41 SILICON$  28.09   14.0     3.8      5.74     0.      0  0
 GS MATE 5  IRON$     55.85   26.0     7.87     1.76     0.      0  0
 GS MATE 6  ALUMINUM$ 26.98   13.0     2.7     32.9      0.      0  0
 GS MATE 61 ALUMINUM$ 26.98   13.0     0.73    32.1      0.      0  0
 GS MATE 62 ALUMINUM$ 26.98   13.0     1.26    19.1      0.      0  0
 GS MATE 63 ALUMINUM$ 26.98   13.0     1.72    14.0      0.      0  0
 GS MATE 64 ALUMINUM$ 26.98   13.0     1.22    19.7      0.      0  0
 GS MATE 65 ALUMINUM$ 26.98   13.0     1.31    18.3      0.      0  0
 GS MATE 66 ALUMINUM$ 26.98   13.0     1.82    13.2      0.      0  0
 GS MATE 11 LEAD$    207.19   82.0    11.35     0.56     0.      0  0
 GS MATE 14 Copper$   63.54   29.0     8.96     1.43     0.      0  0
 !         Mixture:    A(1)  A(2)   Z(1) Z(2)  Dens   #   W(1)   W(2)
 ! coil of the magnet, taken as 75% copper and 25% water.
 GS MIXT  7 CuH20$     63.6  18.0   29.0 10.0  6.97   2  0.964   0.036
 GS MIXT  8 ALH2OAIR$  26.98 18.0   13.0 10.0  1.84   2  0.9     0.1
 GS MIXT  9 Electr$    26.98 16.0   13.0  8.0  3.10   2  0.53    0.47
 GS MIXT 10 SCINT$     12.01  1.008   6.0  1.   1.032 2  0.91548 0.08452
 GS MIXT 12 H2O$       16.0   1.008   8.0  1.   1.0   2  0.941   0.059
 GS MIXT 13 ALUMINA$   26.98 16.0    13.0  8.   3.87  2  0.52    0.48
 !
 ! Tracking medium definitions (all media initially taken equal):
 !        # Name       Mat Is If Bmax  Tmax MSmx  DEmx   Eps  StMn  U Nu
 GS TMED  1  VACUUM$    1   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  2  BERYLLIUM$ 2   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  3  AIR$       3   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  4  SILICON$   4   1  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  41 SILICON$   41  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  5  IRON$      5   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  6  ALUMINUM$  6   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  61 ALUMINUM$  61  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  62 ALUMINUM$  62  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  63 ALUMINUM$  63  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  64 ALUMINUM$  64  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  65 ALUMINUM$  65  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  66 ALUMINUM$  66  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  7  CuH20$     7   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  8  ALH2OAIR$  8   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  9  ELECTR$    9   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 10  SCINT$    10   1  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 11  LEAD$     11   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 12  H2O$      12   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 13  Alumina$  13   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 14  Copper$   14   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 !  3) COORDINATE SYSTEM AND NOMINAL VERTEX
 !
 ! The Phobos master volume OUTS is a virtual volume defining the master
 ! coordinate system and the limits of tracking.The master reference system
 ! is centered at the nominal interaction point, with Z along the
 ! beam line and the centers of coils at positive Z, Y up, and X horizontal
 ! completing a right-handed system.
 !
 !       name   type  mat. lx/2    ly/2     lz/2      # par
 GS VOLU OUTS  'BOX '   3  400.     37.05   520.0       3    ! top level volum
 GS VOLU ORIG  'TUBE'   1    0.0     0.1      0.7       3    ! Origin of MARS
 !        no   th_x   phi_x   th_y   phi_y    th_z   phi_z   volum rot.
 GS ROTM   1    90.     0.    180.      0.     90.     90.   ! orig
 GS ROTM   2     0.     0.     90.     90.     90.    180.   ! orig
 !      daug. cp  moth.   x_c       y_c       z_c    rot.
 GS POS ORIG  1   OUTS    0.        0.        0.       0  ONLY
 GS POS ORIG  2   OUTS    0.        0.        0.       1  ONLY
 GS POS ORIG  3   OUTS    0.        0.        0.       2  ONLY
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 ! 4)SPECTROMETER
 !
 !
 ! CAGE: volu. defs
 !
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU CAG1  'TRAP'  61  39.0000   6.2918   0.0000   0.2500  34.6000  34.6000   0.0000   0.2500  26.0000  26.0000   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU CAG2  'BOX '  61  34.6000    0.2500   19.4000    3
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU CAG3  'TRAP'  61  26.6000   3.8713  180.0000   0.2500  31.0000  31.0000   0.0000   0.2500  34.6000  34.6000   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU CAG4  'BOX '  66   5.0000    6.3500    0.2500    3
 GS VOLU CAG5  'BOX '  65   0.2500    6.3500   14.5000    3
 GS VOLU CAG6  'BOX '  64  32.9962    6.3500    0.2500    3
 GS VOLU CAG7  'BOX '  65   0.2500    6.3500   14.8845    3
 GS VOLU CAG8  'BOX '  63   5.2000    6.3500    0.2500    3
 GS VOLU CAG9  'BOX '  62   0.2500    6.3500   28.1607    3
 GS VOLU CAG0  'BOX '  62   0.2500    6.3500   28.7611    3
 GS VOLU CAGA  'BOX '   6   0.9600    0.1600   70.0000    3
 GS VOLU CAGB  'BOX '   6   0.1600    0.8000   70.0000    3
 GS VOLU CAGC  'BOX '   6  31.1041    0.1600    0.9600    3
 GS VOLU CAGD  'BOX '   6  31.1041    0.8000    0.1600    3
 !
 ! CAGE: rot. matrices
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 350   90.00  180.00   90.00 -270.00    0.00    0.00 ! CAGE
 GS ROTM 351  102.44    0.00   90.00   90.00   12.44    0.00 ! CAGE
 GS ROTM 352   77.56    0.00   90.00   90.00   12.44  180.00 ! CAGE
 GS ROTM 353  108.13    0.00   90.00   90.00   18.13    0.00 ! CAGE
 GS ROTM 354   71.87    0.00   90.00   90.00   18.13  180.00 ! CAGE
 GS ROTM 355   82.29    0.00   90.00   90.00    7.71  180.00 ! CAGE
 GS ROTM 356   97.71    0.00   90.00   90.00    7.71    0.00 ! CAGE
 !
 ! CAGE: positions
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS CAG1  1   OUTS   44.5500    6.6000   88.7000   0  ONLY
 GS POS CAG1  2   OUTS   44.5500   -6.6000   88.7000   0  ONLY
 GS POS CAG1  3   OUTS  -44.5500    6.6000   88.7000 350  ONLY
 GS POS CAG1  4   OUTS  -44.5500   -6.6000   88.7000 350  ONLY
 GS POS CAG2  1   OUTS   40.2500    6.6000   30.3000   0  ONLY
 GS POS CAG2  2   OUTS  -40.2500    6.6000   30.3000   0  ONLY
 GS POS CAG2  3   OUTS   40.2500   -6.6000   30.3000   0  ONLY
 GS POS CAG2  4   OUTS  -40.2500   -6.6000   30.3000   0  ONLY
 GS POS CAG3  1   OUTS   42.0500    6.6000  -15.7000   0  ONLY
 GS POS CAG3  2   OUTS   42.0500   -6.6000  -15.7000   0  ONLY
 GS POS CAG3  3   OUTS  -42.0500    6.6000  -15.7000 350  ONLY
 GS POS CAG3  4   OUTS  -42.0500   -6.6000  -15.7000 350  ONLY
 GS POS CAGA  1   OUTS   73.8900    6.1900   57.7000   0  ONLY
 GS POS CAGA  2   OUTS  -73.8900    6.1900   57.7000   0  ONLY
 GS POS CAGA  3   OUTS   73.8900   -6.1900   57.7000   0  ONLY
 GS POS CAGA  4   OUTS  -73.8900   -6.1900   57.7000   0  ONLY
 GS POS CAGB  1   OUTS   73.8900    5.2300   57.7000   0  ONLY
 GS POS CAGB  2   OUTS  -73.8900    5.2300   57.7000   0  ONLY
 GS POS CAGB  3   OUTS   73.8900   -5.2300   57.7000   0  ONLY
 GS POS CAGB  4   OUTS  -73.8900   -5.2300   57.7000   0  ONLY
 GS POS CAGC  1   OUTS   41.8259    6.1900   71.7400   0  ONLY
 GS POS CAGC  2   OUTS  -41.8259    6.1900   71.7400   0  ONLY
 GS POS CAGC  3   OUTS   41.8259   -6.1900   71.7400   0  ONLY
 GS POS CAGC  4   OUTS  -41.8259   -6.1900   71.7400   0  ONLY
 GS POS CAGD  1   OUTS   41.8259    5.2300   71.7400   0  ONLY
 GS POS CAGD  2   OUTS  -41.8259    5.2300   71.7400   0  ONLY
 GS POS CAGD  3   OUTS   41.8259   -5.2300   71.7400   0  ONLY
 GS POS CAGD  4   OUTS  -41.8259   -5.2300   71.7400   0  ONLY
 GS POS CAG4  1   OUTS   69.8500    0.0000  -42.0500   0  ONLY
 GS POS CAG4  2   OUTS  -17.8500    0.0000  -42.0500   0  ONLY
 GS POS CAG4  3   OUTS   17.8500    0.0000  -42.0500   0  ONLY
 GS POS CAG4  4   OUTS  -69.8500    0.0000  -42.0500   0  ONLY
 GS POS CAG5  1   OUTS   74.6000    0.0000  -27.3000   0  ONLY
 GS POS CAG5  2   OUTS  -74.6000    0.0000  -27.3000   0  ONLY
 GS POS CAG6  1   OUTS   41.8538    0.0000  -12.5500   0  ONLY
 GS POS CAG6  2   OUTS  -41.8538    0.0000  -12.5500   0  ONLY
 GS POS CAG7  1   OUTS   11.1015    0.0000  -27.5165 355  ONLY
 GS POS CAG7  2   OUTS  -11.1015    0.0000  -27.5165 356  ONLY
 GS POS CAG8  1   OUTS   28.0500    0.0000  127.4500   0  ONLY
 GS POS CAG8  2   OUTS  -28.0500    0.0000  127.4500   0  ONLY
 GS POS CAG9  1   OUTS   17.0300    0.0000  100.1462 351  ONLY
 GS POS CAG9  2   OUTS  -17.0300    0.0000  100.1462 352  ONLY
 GS POS CAG0  1   OUTS   24.0500    0.0000   99.9500 353  ONLY
 GS POS CAG0  2   OUTS  -24.0500    0.0000   99.9500 354  ONLY
 !
 ! Spectrometer: vol. defs of silicons
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UPA1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPB1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPC1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPD1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPE1  'BOX '   4   8.5659   1.9000   0.0150    3
 GS VOLU UPF1  'BOX '   4   8.5659   1.9000   0.0150    3
 GS VOLU UPH1  'BOX '   4  10.6796   1.9000   0.0150    3
 GS VOLU UPI1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPI2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPJ1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPJ2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPK1  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPK2  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UPK3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPK4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPL1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPL3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPL4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPM1  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UPM2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPM3  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPM4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPN2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPN4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPO1  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UPO2  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UPO3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPO4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPP1  'BOX '   4  21.1339   4.0000   0.0150    3
 GS VOLU UPP3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPP4  'BOX '   4   6.4265   4.0000   0.0150    3
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UNA1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UNB1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UNC1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UND1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UNE1  'BOX '   4   8.5659   1.9000   0.0150    3
 GS VOLU UNF1  'BOX '   4   8.5659   1.9000   0.0150    3
 GS VOLU UNH1  'BOX '   4  10.6796   1.9000   0.0150    3
 GS VOLU UNI1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNI2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNJ1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNJ2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNK1  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNK2  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UNK3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNK4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNL1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNL3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNL4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNM1  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UNM2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNM3  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNM4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNN2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNN4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNO1  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UNO2  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UNO3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNO4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNP1  'BOX '   4  21.1339   4.0000   0.0150    3
 GS VOLU UNP3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNP4  'BOX '   4   6.4265   4.0000   0.0150    3
 !
 ! Spectrometer: vol. defs of silicons (sensitive)
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU SPA1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPB1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPC1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPD1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPE1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SPF1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SPH1  'BOX '   4  10.5896   1.5000   0.0150    3
 GS VOLU SPI1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPI2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPJ1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPJ2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPK1  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPK2  'BOX '   4  12.6397   3.0000   0.0150    3
 GS VOLU SPK3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPK4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPL1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPL3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPL4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPM1  'BOX '   4  12.6397   3.8000   0.0150    3
 GS VOLU SPM2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPM3  'BOX '   4   8.4375   3.8000   0.0150    3
 GS VOLU SPM4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPN2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPN4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPO1  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SPO2  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SPO3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPO4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPP1  'BOX '   4  21.0439   3.8000   0.0150    3
 GS VOLU SPP3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPP4  'BOX '   4   6.3365   3.0000   0.0150    3
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU SNA1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SNB1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SNC1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SND1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SNE1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SNF1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SNH1  'BOX '   4  10.5896   1.5000   0.0150    3
 GS VOLU SNI1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNI2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNJ1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNJ2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNK1  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNK2  'BOX '   4  12.6397   3.0000   0.0150    3
 GS VOLU SNK3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNK4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNL1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNL3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNL4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNM1  'BOX '   4  12.6397   3.8000   0.0150    3
 GS VOLU SNM2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNM3  'BOX '   4   8.4375   3.8000   0.0150    3
 GS VOLU SNM4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNN2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNN4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNO1  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SNO2  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SNO3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNO4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNP1  'BOX '   4  21.0439   3.8000   0.0150    3
 GS VOLU SNP3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNP4  'BOX '   4   6.3365   3.0000   0.0150    3
 !
 ! Spectrometer: vol. defs of electronics
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UEA1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UEB1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UEC1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UED1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UEE1  'BOX '   9   8.4759   2.1500   0.1000    3
 GS VOLU UEF1  'BOX '   9   8.4759   2.1500   0.1000    3
 GS VOLU UEH1  'BOX '   9  10.5896   2.1500   0.1000    3
 GS VOLU UEI1  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEI2  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEJ1  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEJ2  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEK1  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEK2  'BOX '   9  12.6397   1.1000   0.0750    3
 GS VOLU UEK3  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEK4  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEL1  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEL3  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEL4  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEM1  'BOX '   9  12.6397   1.1000   0.0750    3
 GS VOLU UEM2  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEM3  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEM4  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEN2  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEN4  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEO1  'BOX '   9  18.9428   1.1000   0.0750    3
 GS VOLU UEO2  'BOX '   9  18.9428   1.1000   0.0750    3
 GS VOLU UEO3  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEO4  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEP1  'BOX '   9  21.0439   1.1000   0.0750    3
 GS VOLU UEP3  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEP4  'BOX '   9   6.3365   1.1000   0.0750    3
 !
 ! Spectrometer: vol. defs of alum. planes
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UAA1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAB1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAC1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAD1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAE1  'BOX '   6   8.8659   6.2000   0.1000    3
 GS VOLU UAF1  'BOX '   6   8.8659   6.2000   0.1000    3
 GS VOLU UAH1  'BOX '   6  10.9796   6.2000   0.1000    3
 GS VOLU UAI1  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAI2  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAJ1  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAJ2  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAK1  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAK2  'BOX '   6  12.6397   6.2000   0.1000    3
 GS VOLU UAK3  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAK4  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAL1  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAL3  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAL4  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAM1  'BOX '   6  12.6397   6.2000   0.1000    3
 GS VOLU UAM2  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAM3  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAM4  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAN2  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAN4  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAO1  'BOX '   6  18.9428   6.2000   0.1000    3
 GS VOLU UAO2  'BOX '   6  18.9428   6.2000   0.1000    3
 GS VOLU UAO3  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAO4  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAP1  'BOX '   6  21.0439   6.2000   0.1000    3
 GS VOLU UAP3  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAP4  'BOX '   6   6.3365   6.2000   0.1000    3
 !
 ! Spectrometer: vol. defs of alum. shims
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU USI2  'BOX '   6   8.4375   1.0000   0.2500    3
 GS VOLU USJ1  'BOX '   6   8.1375   1.0000   0.2500    3
 GS VOLU USK2  'BOX '   6  12.6397   1.0000   0.2500    3
 GS VOLU USM2  'BOX '   6  14.7407   1.0000   0.2500    3
 GS VOLU USO2  'BOX '   6  18.9428   1.0000   0.2500    3
 !
 ! Spectrometer: vol. defs of windows in alum. planes
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UWA1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWB1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWC1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWD1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWE1  'BOX '   3   8.6659   2.2000   0.1000    3
 GS VOLU UWF1  'BOX '   3   8.6659   2.2000   0.1000    3
 GS VOLU UWH1  'BOX '   3  10.7796   2.2000   0.1000    3
 GS VOLU UWI1  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWI2  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWJ1  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWJ2  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWK1  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWK2  'BOX '   3  12.4397   4.2000   0.1000    3
 GS VOLU UWK3  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWK4  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWL1  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWL3  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWL4  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWM1  'BOX '   3  12.4397   4.2000   0.1000    3
 GS VOLU UWM2  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWM3  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWM4  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWN2  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWN4  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWO1  'BOX '   3  18.7428   4.2000   0.1000    3
 GS VOLU UWO2  'BOX '   3  18.7428   4.2000   0.1000    3
 GS VOLU UWO3  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWO4  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWP1  'BOX '   3  20.8439   4.2000   0.1000    3
 GS VOLU UWP3  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWP4  'BOX '   3   6.1365   4.2000   0.1000    3
 !
 ! Spectrometer: vol. defs of cooling tube
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UCAB  'BOX '   8   9.8427   1.5000   0.4000    3
 GS VOLU UCCD  'BOX '   8  13.8441   1.5000   0.4000    3
 GS VOLU UCEF  'BOX '   8  16.2097   1.5000   0.4000    3
 GS VOLU UCGH  'BOX '   8  17.4014   1.5000   0.4000    3
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU UCI1  'TRAP'   8   0.4000 -19.6286   0.0000   1.0000  12.1641  12.1641   0.0000   1.0000  12.4494  12.4494   0.0000   11
 GS VOLU UCI2  'TRAP'   8   0.4000  19.6286   0.0000   1.0000   9.2678   9.2678   0.0000   1.0000   9.5531   9.5531   0.0000   11
 GS VOLU UCK1  'TRAP'   8   0.4000 -17.6685   0.0000   1.0000  12.2387  12.2387   0.0000   1.0000  12.4935  12.4935   0.0000   11
 GS VOLU UCK2  'TRAP'   8   0.4000   0.0000   0.0000   1.0000  13.0091  13.0091   0.0000   1.0000  13.5188  13.5188   0.0000   11
 GS VOLU UCK3  'TRAP'   8   0.4000  17.6685   0.0000   1.0000   9.3892   9.3892   0.0000   1.0000   9.6440   9.6440   0.0000   11
 GS VOLU UCM1  'TRAP'   8   0.4000 -20.9900   0.0000   1.0000  18.6286  18.6286   0.0000   1.0000  18.9355  18.9355   0.0000   11
 GS VOLU UCM2  'TRAP'   8   0.4000   0.0000   0.0000   1.0000  15.2260  15.2260   0.0000   1.0000  15.8399  15.8399   0.0000   11
 GS VOLU UCM3  'TRAP'   8   0.4000  20.9900   0.0000   1.0000  15.8377  15.8377   0.0000   1.0000  16.1446  16.1446   0.0000   11
 GS VOLU UCO1  'TRAP'   8   0.4000 -22.7605   0.0000   1.0000  23.9894  23.9894   0.0000   1.0000  24.3250  24.3250   0.0000   11
 GS VOLU UCO2  'TRAP'   8   0.4000   0.0000   0.0000   1.0000  19.4885  19.4885   0.0000   1.0000  20.1597  20.1597   0.0000   11
 GS VOLU UCO3  'TRAP'   8   0.4000  22.7605   0.0000   1.0000  21.9053  21.9053   0.0000   1.0000  22.2409  22.2409   0.0000   11
 !
 ! Spectrometer: vol. defs of cooling tube uprights
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UU01  'BOX '   8   0.2500   3.2500   0.4000    3
 GS VOLU UU02  'BOX '   8   0.5000   3.2500   0.4000    3
 GS VOLU UU03  'BOX '   8   0.2500   4.2500   0.4000    3
 GS VOLU UU04  'BOX '   8   0.5000   4.2500   0.4000    3
 !
 ! Spectrometer: rotation of assemblies
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 302   90.00  180.00   90.00  270.00    0.00    0.00 ! DETN
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 303  171.00    0.00   90.00   90.00   81.00    0.00 ! SPA1
 GS ROTM 305  156.00    0.00   90.00   90.00   66.00    0.00 ! SPC1
 GS ROTM 307  146.00    0.00   90.00   90.00   56.00    0.00 ! SPE1
 GS ROTM 309  140.00    0.00   90.00   90.00   50.00    0.00 ! SPG1
 GS ROTM 310  170.00    0.00   90.00   90.00   80.00    0.00 ! SPI1
 GS ROTM 311   99.00    0.00   90.00   90.00    9.00    0.00 ! SPI2
 GS ROTM 312  200.00    0.00   90.00   90.00  110.00    0.00 ! SPK1
 GS ROTM 313  135.00    0.00   90.00   90.00   45.00    0.00 ! SPK2
 GS ROTM 314   70.00    0.00   90.00   90.00   20.00  180.00 ! SPK3
 GS ROTM 315   70.00    0.00   90.00   90.00   20.00  180.00 ! SPK4
 GS ROTM 316  210.00    0.00   90.00   90.00  120.00    0.00 ! SPM1
 GS ROTM 317  135.00    0.00   90.00   90.00   45.00    0.00 ! SPM2
 GS ROTM 318   60.00    0.00   90.00   90.00   30.00  180.00 ! SPM3
 GS ROTM 319   60.00    0.00   90.00   90.00   30.00  180.00 ! SPM4
 GS ROTM 320  215.00    0.00   90.00   90.00  125.00    0.00 ! SPO1
 GS ROTM 321  135.00    0.00   90.00   90.00   45.00    0.00 ! SPO2
 GS ROTM 322   55.00    0.00   90.00   90.00   35.00  180.00 ! SPO3
 GS ROTM 323   55.00    0.00   90.00   90.00   35.00  180.00 ! SPO4
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 324  171.00  180.00   90.00  270.00   81.00  180.00 ! SNA1
 GS ROTM 326  156.00  180.00   90.00  270.00   66.00  180.00 ! SNC1
 GS ROTM 328  146.00  180.00   90.00  270.00   56.00  180.00 ! SNE1
 GS ROTM 330  140.00  180.00   90.00  270.00   50.00  180.00 ! SNG1
 GS ROTM 331  170.00  180.00   90.00  270.00   80.00  180.00 ! SNI1
 GS ROTM 332   99.00  180.00   90.00  270.00    9.00  180.00 ! SNI2
 GS ROTM 333  200.00  180.00   90.00  270.00  110.00  180.00 ! SNK1
 GS ROTM 334  135.00  180.00   90.00  270.00   45.00  180.00 ! SNK2
 GS ROTM 335   70.00  180.00   90.00  270.00   20.00    0.00 ! SNK3
 GS ROTM 336   70.00  180.00   90.00  270.00   20.00    0.00 ! SNK4
 GS ROTM 337  210.00  180.00   90.00  270.00  120.00  180.00 ! SNM1
 GS ROTM 338  135.00  180.00   90.00  270.00   45.00  180.00 ! SNM2
 GS ROTM 339   60.00  180.00   90.00  270.00   30.00    0.00 ! SNM3
 GS ROTM 340   60.00  180.00   90.00  270.00   30.00    0.00 ! SNM4
 GS ROTM 341  215.00  180.00   90.00  270.00  125.00  180.00 ! SNO1
 GS ROTM 342  135.00  180.00   90.00  270.00   45.00  180.00 ! SNO2
 GS ROTM 343   55.00  180.00   90.00  270.00   35.00    0.00 ! SNO3
 GS ROTM 344   55.00  180.00   90.00  270.00   35.00    0.00 ! SNO4
 !
 ! Spectrometer: rot. of cooling tubes
 !
 !
 ! Spectrometer: positions of silicons
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UPA1  1   OUTS    6.7993    0.0000    6.3180 303  ONLY
 GS POS UPB1  1   OUTS    7.9651    0.0000    7.7154 303  ONLY
 GS POS UPC1  1   OUTS    9.4641    0.0000   10.7633 305  ONLY
 GS POS UPD1  1   OUTS   10.4493    0.0000   11.9188 305  ONLY
 GS POS UPE1  1   OUTS   11.7158    0.0000   13.7275 307  ONLY
 GS POS UPF1  1   OUTS   12.8516    0.0000   14.4936 307  ONLY
 GS POS UPH1  1   OUTS   15.5439    0.0000   17.3962 309  ONLY
 GS POS UPI1  1   OUTS   26.9052    0.0000   16.9770 310  ONLY
 GS POS UPI2  1   OUTS   16.7730    0.0000   26.2793 311  ONLY
 GS POS UPJ1  1   OUTS   28.4986    0.0000   18.7095 310  ONLY
 GS POS UPJ2  1   OUTS   18.2732    0.0000   27.9350 311  ONLY
 GS POS UPK1  1   OUTS   40.3996    0.0000   18.4500 312  ONLY
 GS POS UPK2  1   OUTS   33.1897    0.0000   33.2500 313  ONLY
 GS POS UPK3  1   OUTS   20.3640    0.0000   41.1785 314  ONLY
 GS POS UPK4  1   OUTS   12.4040    0.0000   38.2813 314  ONLY
 GS POS UPL1  1   OUTS   41.6870    0.0000   17.9814 312  ONLY
 GS POS UPL3  1   OUTS   19.9894    0.0000   42.5001 314  ONLY
 GS POS UPL4  1   OUTS   12.0294    0.0000   39.6028 314  ONLY
 GS POS UPM1  1   OUTS   49.1240    0.0000   23.3069 316  ONLY
 GS POS UPM2  1   OUTS   44.5430    0.0000   44.6231 317  ONLY
 GS POS UPM3  1   OUTS   26.8659    0.0000   51.3052 318  ONLY
 GS POS UPM4  1   OUTS   14.0712    0.0000   43.9181 318  ONLY
 GS POS UPN2  1   OUTS   45.9560    0.0000   45.8549 317  ONLY
 GS POS UPN4  1   OUTS   13.5594    0.0000   45.2046 318  ONLY
 GS POS UPO1  1   OUTS   59.0404    0.0000   27.1150 320  ONLY
 GS POS UPO2  1   OUTS   56.0128    0.0000   55.9928 321  ONLY
 GS POS UPO3  1   OUTS   30.5772    0.0000   61.4306 322  ONLY
 GS POS UPO4  1   OUTS   13.3118    0.0000   49.3412 322  ONLY
 GS POS UPP1  1   OUTS   60.1626    0.0000   26.3292 320  ONLY
 GS POS UPP3  1   OUTS   30.4467    0.0000   63.0117 322  ONLY
 GS POS UPP4  1   OUTS   13.1813    0.0000   50.9224 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UNA1  1   OUTS   -6.7993    0.0000    6.3180 324  ONLY
 GS POS UNB1  1   OUTS   -7.9651    0.0000    7.7154 324  ONLY
 GS POS UNC1  1   OUTS   -9.4641    0.0000   10.7633 326  ONLY
 GS POS UND1  1   OUTS  -10.4493    0.0000   11.9188 326  ONLY
 GS POS UNE1  1   OUTS  -11.7158    0.0000   13.7275 328  ONLY
 GS POS UNF1  1   OUTS  -12.8516    0.0000   14.4936 328  ONLY
 GS POS UNH1  1   OUTS  -15.5439    0.0000   17.3962 330  ONLY
 GS POS UNI1  1   OUTS  -26.9052    0.0000   16.9770 331  ONLY
 GS POS UNI2  1   OUTS  -16.7730    0.0000   26.2793 332  ONLY
 GS POS UNJ1  1   OUTS  -28.4986    0.0000   18.7095 331  ONLY
 GS POS UNJ2  1   OUTS  -18.2732    0.0000   27.9350 332  ONLY
 GS POS UNK1  1   OUTS  -40.3996    0.0000   18.4500 333  ONLY
 GS POS UNK2  1   OUTS  -33.1897    0.0000   33.2500 334  ONLY
 GS POS UNK3  1   OUTS  -20.3640    0.0000   41.1785 335  ONLY
 GS POS UNK4  1   OUTS  -12.4040    0.0000   38.2813 336  ONLY
 GS POS UNL1  1   OUTS  -41.6870    0.0000   17.9814 333  ONLY
 GS POS UNL3  1   OUTS  -19.9894    0.0000   42.5001 335  ONLY
 GS POS UNL4  1   OUTS  -12.0294    0.0000   39.6028 336  ONLY
 GS POS UNM1  1   OUTS  -49.1240    0.0000   23.3069 337  ONLY
 GS POS UNM2  1   OUTS  -44.5430    0.0000   44.6231 338  ONLY
 GS POS UNM3  1   OUTS  -26.8659    0.0000   51.3052 339  ONLY
 GS POS UNM4  1   OUTS  -14.0712    0.0000   43.9181 340  ONLY
 GS POS UNN2  1   OUTS  -45.9560    0.0000   45.8549 338  ONLY
 GS POS UNN4  1   OUTS  -13.5594    0.0000   45.2046 340  ONLY
 GS POS UNO1  1   OUTS  -59.0404    0.0000   27.1150 341  ONLY
 GS POS UNO2  1   OUTS  -56.0128    0.0000   55.9928 342  ONLY
 GS POS UNO3  1   OUTS  -30.5772    0.0000   61.4306 343  ONLY
 GS POS UNO4  1   OUTS  -13.3118    0.0000   49.3412 344  ONLY
 GS POS UNP1  1   OUTS  -60.1626    0.0000   26.3292 341  ONLY
 GS POS UNP3  1   OUTS  -30.4467    0.0000   63.0117 343  ONLY
 GS POS UNP4  1   OUTS  -13.1813    0.0000   50.9224 344  ONLY
 !
 ! Spectrometer: positions of silicons (sensitive)
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS SPA1  1   UPA1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPB1  1   UPB1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPC1  1   UPC1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPD1  1   UPD1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPE1  1   UPE1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPF1  1   UPF1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPH1  1   UPH1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPI1  1   UPI1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPI2  1   UPI2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPJ1  1   UPJ1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPJ2  1   UPJ2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK1  1   UPK1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK2  1   UPK2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK3  1   UPK3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK4  1   UPK4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPL1  1   UPL1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPL3  1   UPL3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPL4  1   UPL4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM1  1   UPM1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM2  1   UPM2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM3  1   UPM3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM4  1   UPM4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPN2  1   UPN2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPN4  1   UPN4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO1  1   UPO1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO2  1   UPO2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO3  1   UPO3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO4  1   UPO4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPP1  1   UPP1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPP3  1   UPP3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPP4  1   UPP4    0.0000    0.0000    0.0000   0  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS SNA1  1   UNA1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNB1  1   UNB1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNC1  1   UNC1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SND1  1   UND1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNE1  1   UNE1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNF1  1   UNF1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNH1  1   UNH1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNI1  1   UNI1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNI2  1   UNI2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNJ1  1   UNJ1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNJ2  1   UNJ2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK1  1   UNK1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK2  1   UNK2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK3  1   UNK3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK4  1   UNK4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNL1  1   UNL1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNL3  1   UNL3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNL4  1   UNL4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM1  1   UNM1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM2  1   UNM2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM3  1   UNM3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM4  1   UNM4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNN2  1   UNN2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNN4  1   UNN4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO1  1   UNO1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO2  1   UNO2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO3  1   UNO3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO4  1   UNO4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNP1  1   UNP1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNP3  1   UNP3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNP4  1   UNP4    0.0000    0.0000    0.0000   0  ONLY
 !
 ! Spectrometer: positions of electronics
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UEA1  1   OUTS    6.7845    4.0500    6.3157 303  ONLY
 GS POS UEA1  2   OUTS    6.7845   -4.0500    6.3157 303  ONLY
 GS POS UEB1  1   OUTS    7.9799    4.0500    7.7178 303  ONLY
 GS POS UEB1  2   OUTS    7.9799   -4.0500    7.7178 303  ONLY
 GS POS UEC1  1   OUTS    9.4504    4.0500   10.7572 305  ONLY
 GS POS UEC1  2   OUTS    9.4504   -4.0500   10.7572 305  ONLY
 GS POS UED1  1   OUTS   10.4630    4.0500   11.9249 305  ONLY
 GS POS UED1  2   OUTS   10.4630   -4.0500   11.9249 305  ONLY
 GS POS UEE1  1   OUTS   11.7034    4.0500   13.7191 307  ONLY
 GS POS UEE1  2   OUTS   11.7034   -4.0500   13.7191 307  ONLY
 GS POS UEF1  1   OUTS   12.8640    4.0500   14.5020 307  ONLY
 GS POS UEF1  2   OUTS   12.8640   -4.0500   14.5020 307  ONLY
 GS POS UEH1  1   OUTS   15.5554    4.0500   17.4059 309  ONLY
 GS POS UEH1  2   OUTS   15.5554   -4.0500   17.4059 309  ONLY
 GS POS UEI1  1   OUTS   26.9151    5.1000   16.9788 310  ONLY
 GS POS UEI2  1   OUTS   16.7746    5.1000   26.2892 311  ONLY
 GS POS UEJ1  1   OUTS   28.4888    5.1000   18.7078 310  ONLY
 GS POS UEJ2  1   OUTS   18.2717    5.1000   27.9252 311  ONLY
 GS POS UEK1  1   OUTS   40.4090    5.1000   18.4466 312  ONLY
 GS POS UEK2  1   OUTS   33.1968    5.1000   33.2571 313  ONLY
 GS POS UEK3  1   OUTS   20.3606    5.1000   41.1879 314  ONLY
 GS POS UEK4  1   OUTS   12.4006    5.1000   38.2907 314  ONLY
 GS POS UEL1  1   OUTS   41.6776    5.1000   17.9848 312  ONLY
 GS POS UEL3  1   OUTS   19.9928    5.1000   42.4907 314  ONLY
 GS POS UEL4  1   OUTS   12.0328    5.1000   39.5934 314  ONLY
 GS POS UEM1  1   OUTS   49.1327    5.1000   23.3019 316  ONLY
 GS POS UEM2  1   OUTS   44.5501    5.1000   44.6302 317  ONLY
 GS POS UEM3  1   OUTS   26.8609    5.1000   51.3138 318  ONLY
 GS POS UEM4  1   OUTS   14.0662    5.1000   43.9267 318  ONLY
 GS POS UEN2  1   OUTS   45.9489    5.1000   45.8478 317  ONLY
 GS POS UEN4  1   OUTS   13.5644    5.1000   45.1959 318  ONLY
 GS POS UEO1  1   OUTS   59.0486    5.1000   27.1093 320  ONLY
 GS POS UEO2  1   OUTS   56.0199    5.1000   55.9999 321  ONLY
 GS POS UEO3  1   OUTS   30.5715    5.1000   61.4388 322  ONLY
 GS POS UEO4  1   OUTS   13.3061    5.1000   49.3494 322  ONLY
 GS POS UEP1  1   OUTS   60.1545    5.1000   26.3350 320  ONLY
 GS POS UEP3  1   OUTS   30.4524    5.1000   63.0035 322  ONLY
 GS POS UEP4  1   OUTS   13.1870    5.1000   50.9142 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UEA1  3   OUTS   -6.7845    4.0500    6.3157 324  ONLY
 GS POS UEA1  4   OUTS   -6.7845    4.0500    6.3157 324  ONLY
 GS POS UEB1  3   OUTS   -7.9799    4.0500    7.7178 324  ONLY
 GS POS UEB1  4   OUTS   -7.9799    4.0500    7.7178 324  ONLY
 GS POS UEC1  3   OUTS   -9.4504    4.0500   10.7572 326  ONLY
 GS POS UEC1  4   OUTS   -9.4504    4.0500   10.7572 326  ONLY
 GS POS UED1  3   OUTS  -10.4630    4.0500   11.9249 326  ONLY
 GS POS UED1  4   OUTS  -10.4630    4.0500   11.9249 326  ONLY
 GS POS UEE1  3   OUTS  -11.7034    4.0500   13.7191 328  ONLY
 GS POS UEE1  4   OUTS  -11.7034    4.0500   13.7191 328  ONLY
 GS POS UEF1  3   OUTS  -12.8640    4.0500   14.5020 328  ONLY
 GS POS UEF1  4   OUTS  -12.8640    4.0500   14.5020 328  ONLY
 GS POS UEH1  3   OUTS  -15.5554    4.0500   17.4059 330  ONLY
 GS POS UEH1  4   OUTS  -15.5554    4.0500   17.4059 330  ONLY
 GS POS UEI1  2   OUTS  -26.9151    5.1000   16.9788 331  ONLY
 GS POS UEI2  2   OUTS  -16.7746    5.1000   26.2892 332  ONLY
 GS POS UEJ1  2   OUTS  -28.4888    5.1000   18.7078 331  ONLY
 GS POS UEJ2  2   OUTS  -18.2717    5.1000   27.9252 332  ONLY
 GS POS UEK1  2   OUTS  -40.4090    5.1000   18.4466 333  ONLY
 GS POS UEK2  2   OUTS  -33.1968    5.1000   33.2571 334  ONLY
 GS POS UEK3  2   OUTS  -20.3606    5.1000   41.1879 335  ONLY
 GS POS UEK4  2   OUTS  -12.4006    5.1000   38.2907 336  ONLY
 GS POS UEL1  2   OUTS  -41.6776    5.1000   17.9848 333  ONLY
 GS POS UEL3  2   OUTS  -19.9928    5.1000   42.4907 335  ONLY
 GS POS UEL4  2   OUTS  -12.0328    5.1000   39.5934 336  ONLY
 GS POS UEM1  2   OUTS  -49.1327    5.1000   23.3019 337  ONLY
 GS POS UEM2  2   OUTS  -44.5501    5.1000   44.6302 338  ONLY
 GS POS UEM3  2   OUTS  -26.8609    5.1000   51.3138 339  ONLY
 GS POS UEM4  2   OUTS  -14.0662    5.1000   43.9267 340  ONLY
 GS POS UEN2  2   OUTS  -45.9489    5.1000   45.8478 338  ONLY
 GS POS UEN4  2   OUTS  -13.5644    5.1000   45.1959 340  ONLY
 GS POS UEO1  2   OUTS  -59.0486    5.1000   27.1093 341  ONLY
 GS POS UEO2  2   OUTS  -56.0199    5.1000   55.9999 342  ONLY
 GS POS UEO3  2   OUTS  -30.5715    5.1000   61.4388 343  ONLY
 GS POS UEO4  2   OUTS  -13.3061    5.1000   49.3494 344  ONLY
 GS POS UEP1  2   OUTS  -60.1545    5.1000   26.3350 341  ONLY
 GS POS UEP3  2   OUTS  -30.4524    5.1000   63.0035 343  ONLY
 GS POS UEP4  2   OUTS  -13.1870    5.1000   50.9142 344  ONLY
 !
 ! Spectrometer: positions of alum. planes
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UAA1  1   OUTS    6.9820    0.0000    6.3470 303  ONLY
 GS POS UAB1  1   OUTS    7.7824    0.0000    7.6865 303  ONLY
 GS POS UAC1  1   OUTS    9.6331    0.0000   10.8385 305  ONLY
 GS POS UAD1  1   OUTS   10.2803    0.0000   11.8435 305  ONLY
 GS POS UAE1  1   OUTS   11.8692    0.0000   13.8310 307  ONLY
 GS POS UAF1  1   OUTS   12.6982    0.0000   14.3901 307  ONLY
 GS POS UAH1  1   OUTS   15.4022    0.0000   17.2773 309  ONLY
 GS POS UAI1  1   OUTS   27.0874    0.0000   17.0092 310  ONLY
 GS POS UAI2  1   OUTS   16.8020    0.0000   26.4620 311  ONLY
 GS POS UAJ1  1   OUTS   28.3164    0.0000   18.6774 310  ONLY
 GS POS UAJ2  1   OUTS   18.2443    0.0000   27.7523 311  ONLY
 GS POS UAK1  1   OUTS   40.5735    0.0000   18.3867 312  ONLY
 GS POS UAK2  1   OUTS   33.3205    0.0000   33.3808 313  ONLY
 GS POS UAK3  1   OUTS   20.3007    0.0000   41.3524 314  ONLY
 GS POS UAK4  1   OUTS   12.3407    0.0000   38.4551 314  ONLY
 GS POS UAL1  1   OUTS   41.5131    0.0000   18.0447 312  ONLY
 GS POS UAL3  1   OUTS   20.0527    0.0000   42.3262 314  ONLY
 GS POS UAL4  1   OUTS   12.0927    0.0000   39.4290 314  ONLY
 GS POS UAM1  1   OUTS   49.2842    0.0000   23.2144 316  ONLY
 GS POS UAM2  1   OUTS   44.6738    0.0000   44.7539 317  ONLY
 GS POS UAM3  1   OUTS   26.7734    0.0000   51.4654 318  ONLY
 GS POS UAM4  1   OUTS   13.9787    0.0000   44.0783 318  ONLY
 GS POS UAN2  1   OUTS   45.8251    0.0000   45.7241 317  ONLY
 GS POS UAN4  1   OUTS   13.6519    0.0000   45.0444 318  ONLY
 GS POS UAO1  1   OUTS   59.1920    0.0000   27.0089 320  ONLY
 GS POS UAO2  1   OUTS   56.1436    0.0000   56.1236 321  ONLY
 GS POS UAO3  1   OUTS   30.4711    0.0000   61.5822 322  ONLY
 GS POS UAO4  1   OUTS   13.2057    0.0000   49.4928 322  ONLY
 GS POS UAP1  1   OUTS   60.0111    0.0000   26.4353 320  ONLY
 GS POS UAP3  1   OUTS   30.5528    0.0000   62.8602 322  ONLY
 GS POS UAP4  1   OUTS   13.2874    0.0000   50.7708 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UAA1  2   OUTS   -6.9820    0.0000    6.3470 324  ONLY
 GS POS UAB1  2   OUTS   -7.7824    0.0000    7.6865 324  ONLY
 GS POS UAC1  2   OUTS   -9.6331    0.0000   10.8385 326  ONLY
 GS POS UAD1  2   OUTS  -10.2803    0.0000   11.8435 326  ONLY
 GS POS UAE1  2   OUTS  -11.8692    0.0000   13.8310 328  ONLY
 GS POS UAF1  2   OUTS  -12.6982    0.0000   14.3901 328  ONLY
 GS POS UAH1  2   OUTS  -15.4022    0.0000   17.2773 330  ONLY
 GS POS UAI1  2   OUTS  -27.0874    0.0000   17.0092 331  ONLY
 GS POS UAI2  2   OUTS  -16.8020    0.0000   26.4620 332  ONLY
 GS POS UAJ1  2   OUTS  -28.3164    0.0000   18.6774 331  ONLY
 GS POS UAJ2  2   OUTS  -18.2443    0.0000   27.7523 332  ONLY
 GS POS UAK1  2   OUTS  -40.5735    0.0000   18.3867 333  ONLY
 GS POS UAK2  2   OUTS  -33.3205    0.0000   33.3808 334  ONLY
 GS POS UAK3  2   OUTS  -20.3007    0.0000   41.3524 335  ONLY
 GS POS UAK4  2   OUTS  -12.3407    0.0000   38.4551 336  ONLY
 GS POS UAL1  2   OUTS  -41.5131    0.0000   18.0447 333  ONLY
 GS POS UAL3  2   OUTS  -20.0527    0.0000   42.3262 335  ONLY
 GS POS UAL4  2   OUTS  -12.0927    0.0000   39.4290 336  ONLY
 GS POS UAM1  2   OUTS  -49.2842    0.0000   23.2144 337  ONLY
 GS POS UAM2  2   OUTS  -44.6738    0.0000   44.7539 338  ONLY
 GS POS UAM3  2   OUTS  -26.7734    0.0000   51.4654 339  ONLY
 GS POS UAM4  2   OUTS  -13.9787    0.0000   44.0783 340  ONLY
 GS POS UAN2  2   OUTS  -45.8251    0.0000   45.7241 338  ONLY
 GS POS UAN4  2   OUTS  -13.6519    0.0000   45.0444 340  ONLY
 GS POS UAO1  2   OUTS  -59.1920    0.0000   27.0089 341  ONLY
 GS POS UAO2  2   OUTS  -56.1436    0.0000   56.1236 342  ONLY
 GS POS UAO3  2   OUTS  -30.4711    0.0000   61.5822 343  ONLY
 GS POS UAO4  2   OUTS  -13.2057    0.0000   49.4928 344  ONLY
 GS POS UAP1  2   OUTS  -60.0111    0.0000   26.4353 341  ONLY
 GS POS UAP3  2   OUTS  -30.5528    0.0000   62.8602 343  ONLY
 GS POS UAP4  2   OUTS  -13.2874    0.0000   50.7708 344  ONLY
 !
 ! Spectrometer: positions of windows in alu. planes
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UWA1  1   UAA1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWB1  1   UAB1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWC1  1   UAC1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWD1  1   UAD1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWE1  1   UAE1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWF1  1   UAF1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWH1  1   UAH1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWI1  1   UAI1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWI2  1   UAI2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWJ1  1   UAJ1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWJ2  1   UAJ2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK1  1   UAK1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK2  1   UAK2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK3  1   UAK3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK4  1   UAK4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWL1  1   UAL1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWL3  1   UAL3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWL4  1   UAL4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM1  1   UAM1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM2  1   UAM2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM3  1   UAM3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM4  1   UAM4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWN2  1   UAN2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWN4  1   UAN4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO1  1   UAO1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO2  1   UAO2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO3  1   UAO3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO4  1   UAO4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWP1  1   UAP1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWP3  1   UAP3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWP4  1   UAP4    0.0000    0.0000    0.0000   0  ONLY
 !
 ! Spectrometer: positions of shims
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS USI2  1   OUTS   16.8567   -5.2500   26.8077 311  ONLY
 GS POS USJ1  1   OUTS   28.0238   -5.2500   18.3212 310  ONLY
 GS POS USK2  1   OUTS   33.5680   -5.2500   33.6283 313  ONLY
 GS POS USM2  1   OUTS   44.9213   -5.2500   45.0014 317  ONLY
 GS POS USO2  1   OUTS   56.3911   -5.2500   56.3711 321  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS USI2  2   OUTS  -16.8567   -5.2500   26.8077 332  ONLY
 GS POS USJ1  2   OUTS  -28.0238   -5.2500   18.3212 331  ONLY
 GS POS USK2  2   OUTS  -33.5680   -5.2500   33.6283 334  ONLY
 GS POS USM2  2   OUTS  -44.9213   -5.2500   45.0014 338  ONLY
 GS POS USO2  2   OUTS  -56.3911   -5.2500   56.3711 342  ONLY
 !
 ! Spectrometer: positions of cooling tubes
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UCAB  1   OUTS    7.8348    4.7500    4.1590 303  ONLY
 GS POS UCCD  1   OUTS   11.8963    4.7500    6.9845 305  ONLY
 GS POS UCEF  1   OUTS   16.2960    4.7500    8.1621 307  ONLY
 GS POS UCGH  1   OUTS   18.3919    4.7500   12.9364 309  ONLY
 GS POS UCI1  1   OUTS   28.1439    5.2500   13.8968 310  ONLY
 GS POS UCI2  1   OUTS   16.7123    5.2500   27.4887 311  ONLY
 GS POS UCK1  1   OUTS   39.1772    5.2500   13.0886 312  ONLY
 GS POS UCK2  1   OUTS   34.0276    5.2500   34.0879 313  ONLY
 GS POS UCK3  1   OUTS   15.7059    5.2500   40.2121 314  ONLY
 GS POS UCM1  1   OUTS   46.9734    5.2500   18.2119 316  ONLY
 GS POS UCM2  1   OUTS   45.3809    5.2500   45.4610 317  ONLY
 GS POS UCM3  1   OUTS   20.5487    5.2500   48.4489 318  ONLY
 GS POS UCO1  1   OUTS   57.0125    5.2500   23.0245 320  ONLY
 GS POS UCO2  1   OUTS   56.8507    5.2500   56.8307 321  ONLY
 GS POS UCO3  1   OUTS   24.7518    5.2500   58.1878 322  ONLY
 GS POS UCAB  2   OUTS    7.8348   -4.7500    4.1590 303  ONLY
 GS POS UCCD  2   OUTS   11.8963   -4.7500    6.9845 305  ONLY
 GS POS UCEF  2   OUTS   16.2960   -4.7500    8.1621 307  ONLY
 GS POS UCGH  2   OUTS   18.3919   -4.7500   12.9364 309  ONLY
 GS POS UCI1  2   OUTS   28.1439   -5.2500   13.8968 310  ONLY
 GS POS UCI2  2   OUTS   16.7123   -5.2500   27.4887 311  ONLY
 GS POS UCK1  2   OUTS   39.1772   -5.2500   13.0886 312  ONLY
 GS POS UCK2  2   OUTS   34.0276   -5.2500   34.0879 313  ONLY
 GS POS UCK3  2   OUTS   15.7059   -5.2500   40.2121 314  ONLY
 GS POS UCM1  2   OUTS   46.9734   -5.2500   18.2119 316  ONLY
 GS POS UCM2  2   OUTS   45.3809   -5.2500   45.4610 317  ONLY
 GS POS UCM3  2   OUTS   20.5487   -5.2500   48.4489 318  ONLY
 GS POS UCO1  2   OUTS   57.0125   -5.2500   23.0245 320  ONLY
 GS POS UCO2  2   OUTS   56.8507   -5.2500   56.8307 321  ONLY
 GS POS UCO3  2   OUTS   24.7518   -5.2500   58.1878 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UCAB  3   OUTS   -7.8348    4.7500    4.1590 324  ONLY
 GS POS UCCD  3   OUTS  -11.8963    4.7500    6.9845 326  ONLY
 GS POS UCEF  3   OUTS  -16.2960    4.7500    8.1621 328  ONLY
 GS POS UCGH  3   OUTS  -18.3919    4.7500   12.9364 330  ONLY
 GS POS UCI1  3   OUTS  -28.1439    5.2500   13.8968 331  ONLY
 GS POS UCI2  3   OUTS  -16.7123    5.2500   27.4887 332  ONLY
 GS POS UCK1  3   OUTS  -39.1772    5.2500   13.0886 333  ONLY
 GS POS UCK2  3   OUTS  -34.0276    5.2500   34.0879 334  ONLY
 GS POS UCK3  3   OUTS  -15.7059    5.2500   40.2121 335  ONLY
 GS POS UCM1  3   OUTS  -46.9734    5.2500   18.2119 337  ONLY
 GS POS UCM2  3   OUTS  -45.3809    5.2500   45.4610 338  ONLY
 GS POS UCM3  3   OUTS  -20.5487    5.2500   48.4489 339  ONLY
 GS POS UCO1  3   OUTS  -57.0125    5.2500   23.0245 341  ONLY
 GS POS UCO2  3   OUTS  -56.8507    5.2500   56.8307 342  ONLY
 GS POS UCO3  3   OUTS  -24.7518    5.2500   58.1878 343  ONLY
 GS POS UCAB  4   OUTS   -7.8348   -4.7500    4.1590 324  ONLY
 GS POS UCCD  4   OUTS  -11.8963   -4.7500    6.9845 326  ONLY
 GS POS UCEF  4   OUTS  -16.2960   -4.7500    8.1621 328  ONLY
 GS POS UCGH  4   OUTS  -18.3919   -4.7500   12.9364 330  ONLY
 GS POS UCI1  4   OUTS  -28.1439   -5.2500   13.8968 331  ONLY
 GS POS UCI2  4   OUTS  -16.7123   -5.2500   27.4887 332  ONLY
 GS POS UCK1  4   OUTS  -39.1772   -5.2500   13.0886 333  ONLY
 GS POS UCK2  4   OUTS  -34.0276   -5.2500   34.0879 334  ONLY
 GS POS UCK3  4   OUTS  -15.7059   -5.2500   40.2121 335  ONLY
 GS POS UCM1  4   OUTS  -46.9734   -5.2500   18.2119 337  ONLY
 GS POS UCM2  4   OUTS  -45.3809   -5.2500   45.4610 338  ONLY
 GS POS UCM3  4   OUTS  -20.5487   -5.2500   48.4489 339  ONLY
 GS POS UCO1  4   OUTS  -57.0125   -5.2500   23.0245 341  ONLY
 GS POS UCO2  4   OUTS  -56.8507   -5.2500   56.8307 342  ONLY
 GS POS UCO3  4   OUTS  -24.7518   -5.2500   58.1878 343  ONLY
 !
 ! Spectrometer: positions of cooling tubes (uprights)
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UU01  1   OUTS    8.5924    0.0000   -0.6241 303  ONLY
 GS POS UU02  1   OUTS    9.2963    0.0000   -5.0687 303  ONLY
 GS POS UU01  2   OUTS   13.4599    0.0000    3.4728 305  ONLY
 GS POS UU02  2   OUTS   17.3239    0.0000   -5.2059 305  ONLY
 GS POS UU01  3   OUTS   19.7684    0.0000    3.0141 307  ONLY
 GS POS UU02  3   OUTS   25.0807    0.0000   -4.8618 307  ONLY
 GS POS UU01  4   OUTS   23.1494    0.0000    7.2666 309  ONLY
 GS POS UU02  4   OUTS   29.2559    0.0000   -0.0109 309  ONLY
 GS POS UU04  1   OUTS   30.1941    0.0000    2.2695 310  ONLY
 GS POS UU03  1   OUTS    7.6646    0.0000   28.9217 311  ONLY
 GS POS UU04  2   OUTS   35.1187    0.0000    1.9380 312  ONLY
 GS POS UU03  2   OUTS    6.9981    0.0000   37.0427 314  ONLY
 GS POS UU03  3   OUTS   24.6531    0.0000   43.4686 314  ONLY
 GS POS UU04  3   OUTS   37.8324    0.0000    2.3792 316  ONLY
 GS POS UU03  4   OUTS    6.9165    0.0000   40.5783 318  ONLY
 GS POS UU03  5   OUTS   34.4468    0.0000   56.4729 318  ONLY
 GS POS UU04  4   OUTS   43.4432    0.0000    3.6456 320  ONLY
 GS POS UU03  6   OUTS    6.8754    0.0000   45.6706 322  ONLY
 GS POS UU03  7   OUTS   42.9031    0.0000   70.8976 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UU01  5   OUTS   -7.8102    0.0000    4.3143 324  ONLY
 GS POS UU02  5   OUTS   -9.2963    0.0000   -5.0687 324  ONLY
 GS POS UU01  6   OUTS  -13.4599    0.0000    3.4728 326  ONLY
 GS POS UU02  6   OUTS  -17.3239    0.0000   -5.2059 326  ONLY
 GS POS UU01  7   OUTS  -19.7684    0.0000    3.0141 328  ONLY
 GS POS UU02  7   OUTS  -25.0807    0.0000   -4.8618 328  ONLY
 GS POS UU01  8   OUTS  -23.1494    0.0000    7.2666 330  ONLY
 GS POS UU02  8   OUTS  -29.2559    0.0000   -0.0109 330  ONLY
 GS POS UU04  5   OUTS  -30.1941    0.0000    2.2695 331  ONLY
 GS POS UU03  8   OUTS   -7.6646    0.0000   28.9217 332  ONLY
 GS POS UU04  6   OUTS  -35.1187    0.0000    1.9380 333  ONLY
 GS POS UU03  9   OUTS   -6.9981    0.0000   37.0427 335  ONLY
 GS POS UU03 10   OUTS  -24.6531    0.0000   43.4686 335  ONLY
 GS POS UU04  7   OUTS  -37.8324    0.0000    2.3792 337  ONLY
 GS POS UU03 11   OUTS   -6.9165    0.0000   40.5783 339  ONLY
 GS POS UU03 12   OUTS  -34.4468    0.0000   56.4729 339  ONLY
 GS POS UU04  8   OUTS  -43.4432    0.0000    3.6456 341  ONLY
 GS POS UU03 13   OUTS   -6.8754    0.0000   45.6706 343  ONLY
 GS POS UU03 14   OUTS  -42.9031    0.0000   70.8976 343  ONLY
 !
 ! 5) MAGNET AND MAGNETIC FIELD
 !
 !
 ! Pole faces support structures: volumes
 !
 ! elements of the magnet support structures
 ! filled with air
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU YYOK  'BOX '   3 109.0000  30.0000  70.0000    3
 GS VOLU YYPL  'BOX '   3 203.0000   2.5000  70.0000    3
 GS VOLU YSB1  'BOX '   3   2.5000  37.0500  70.0000    3
 GS VOLU YSB2  'BOX '   3   8.5750  37.0500   2.5000    3
 GS VOLU YSBS  'BOX '   3  55.7584   2.5000  10.0000    3
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU YSBT  'TRAP'   3   2.5000   0.0000   0.0000  27.0341  42.3535   0.0001  38.0728  27.0341  42.3535   0.0001  38.0728   11
 !
 ! Pole faces support structures: rotations
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 100   90.00  -32.55   90.00   57.45    0.00    0.00 !YSBS,
 GS ROTM 101   90.00   32.55   90.00  122.55    0.00    0.00 ! YSBS
 GS ROTM 102   90.00  180.00   90.00   90.00  180.00    0.00 ! YSBT
 GS ROTM 103   90.00    0.00   90.00  270.00  180.00    0.00 ! YSBT
 GS ROTM 104   90.00  180.00   90.00  270.00    0.00    0.00 ! YSBT
 !
 ! Pole faces support structures: positions
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS YYOK  1   OUTS    0.0000   72.0500   43.0000   0  ONLY
 GS POS YYOK  2   OUTS    0.0000  -72.0500   43.0000   0  ONLY
 GS POS YYPL  1   OUTS    0.0000   39.5500   43.0000   0  ONLY
 GS POS YYPL  2   OUTS    0.0000  -39.5500   43.0000   0  ONLY
 GS POS YSB1  1   OUTS  200.5000    0.0000   43.0000   0  ONLY
 GS POS YSB1  2   OUTS -200.5000    0.0000   43.0000   0  ONLY
 GS POS YSB2  1   OUTS  189.4250    0.0000   77.9800   0  MANY
 GS POS YSB2  2   OUTS  189.4250    0.0000   43.0000   0  MANY
 GS POS YSB2  3   OUTS  189.4250    0.0000    8.0200   0  MANY
 GS POS YSB2  4   OUTS -189.4250    0.0000   77.9800   0  MANY
 GS POS YSB2  5   OUTS -189.4250    0.0000   43.0000   0  MANY
 GS POS YSB2  6   OUTS -189.4250    0.0000    7.4200   0  MANY
 GS POS YSBS  1   OUTS  154.6549   69.9427   77.9800 100  ONLY
 GS POS YSBS  2   OUTS  154.6549  -69.9427   77.9800 101  ONLY
 GS POS YSBS  3   OUTS -154.6549   69.9427   77.9800 101  ONLY
 GS POS YSBS  4   OUTS -154.6549  -69.9427   77.9800 100  ONLY
 GS POS YSBS  5   OUTS  154.6549   69.9427    7.4200 100  ONLY
 GS POS YSBS  6   OUTS  154.6549  -69.9427    7.4200 101  ONLY
 GS POS YSBS  7   OUTS -154.6549   69.9427    7.4200 101  ONLY
 GS POS YSBS  8   OUTS -154.6549  -69.9427    7.4200 100  ONLY
 GS POS YSBT  1   OUTS -130.1768   69.0841   77.9800   0  ONLY
 GS POS YSBT  2   OUTS -130.1768   69.0841    7.2400   0  ONLY
 GS POS YSBT  3   OUTS  130.1768   69.0841   77.9800 102  ONLY
 GS POS YSBT  4   OUTS  130.1768   69.0841    7.4200 102  ONLY
 GS POS YSBT  5   OUTS -130.1768  -69.0841   77.9800 103  ONLY
 GS POS YSBT  6   OUTS -130.1768  -69.0841    7.4200 103  ONLY
 GS POS YSBT  7   OUTS  130.1768  -69.0841   77.9800 104  ONLY
 GS POS YSBT  8   OUTS  130.1768  -69.0841    8.0200 104  ONLY
 !
 ! Magnet pole faces
 !
 !
 ! Magnet pole faces volumes
 !
 !       name  shape  mat.  lz/2     r_il     r_ol     r_ih     r_oh     phi1     phi2    # par
 GS VOLU YY2D  'CONS'   5   8.7500   0.0000  50.2000   0.0000  55.9000  56.8756 258.1244    7
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU YY2B  'TRAP'   5   8.7500   0.0000   0.0000  25.0819   1.9083   0.0000   0.0000  25.0819   1.9083   0.0000   0.0000   11
 GS VOLU YY2A  'TRAP'   5   8.7500   0.0000   0.0000  15.2735  26.2446   0.0000  23.9862  15.2735  26.2446   0.0000  23.9862   11
 GS VOLU YY2E  'TRAP'   5   2.8479  57.6838 256.3494   8.7500   1.9083   1.9083   0.0000   0.0000   0.0000   0.0000   0.0000   11
 GS VOLU YY2C  'TRAP'   5   2.8479  57.6838 283.6506   8.7500   1.9083   1.9083   0.0000   0.0000   0.0000   0.0000   0.0000   11
 !       name  shape  mat.  lz/2     r_il     r_ol     r_ih     r_oh     phi1     phi2    # par
 GS VOLU YY1D  'CONS'   5   5.9000   0.0000  36.2000   0.0000  50.2000  52.5184 262.4816    7
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU YY1B  'TRAP'   5   5.9000   0.0000   0.0000  17.8232   6.3067   0.0000   0.0000  17.8232   6.3067   0.0000   0.0000   11
 GS VOLU YY1A  'TRAP'   5   5.9000   0.0000   0.0000  15.2735  16.0389   0.0000   6.3249  15.2735  16.0389   0.0000   6.3249   11
 GS VOLU YY1E  'TRAP'   5   6.8930  37.4254 214.0042   5.9000   6.3067   6.3067   0.0000   0.0000   0.0000   0.0000   0.0000   11
 GS VOLU YY1C  'TRAP'   5   6.8930  37.4254 325.9958   5.9000   6.3067   6.3067   0.0000   0.0000   0.0000   0.0000   0.0000   11
 !       name  shape  mat.  lz/2     r_il     r_ol     r_ih     r_oh     phi1     phi2    # par
 GS VOLU YC2D  'CONS'   7   8.7500  50.2000  63.0000  55.9000  68.5000  56.8756 258.1244    7
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU YC2A  'TRAP'   7   8.7500  11.2774   0.0000   5.8000  26.2446  26.2446   0.0000   5.8000  29.7342  29.7342   0.0000   11
 !       name  shape  mat.  lz/2     r_il     r_ol     r_ih     r_oh     phi1     phi2    # par
 GS VOLU YC1D  'CONS'   7   5.3500  37.5051  54.2000  50.2000  63.0000  52.5184 262.4816    7
 GS VOLU YC1H  'CONS'   3   2.2314  37.5051  42.8000  42.7900  42.8000  52.5184 262.4816    7
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU YC1A  'TRAP'   7   5.3500  40.5553   0.0000   5.8000  17.0880  17.0880   0.0000   5.8000  26.2446  26.2446   0.0000   11
 !       name  shape  mat.  lz/2     r_il     r_ol     r_ih     r_oh     phi1     phi2    # par
 GS VOLU YC1G  'CONS'   7   5.3500   0.0000  11.6000   0.0000  11.6000 315.0000 360.0000    7
 GS VOLU YC2G  'CONS'   7   8.7500   0.0000  11.6000   0.0000  11.6000 315.0000 360.0000    7
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU YC1E  'TRAP'   7   5.3500  43.7261 303.5582   6.6241   0.0000   7.5649 -11.0787   5.0787   0.0000   5.8000 -11.0787   11
 GS VOLU YC1C  'TRAP'   7   5.3500  43.7261 236.4418   6.6241   0.0000   7.5649  11.0787   5.0787   0.0000   5.8000  11.0787   11
 GS VOLU YC2E  'TRAP'   7   8.7500  17.6703 302.7282   5.3599   0.0000   5.8921  -5.8726   5.2762   0.0000   5.8000  -5.8726   11
 GS VOLU YC2C  'TRAP'   7   8.7500  17.6703 237.2718   5.3599   0.0000   5.8921   5.8726   5.2762   0.0000   5.8000   5.8726   11
 !
 ! Magnet pole faces: rot. matrices
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 105   90.00    0.00    0.00    0.00   90.00   90.00 ! YC2D
 GS ROTM 106   90.00  180.00    0.00    0.00   90.00  270.00 ! YC2D
 GS ROTM 107  135.00  180.00  135.00    0.00   90.00   90.00 ! YC2D
 GS ROTM 108  135.00    0.00  135.00  180.00   90.00  270.00 ! YC2D
 GS ROTM 109  125.30    0.00  144.70  180.00   90.00   90.00 ! YY2B
 GS ROTM 110   54.70    0.00  144.70    0.00   90.00   90.00 ! YY2B
 GS ROTM 111   80.30  180.00    9.70    0.00   90.00   90.00 ! YY2B
 GS ROTM 112   99.70  180.00    9.70  180.00   90.00   90.00 ! YY2B
 GS ROTM 113  180.00    0.00   90.00  180.00   90.00   90.00 ! YY2A
 GS ROTM 114  180.00    0.00   90.00    0.00   90.00  270.00 ! YY2A
 GS ROTM 115   45.00    0.00   45.00  180.00   90.00  270.00 ! YY2A
 GS ROTM 116   45.00  180.00   45.00    0.00   90.00   90.00 ! YY2A
 GS ROTM 117   54.70  180.00   90.00  270.00   35.30    0.00 ! YY2C
 GS ROTM 118  125.30  180.00   90.00  270.00   35.30  180.00 ! YY2E
 GS ROTM 119   99.70    0.00   90.00  270.00  170.30  180.00 ! YY2E
 GS ROTM 120   80.30    0.00   90.00  270.00  170.30    0.00 ! YY2C
 GS ROTM 121  125.30    0.00   90.00   90.00   35.30    0.00 ! YY2E
 GS ROTM 122   54.70    0.00   90.00   90.00   35.30  180.00 ! YY2C
 GS ROTM 123   99.70  180.00   90.00   90.00  170.30    0.00 ! YY2E
 GS ROTM 124   80.30  180.00   90.00   90.00  170.30  180.00 ! YY2C
 GS ROTM 125   90.00    0.00    0.00    0.00   90.00   90.00 ! YY1D
 GS ROTM 126  135.00  180.00  135.00    0.00   90.00   90.00 ! YY1D
 GS ROTM 127  135.00    0.00  135.00  180.00   90.00  270.00 ! YY1D
 GS ROTM 128   90.00  180.00    0.00    0.00   90.00  270.00 ! YY1D
 GS ROTM 129  137.51    0.00  132.49  180.00   90.00   90.00 ! YY1B
 GS ROTM 130   42.49    0.00  132.49    0.00   90.00   90.00 ! YY1B
 GS ROTM 131   92.51  180.00   -2.51    0.00   90.00   90.00 ! YY1B
 GS ROTM 132   87.49  180.00   -2.51  180.00   90.00   90.00 ! YY1B
 GS ROTM 133  180.00    0.00   90.00  180.00   90.00   90.00 ! YY1A
 GS ROTM 134  180.00    0.00   90.00    0.00   90.00  270.00 ! YY1A
 GS ROTM 135   45.00    0.00   45.00  180.00   90.00  270.00 ! YY1A
 GS ROTM 136   45.00  180.00   45.00    0.00   90.00   90.00 ! YY1A
 GS ROTM 137   42.49  180.00   90.00  270.00   47.51    0.00 ! YY1C
 GS ROTM 138  137.51  180.00   90.00  270.00   47.51  180.00 ! YY1E
 GS ROTM 139   87.49    0.00   90.00  270.00  182.51  180.00 ! YY1E
 GS ROTM 140   92.51    0.00   90.00  270.00  182.51    0.00 ! YY1C
 GS ROTM 141   87.49  180.00   90.00   90.00  182.51    0.00 ! YY1E
 GS ROTM 142   92.51  180.00   90.00   90.00  182.51  180.00 ! YY1C
 GS ROTM 143  137.51    0.00   90.00   90.00   47.51    0.00 ! YY1E
 GS ROTM 144   42.49    0.00   90.00   90.00   47.51  180.00 ! YY1C
 GS ROTM 145    0.00    0.00   90.00    0.00   90.00   90.00 ! YC2A
 GS ROTM 146  135.00  180.00   45.00  180.00   90.00   90.00 ! YC2A
 GS ROTM 147  135.00    0.00  135.00  180.00   90.00   90.00 ! YC2A
 GS ROTM 148    0.00    0.00   90.00  180.00   90.00  270.00 ! YC2A
 GS ROTM 149  135.00  180.00  135.00    0.00   90.00  270.00 ! YC2A
 GS ROTM 150  135.00    0.00   45.00    0.00   90.00  270.00 ! YC2A
 GS ROTM 151   90.00    0.00  180.00    0.00   90.00   90.00 ! YC1E
 GS ROTM 152   45.00  180.00   45.00    0.00   90.00   90.00 ! YC1C
 GS ROTM 153  135.00  180.00   45.00  180.00   90.00   90.00 ! YC1E
 GS ROTM 154   90.00  180.00  180.00    0.00   90.00  270.00 ! YC1C
 GS ROTM 155  135.00    0.00   45.00    0.00   90.00  270.00 ! YC2E
 GS ROTM 156   45.00    0.00   45.00  180.00   90.00  270.00 ! YC2C
 !
 ! Magnet pole faces: positions
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS YY2D  1   OUTS  -43.0000   28.3000   51.4853 105  ONLY
 GS POS YY2D  3   OUTS   43.0000   28.3000   51.4853 107  ONLY
 GS POS YY2D  2   OUTS   43.0000  -28.3000   51.4853 106  ONLY
 GS POS YY2D  4   OUTS  -43.0000  -28.3000   51.4853 108  ONLY
 GS POS YY2B  1   OUTS  -28.5052   28.3000   71.9548 109  ONLY
 GS POS YY2B  2   OUTS   28.5052   28.3000   71.9548 110  ONLY
 GS POS YY2B  3   OUTS  -47.2247   28.3000   26.7618 111  ONLY
 GS POS YY2B  4   OUTS   47.2247   28.3000   26.7618 112  ONLY
 GS POS YY2B  5   OUTS  -28.5052  -28.3000   71.9548 109  ONLY
 GS POS YY2B  6   OUTS   28.5052  -28.3000   71.9548 110  ONLY
 GS POS YY2B  7   OUTS  -47.2247  -28.3000   26.7618 111  ONLY
 GS POS YY2B  8   OUTS   47.2247  -28.3000   26.7618 112  ONLY
 GS POS YY2A  1   OUTS  -27.7265   28.3000   58.2811 113  ONLY
 GS POS YY2A  2   OUTS   27.7265   28.3000   58.2811 114  ONLY
 GS POS YY2A  3   OUTS  -37.0054   28.3000   35.8799 115  ONLY
 GS POS YY2A  4   OUTS   37.0054   28.3000   35.8799 116  ONLY
 GS POS YY2A  5   OUTS  -27.7265  -28.3000   58.2811 113  ONLY
 GS POS YY2A  6   OUTS   27.7265  -28.3000   58.2811 114  ONLY
 GS POS YY2A  7   OUTS  -37.0054  -28.3000   35.8799 115  ONLY
 GS POS YY2A  8   OUTS   37.0054  -28.3000   35.8799 116  ONLY
 GS POS YY2C  1   OUTS  -13.2317   32.6750   95.3625 117  ONLY
 GS POS YY2C  2   OUTS   52.9765   32.6750   -0.5900 120  ONLY
 GS POS YY2E  1   OUTS   13.2317   32.6750   95.3625 118  ONLY
 GS POS YY2E  2   OUTS  -52.9765   32.6750   -0.5900 119  ONLY
 GS POS YY2C  3   OUTS   13.2317  -32.6750   95.3625 122  ONLY
 GS POS YY2C  4   OUTS  -52.9765  -32.6750   -0.5900 124  ONLY
 GS POS YY2E  3   OUTS   52.9765  -32.6750   -0.5900 123  ONLY
 GS POS YY2E  4   OUTS  -13.2317  -32.6750   95.3625 121  ONLY
 GS POS YY1D  1   OUTS  -43.0000   13.6500   51.4853 125  ONLY
 GS POS YY1D  2   OUTS   43.0000   13.6500   51.4853 126  ONLY
 GS POS YY1D  3   OUTS  -43.0000  -13.6500   51.4853 127  ONLY
 GS POS YY1D  4   OUTS   43.0000  -13.6500   51.4853 128  ONLY
 GS POS YY1B  1   OUTS  -29.8563   13.6500   63.5231 129  ONLY
 GS POS YY1B  2   OUTS   29.8563   13.6500   63.5231 130  ONLY
 GS POS YY1B  3   OUTS  -42.2180   13.6500   33.6792 131  ONLY
 GS POS YY1B  4   OUTS   42.2180   13.6500   33.6792 132  ONLY
 GS POS YY1B  5   OUTS  -29.8563  -13.6500   63.5231 129  ONLY
 GS POS YY1B  6   OUTS  -42.2180  -13.6500   33.6792 131  ONLY
 GS POS YY1B  7   OUTS   29.8563  -13.6500   63.5231 130  ONLY
 GS POS YY1B  8   OUTS   42.2180  -13.6500   33.6792 132  ONLY
 GS POS YY1A  1   OUTS  -27.7265   13.6500   53.1782 133  ONLY
 GS POS YY1A  2   OUTS   27.7265   13.6500   53.1782 134  ONLY
 GS POS YY1A  3   OUTS  -33.3971   13.6500   39.4882 135  ONLY
 GS POS YY1A  4   OUTS   33.3971   13.6500   39.4882 136  ONLY
 GS POS YY1A  5   OUTS  -27.7265  -13.6500   53.1782 133  ONLY
 GS POS YY1A  6   OUTS  -33.3971  -13.6500   39.4882 135  ONLY
 GS POS YY1A  7   OUTS   27.7265  -13.6500   53.1782 134  ONLY
 GS POS YY1A  8   OUTS   33.3971  -13.6500   39.4882 136  ONLY
 GS POS YY1C  1   OUTS  -14.5828   16.6000   83.4412 137  ONLY
 GS POS YY1C  2   OUTS   45.5022   16.6000    8.7950 140  ONLY
 GS POS YY1E  1   OUTS   14.5828   16.6000   83.4412 138  ONLY
 GS POS YY1E  2   OUTS  -45.5022   16.6000    8.7950 139  ONLY
 GS POS YY1C  3   OUTS  -45.5022  -16.6000    8.7950 142  ONLY
 GS POS YY1C  4   OUTS   14.5828  -16.6000   83.4412 144  ONLY
 GS POS YY1E  3   OUTS  -14.5828  -16.6000   83.4412 143  ONLY
 GS POS YY1E  4   OUTS   45.5022  -16.6000    8.7950 141  ONLY
 GS POS YC2D  1   OUTS  -43.0000   28.3000   51.4853 105  ONLY
 GS POS YC2D  2   OUTS   43.0000   28.3000   51.4853 107  ONLY
 GS POS YC2D  3   OUTS  -43.0000  -28.3000   51.4853 108  ONLY
 GS POS YC2D  4   OUTS   43.0000  -28.3000   51.4853 106  ONLY
 GS POS YC2A  1   OUTS   -6.6530   28.3000   66.8217 145  ONLY
 GS POS YC2A  2   OUTS    6.6530   28.3000   66.8217 145  ONLY
 GS POS YC2A  3   OUTS  -28.1433   28.3000   14.9396 146  ONLY
 GS POS YC2A  4   OUTS   28.1433   28.3000   14.9396 147  ONLY
 GS POS YC2A  5   OUTS   -6.6530  -28.3000   66.8217 148  ONLY
 GS POS YC2A  6   OUTS  -28.1433  -28.3000   14.9396 149  ONLY
 GS POS YC2A  7   OUTS    6.6530  -28.3000   66.8217 148  ONLY
 GS POS YC2A  8   OUTS   28.1433  -28.3000   14.9396 150  ONLY
 GS POS YC1D  1   OUTS  -43.0000   14.2000   51.4853 105  ONLY
 GS POS YC1D  2   OUTS   43.0000   14.2000   51.4853 107  ONLY
 GS POS YC1D  3   OUTS  -43.0000  -14.2000   51.4853 108  ONLY
 GS POS YC1D  4   OUTS   43.0000  -14.2000   51.4853 106  ONLY
 GS POS YC1H  1   YC1D    0.0000    0.0000   -3.1186   0  ONLY
 GS POS YC1A  1   OUTS   -6.6530   14.2000   60.4986 145  ONLY
 GS POS YC1A  2   OUTS    6.6530   14.2000   60.4986 145  ONLY
 GS POS YC1A  3   OUTS  -23.6722   14.2000   19.4107 146  ONLY
 GS POS YC1A  4   OUTS   23.6722   14.2000   19.4107 147  ONLY
 GS POS YC1A  5   OUTS   -6.6530  -14.2000   60.4986 148  ONLY
 GS POS YC1A  6   OUTS  -23.6722  -14.2000   19.4107 149  ONLY
 GS POS YC1A  7   OUTS    6.6530  -14.2000   60.4986 148  ONLY
 GS POS YC1A  8   OUTS   23.6722  -14.2000   19.4107 150  ONLY
 GS POS YC1G  1   OUTS  -12.4530   14.2000   38.8323 105  ONLY
 GS POS YC1G  2   OUTS   12.4530   14.2000   38.8323 107  ONLY
 GS POS YC2G  1   OUTS  -12.4530   28.3000   38.8323 105  ONLY
 GS POS YC2G  2   OUTS   12.4530   28.3000   38.8323 107  ONLY
 GS POS YC1G  3   OUTS  -12.4530  -14.2000   38.8323 105  ONLY
 GS POS YC1G  4   OUTS   12.4530  -14.2000   38.8323 107  ONLY
 GS POS YC2G  3   OUTS  -12.4530  -28.3000   38.8323 105  ONLY
 GS POS YC2G  4   OUTS   12.4530  -28.3000   38.8323 107  ONLY
 GS POS YC1C  1   OUTS  -47.3401   14.2000   -1.6632 152  ONLY
 GS POS YC1C  2   OUTS    8.4873   14.2000   92.1358 151  ONLY
 GS POS YC1E  1   OUTS   -8.4873   14.2000   92.1358 151  ONLY
 GS POS YC1E  2   OUTS   47.3401   14.2000   -1.6632 153  ONLY
 GS POS YC1C  3   OUTS   -8.4873  -14.2000   92.1358 154  ONLY
 GS POS YC1E  4   OUTS    8.4873  -14.2000   92.1358 154  ONLY
 GS POS YC1E  3   OUTS  -47.3401  -14.2000   -1.6632 155  ONLY
 GS POS YC1C  4   OUTS   47.3401  -14.2000   -1.6632 156  ONLY
 GS POS YC2C  1   OUTS  -53.1569   28.3000   -8.7102 152  ONLY
 GS POS YC2C  2   OUTS    7.6174   28.3000  101.2320 151  ONLY
 GS POS YC2E  1   OUTS   -7.6174   28.3000  101.2320 151  ONLY
 GS POS YC2E  2   OUTS   53.1569   28.3000   -8.7102 153  ONLY
 GS POS YC2C  3   OUTS   -7.6174  -28.3000  101.2320 154  ONLY
 GS POS YC2C  4   OUTS   53.1569  -28.3000   -8.7102 156  ONLY
 GS POS YC2E  3   OUTS  -53.1569  -28.3000   -8.7102 155  ONLY
 GS POS YC2E  4   OUTS    7.6174  -28.3000  101.2320 154  ONLY
 !
 ! 6) BEAM PIPE
 !
 !
 ! Beam pipe: vol. definitions
 !
 !       name  shape mat. r_i      r_o     lz/2  # par
 GS VOLU BEAM 'TUBE' 2   3.7100   3.8100 800.0000  3
 GS VOLU BEAV 'TUBE' 1   0.0000   3.7100 800.0000  3
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS BEAM  1   OUTS    0.0000    0.0000    0.0000   0  ONLY
 GS POS BEAV  1   OUTS    0.0000    0.0000    0.0000   0  ONLY
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 ! 7)TOF
 !
 !
 ! TOF: volu. defs
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU TPA1  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPA2  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPA3  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPA4  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPB1  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPB2  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPB3  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPB4  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPC1  'BOX '  10  24.0000  10.0000   0.4000    3
 GS VOLU TPC2  'BOX '  10  24.0000  10.0000   0.4000    3
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU TNA1  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNA2  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNA3  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNA4  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNB1  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNB2  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNB3  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNB4  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNC1  'BOX '  10  24.0000  10.0000   0.4000    3
 GS VOLU TNC2  'BOX '  10  24.0000  10.0000   0.4000    3
 !
 ! TOF: rot. matrices
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 400  175.00    0.00   90.00   90.00   85.00    0.00   ! TPA1
 GS ROTM 401  165.00    0.00   90.00   90.00   75.00    0.00   ! TPA2
 GS ROTM 402  155.00    0.00   90.00   90.00   65.00    0.00   ! TPA3
 GS ROTM 403  145.00    0.00   90.00   90.00   55.00    0.00   ! TPA4
 GS ROTM 404  137.50    0.00   90.00   90.00   47.50    0.00   ! TPB1
 GS ROTM 405  132.50    0.00   90.00   90.00   42.50    0.00   ! TPB2
 GS ROTM 406  127.50    0.00   90.00   90.00   37.50    0.00   ! TPB3
 GS ROTM 407  122.50    0.00   90.00   90.00   32.50    0.00   ! TPB4
 GS ROTM 408  117.50    0.00   90.00   90.00   27.50    0.00   ! TPC1
 GS ROTM 409  112.50    0.00   90.00   90.00   22.50    0.00   ! TPC2
 GS ROTM 910  175.00  180.00   90.00   90.00   85.00  180.00   ! TNA1
 GS ROTM 911  165.00  180.00   90.00   90.00   75.00  180.00   ! TNA2
 GS ROTM 912  155.00  180.00   90.00   90.00   65.00  180.00   ! TNA3
 GS ROTM 913  145.00  180.00   90.00   90.00   55.00  180.00   ! TNA4
 GS ROTM 914  137.50  180.00   90.00   90.00   47.50  180.00   ! TNB1
 GS ROTM 915  132.50  180.00   90.00   90.00   42.50  180.00   ! TNB2
 GS ROTM 916  127.50  180.00   90.00   90.00   37.50  180.00   ! TNB3
 GS ROTM 917  122.50  180.00   90.00   90.00   32.50  180.00   ! TNB4
 GS ROTM 918  117.50  180.00   90.00   90.00   27.50  180.00   ! TNC1
 GS ROTM 919  112.50  180.00   90.00   90.00   22.50  180.00   ! TNC2
 !
 ! TOF: positions
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS TPA1  1   OUTS  170.798    0.0000   14.943 400  ONLY
 GS POS TPA2  1   OUTS  165.609    0.0000   44.375 401  ONLY
 GS POS TPA3  1   OUTS  155.387    0.0000   72.458 402  ONLY
 GS POS TPA4  1   OUTS  140.444    0.0000   98.340 403  ONLY
 GS POS TPB1  1   OUTS  202.637    0.0000  185.683 404  ONLY
 GS POS TPB2  1   OUTS  185.683    0.0000  202.637 405  ONLY
 GS POS TPB3  1   OUTS  167.315    0.0000  218.049 406  ONLY
 GS POS TPB4  1   OUTS  147.674    0.0000  231.802 407  ONLY
 GS POS TPC1  1   OUTS  253.819    0.0000  487.581 408  ONLY
 GS POS TPC2  1   OUTS  210.357    0.0000  507.847 409  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS TNA1  1   OUTS -170.798    0.0000   14.943 910  ONLY
 GS POS TNA2  1   OUTS -165.609    0.0000   44.375 911  ONLY
 GS POS TNA3  1   OUTS -155.387    0.0000   72.458 912  ONLY
 GS POS TNA4  1   OUTS -140.444    0.0000   98.340 913  ONLY
 GS POS TNB1  1   OUTS -202.637    0.0000  185.683 914  ONLY
 GS POS TNB2  1   OUTS -185.683    0.0000  202.637 915  ONLY
 GS POS TNB3  1   OUTS -167.315    0.0000  218.049 916  ONLY
 GS POS TNB4  1   OUTS -147.674    0.0000  231.802 917  ONLY
 GS POS TNC1  1   OUTS -253.819    0.0000  487.581 918  ONLY
 GS POS TNC2  1   OUTS -210.357    0.0000  507.847 919  ONLY
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !  8) MULTIPLICITY and VERTEX
 !
 !  multiplicity: vol. defs of support structures
 !  for rings
 !       name  shape mat. r_i      r_o     lz/2  # par
 GS VOLU RRRR  'TUBE'   61 12.500   16.400    0.250    3 ! ring sup.
 GS VOLU RRTT  'TUBE'   6   1.2      1.6     16.5      3 ! ring sup. alu. tube
 GS VOLU RRTR  'TUBE'   6   0.0     10.0      3.0      3 ! ring sup. alu. tube
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU RRTB  'BOX '   6   9.5      1.5      2.0      3 ! ring sup. alu. box
 GS VOLU RRAL  'BOX '   6   4.52     0.1      1.6      3 ! ring sup. alu. plate
 GS VOLU RRCE  'BOX '  13   4.52     0.03     1.09     3 ! ring sup. alu. plate
 !  for octagon
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR1  'BOX '   6   0.750    2.950    0.100    3 ! rib's part
 GS VOLU ROR2  'BOX '   6   4.400    0.900    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR3  'TRAP'   6   1.4060  26.5651   0.0000   0.1000   0.5500   0.5500   0.0000   0.1000   1.9560   1.9560   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR4  'BOX '   6   0.550    1.988    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR5  'TRAP'   3   0.550    0.0000   0.0000   0.1000   1.9880   1.9880   0.0000   0.1000   2.4440   2.4440   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR6  'BOX '   3   0.200    1.800    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR7  'TRAP'   6   1.1810  26.5651   0.0000   0.1000   0.5500   0.5500   0.0000   0.1000   1.7310   1.7310   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR8  'BOX '   6   0.807    0.425    0.100    3 ! rib's part
 GS VOLU ROR9  'BOX '   3   0.250    4.356    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR0  'TRAP'   6   0.900    0.000    0.0000   0.1000   1.988    1.988    0.0000   0.1000   2.7335   2.7335   0.0000   11
 GS VOLU RORA  'TRAP'   6   0.900    0.000    0.0000   0.1000   1.988    1.988    0.0000   0.1000   2.7335   2.7335   0.0000   11
 GS VOLU RORB  'TRAP'   3   0.350   16.325  180.0000   0.1000   0.495    0.495    0.0000   0.1000   0.0      0.0      0.0000   11
 GS VOLU RORC  'TRAP'   6   0.550    0.0000   0.0000   0.1000   1.9880   1.9880   0.0000   0.1000   2.4440   2.4440   0.0000   11
 !
 GS VOLU RORD  'TRAP'   6  11.500   35.655    0.0000   0.1000  13.500   13.500    0.0000   0.1000  30.0000  30.000    0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU RORE  'BOX '   3  24.000     .100    1.250    3 ! rib's part
 !       name  shape mat.    r_i      r_o     lz/2  # par
 GS VOLU RORF  'TUBE'   3   0.000    6.500    0.100     3 ! ring sup. plane
 GS VOLU RORG  'TUBE'   3   0.000    4.500    0.100     3 ! ring sup. plane
 GS VOLU RORH  'TUBE'   3   0.000    3.200    0.100     3 ! ring sup. plane
 GS VOLU RORI  'TUBE'   6   0.000    0.300    7.075     3 ! ring sup. plane
 !
 !       name  shape mat.    r_i      r_o     lz/2  # par
 GS VOLU ROT1  'TUBE'   6   0.000    0.400   57.000     3 ! ring sup. plane
 GS VOLU ROT2  'TUBE'  12   0.000    0.300   57.000     3 ! ring sup. plane
 GS VOLU ROT3  'TUBE'   6   0.000    0.400   35.000     3 ! ring sup. plane
 GS VOLU ROT4  'TUBE'  12   0.000    0.300   35.000     3 ! ring sup. plane
 GS VOLU ROT5  'TUBE'   3   0.000    0.300   12.665     3 ! ring sup. plane
 GS VOLU ROT6  'TUBE'   6   0.000    0.400    1.79      3 ! ring sup. plane
 GS VOLU ROT7  'TUBE'  12   0.000    0.300    1.79      3 ! ring sup. plane
 GS VOLU ROT8  'TUBE'   6   0.000    0.400    5.40      3 ! ring sup. plane
 GS VOLU ROT9  'TUBE'  12   0.000    0.300    5.40      3 ! ring sup. plane
 GS VOLU ROT0  'TUBE'   6   0.000    0.400   35.00      3 ! ring sup. plane
 GS VOLU ROTA  'TUBE'  12   0.000    0.300   35.00      3 ! ring sup. plane
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROB1  'BOX '   6   1.000    0.400   12.665     3 ! cooling box
 !
 ! cables
 GS VOLU ROCB  'BOX '  14   1.100   29.985    0.0275   3 ! 10-14
 GS VOLU ROCA  'BOX '  14   1.100   25.73     0.0275   3 ! 10-14
 GS VOLU ROC0  'BOX '  14   1.100   21.475    0.0275   3 ! 10-14
 GS VOLU ROC1  'BOX '  14   1.100   17.220    0.0275   3 ! 10-14
 GS VOLU ROC2  'BOX '  14   1.100   12.965    0.0275   3 ! 11-14
 GS VOLU ROC3  'BOX '  14   1.100    8.710    0.0275   3 ! 12-14
 GS VOLU ROC4  'BOX '  14   1.100    4.455    0.0275   3 ! 13-14
 GS VOLU ROC5  'BOX '  14   1.100   29.338    0.5225   3 ! 14-OUT
 GS VOLU ROCC  'BOX '  14  30.000    1.100    1.045    3 ! 14-OUT
 GS VOLU ROC6  'BOX '  14   1.100    0.0275  30.84125  3 ! O-VERT-1
 GS VOLU ROC7  'BOX '  14   1.100    0.0275  27.7575   3 ! O-VERT-1
 GS VOLU ROC8  'BOX '  14   1.100    0.0275  24.67375  3 ! O-VERT-1
 GS VOLU ROC9  'BOX '  14   1.100    0.0275  21.59     3 ! O-VERT-1
 !
 GS VOLU ROCD  'BOX '  14  30.000    1.100    0.220    3 ! 14-OUT
 !
 !ceramics and its aluminium support
 GS VOLU ROCE  'BOX '  13   1.090   0.0300    12.335       3
 GS VOLU ROA1  'BOX '   6   1.090   0.1000    12.335       3
 ! electonics boxes and table
 GS VOLU RKAS  'BOX '  41  10.0    13.000     20.000       3
 GS VOLU RPLA  'BOX '   6  31.5     0.250     27.50        3

 !
 !  Multiplicity: vol. defs of silicon planes
 !  rings
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MNC1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MNB1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MNA1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 ! Cont. of rings
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MPA1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MPB1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MPC1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !
 !  Multiplicity: vol. defs of silicon octagon -
 !                detectors are 8 slabs of silicons
 !                described in letter from Russell Betts Fri, 11 Jun 1993
 !
 !       name  shape   mat. lx/2     ly/2     lz/2    # par
 GS VOLU MOA1  'BOX '   4   1.815   16.970    0.0150   3
 GS VOLU MOA2  'BOX '   4   1.815   21.225    0.0150   3
 GS VOLU MOB1  'BOX '   4   1.815   55.265    0.0150   3
 GS VOLU MOC1  'BOX '   4   1.815   21.225    0.0150   3
 GS VOLU MOC2  'BOX '   4   1.815   21.225    0.0150   3
 GS VOLU MOD1  'BOX '   4   1.815   55.265    0.0150   3
 GS VOLU MOE1  'BOX '   4   1.815   16.970    0.0150   3
 GS VOLU MOE2  'BOX '   4   1.815   21.225    0.0150   3
 GS VOLU MOF1  'BOX '   4   1.815   55.265    0.0150   3
 GS VOLU MOG1  'BOX '   4   1.815   21.225    0.0150   3
 GS VOLU MOG2  'BOX '   4   1.815   21.225    0.0150   3
 GS VOLU MOH1  'BOX '   4   1.815   55.265    0.0150   3
 !
 !  vertex: vol. defs of silicon planes
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU VPA1  'BOX '   4   2.330   12.335    0.0150   3
 GS VOLU VPB1  'BOX '   4   4.875   12.335    0.0150   3
 GS VOLU VNA1  'BOX '   4   2.330   12.335    0.0150   3
 GS VOLU VNB1  'BOX '   4   4.875   12.335    0.0150   3
 !
 !  Multiplicity: vol. defs of  electronics for octagon
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 !
 !  Vertex: vol. defs of electronics for vertex
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 !
 ! Rdiator: vol. defs of radiator
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 !GS VOLU RADI  'BOX '   4   1.8      0.25    12.715    3
 !
 !  Multiplicity: rot. defs of ring support structures
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 500   90.      0.    180.      0.     90.     90.  !  for each RRTT
 GS ROTM 501   90.    270.     90.      0.      0.      0.  !  rotm for RPUX no 2
 GS ROTM 502   90.     90.     90.    180.      0.      0.  !  rotm for RPUX no 4
 !
 !  Multiplicity: rot. defs of octagon planes.
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 503   90.0    90.0     0.      0.     90.0     0.0    ! MOA1
 GS ROTM 504   90.0   135.0     0.      0.     90.0    45.0    ! MOB1
 GS ROTM 505   90.0   180.0     0.      0.     90.0    90.0    ! MOC1
 GS ROTM 506   90.0   225.0     0.      0.     90.0   135.0    ! MOD1
 GS ROTM 507   90.0   270.0     0.      0.     90.0   180.0    ! MOE1
 GS ROTM 508   90.0   315.0     0.      0.     90.0   225.0    ! MOF1
 GS ROTM 509   90.0     0.0     0.      0.     90.0   270.0    ! MOG1
 GS ROTM 510   90.0    45.0     0.      0.     90.0   315.0    ! MOH1
 !
 !  Multiplicity: rot. defs of octagon support parts.
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 511   90.0     0.0   180.      0.     90.0    90.0    ! ROR3 cp.1
 GS ROTM 512   90.0    90.0     0.      0.     90.0   180.0    ! ROR5 cp.1
 GS ROTM 513   90.0   180.0     0.      0.     90.0    90.0    ! ROR3 cp.2
 GS ROTM 514   90.0    90.0     0.    180.     90.0     0.0    ! ROR5 cp.2
 GS ROTM 515   90.0     0.0     0.      0.     90.0   270.0    ! ROR3 cp.3
 GS ROTM 516   90.0   180.0     0.    180.     90.0   270.0    ! ROR3 cp.4
 GS ROTM 517   90.0     0.0   180.      0.     90.0    90.0    ! ROR0 cp.1
 GS ROTM 518   90.0     0.0   180.      0.     90.0    90.0    ! ROR0 cp.1
 GS ROTM 519   90.0   180.0     0.      0.     90.0   270.0    ! ROR0 cp.2
 GS ROTM 520   90.     45.0   180.      0.     90.0   135.0    ! RORA cp.1
 GS ROTM 521   90.    135.0     0.      0.     90.0    45.0    ! RORA cp.2
 GS ROTM 522   90.    225.0   180.      0.     90.0   315.0    ! RORA cp.3
 GS ROTM 523   90.    315.      0.      0.     90.0   225.0    ! RORA cp.4
 GS ROTM 524   45.0     0.0    90.     90.     45.0   180.0    ! RORB cp.1
 !
 !  Multiplicity: rot. defs of rings parts.
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 525   90.0   292.5   180.0     0.      90.0    22.5    ! MXX1
 GS ROTM 526   90.0   337.5   180.0     0.      90.0    67.5    ! MXX2
 GS ROTM 527   90.0    22.5   180.0     0.      90.0   112.5    ! MXX3
 GS ROTM 528   90.0    67.5   180.0     0.      90.0   157.5    ! MXX4
 GS ROTM 529   90.0   112.5   180.0     0.      90.0   202.5    ! MXX5
 GS ROTM 530   90.0   157.5   180.0     0.      90.0   247.5    ! MXX6
 GS ROTM 531   90.0   202.5   180.0     0.      90.0   292.5    ! MXX7
 GS ROTM 532   90.0   247.5   180.0     0.      90.0   337.5    ! MXX8
 !
 GS ROTM 533   90.0     0.0     0.0     0.0     90.0   270.0    ! ROR-FGH
 GS ROTM 534   90.0    90.0    10.408   0.0    100.408   0.0    ! ROC5
 GS ROTM 535   90.0    90.0    10.408 180.0     79.592   0.0    ! ROC5
 !
 GS ROTM 536   90.0    45.0   180.0     0.0     90.0   135.0    ! ROT6
 GS ROTM 537   90.0   135.0   180.0     0.0     90.0   225.0    ! ROT6
 !
 GS ROTM 538   90.0    90.0   180.0     0.0     90.0   180.0    ! ROT8
 !
 GS ROTM 539   90.0    90.0    90.0   180.0      0.0     0.0    ! ROC6-9
 !
 GS ROTM 540    0.0     0.0    90.0     0.0     90.0    90.0    ! ROCD
 !
 !  Multiplicity: pos. of rings and their support parts.
 !
 !  RING  A NEGATIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MNA1   1  OUTS    7.297     3.022  -112.800  525  ONLY
 GS POS MNA2   1  OUTS    3.022     7.297  -112.800  526  ONLY
 GS POS MNA3   1  OUTS   -3.022     7.297  -112.800  527  ONLY
 GS POS MNA4   1  OUTS   -7.297     3.022  -112.800  528  ONLY
 GS POS MNA5   1  OUTS   -7.297    -3.022  -112.800  529  ONLY
 GS POS MNA6   1  OUTS   -3.022    -7.297  -112.800  530  ONLY
 GS POS MNA7   1  OUTS    3.022    -7.297  -112.800  531  ONLY
 GS POS MNA8   1  OUTS    7.297    -3.022  -112.800  532  ONLY
 !
 GS POS RRRR   1  OUTS    0.         0.     -113.325    0  ONLY
 GS POS ROCD   1  OUTS   46.4        0.     -113.325    0  ONLY
 ! alum. plate
 GS POS RRAL   1  OUTS   11.706     4.849  -112.975  525  ONLY
 GS POS RRAL   2  OUTS    4.849    11.706  -112.975  526  ONLY
 GS POS RRAL   3  OUTS   -4.849    11.706  -112.975  527  ONLY
 GS POS RRAL   4  OUTS  -11.706     4.849  -112.975  528  ONLY
 GS POS RRAL   5  OUTS  -11.706    -4.849  -112.975  529  ONLY
 GS POS RRAL   6  OUTS   -4.849   -11.706  -112.975  530  ONLY
 GS POS RRAL   7  OUTS    4.849   -11.706  -112.975  531  ONLY
 GS POS RRAL   8  OUTS   11.706    -4.849  -112.975  532  ONLY
 ! ceramics
 GS POS RRCE   1  OUTS   11.235     4.654  -112.845  525  ONLY
 GS POS RRCE   2  OUTS    4.654    11.235  -112.845  526  ONLY
 GS POS RRCE   3  OUTS   -4.654    11.235  -112.845  527  ONLY
 GS POS RRCE   4  OUTS  -11.235     4.654  -112.845  528  ONLY
 GS POS RRCE   5  OUTS  -11.235    -4.654  -112.845  529  ONLY
 GS POS RRCE   6  OUTS   -4.654   -11.235  -112.845  530  ONLY
 GS POS RRCE   7  OUTS    4.654   -11.235  -112.845  531  ONLY
 GS POS RRCE   8  OUTS   11.235    -4.654  -112.845  532  ONLY
 ! leg
 GS POS RRTT   1  OUTS    0.      -30.5    -113.325  500  MANY
 GS POS RRTB   1  OUTS    0.      -48.5    -113.325    0  ONLY
 GS POS RRTR   1  OUTS    0.      -53.0    -113.325  500  ONLY
 !  RING  B NEGATIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MNB1   1  OUTS    7.297     3.022  -234.900  525  ONLY
 GS POS MNB2   1  OUTS    3.022     7.297  -234.900  526  ONLY
 GS POS MNB3   1  OUTS   -3.022     7.297  -234.900  527  ONLY
 GS POS MNB4   1  OUTS   -7.297     3.022  -234.900  528  ONLY
 GS POS MNB5   1  OUTS   -7.297    -3.022  -234.900  529  ONLY
 GS POS MNB6   1  OUTS   -3.022    -7.297  -234.900  530  ONLY
 GS POS MNB7   1  OUTS    3.022    -7.297  -234.900  531  ONLY
 GS POS MNB8   1  OUTS    7.297    -3.022  -234.900  532  ONLY
 !
 GS POS RRRR   2  OUTS    0.        0.     -235.425    0  ONLY
 GS POS ROCD   2  OUTS   46.4       0.     -235.425    0  ONLY
 ! alum. plate
 GS POS RRAL   9  OUTS   11.706     4.849  -235.075  525  ONLY
 GS POS RRAL  10  OUTS    4.849    11.706  -235.075  526  ONLY
 GS POS RRAL  11  OUTS   -4.849    11.706  -235.075  527  ONLY
 GS POS RRAL  12  OUTS  -11.706     4.849  -235.075  528  ONLY
 GS POS RRAL  13  OUTS  -11.706    -4.849  -235.075  529  ONLY
 GS POS RRAL  14  OUTS   -4.849   -11.706  -235.075  530  ONLY
 GS POS RRAL  15  OUTS    4.849   -11.706  -235.075  531  ONLY
 GS POS RRAL  16  OUTS   11.706    -4.849  -235.075  532  ONLY
 ! ceramics
 GS POS RRCE   9  OUTS   11.235     4.654  -234.945  525  ONLY
 GS POS RRCE  10  OUTS    4.654    11.235  -234.945  526  ONLY
 GS POS RRCE  11  OUTS   -4.654    11.235  -234.945  527  ONLY
 GS POS RRCE  12  OUTS  -11.235     4.654  -234.945  528  ONLY
 GS POS RRCE  13  OUTS  -11.235    -4.654  -234.945  529  ONLY
 GS POS RRCE  14  OUTS   -4.654   -11.235  -234.945  530  ONLY
 GS POS RRCE  15  OUTS    4.654   -11.235  -234.945  531  ONLY
 GS POS RRCE  16  OUTS   11.235    -4.654  -234.945  532  ONLY
 ! leg
 GS POS RRTT   2  OUTS    0.      -30.5    -235.425  500  MANY
 GS POS RRTB   2  OUTS    0.      -48.5    -235.425    0  ONLY
 GS POS RRTR   2  OUTS    0.      -53.0    -235.425  500  ONLY
 !  RING  C NEGATIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MNC1   1  OUTS    7.297     3.022  -504.800  525  ONLY
 GS POS MNC2   1  OUTS    3.022     7.297  -504.800  526  ONLY
 GS POS MNC3   1  OUTS   -3.022     7.297  -504.800  527  ONLY
 GS POS MNC4   1  OUTS   -7.297     3.022  -504.800  528  ONLY
 GS POS MNC5   1  OUTS   -7.297    -3.022  -504.800  529  ONLY
 GS POS MNC6   1  OUTS   -3.022    -7.297  -504.800  530  ONLY
 GS POS MNC7   1  OUTS    3.022    -7.297  -504.800  531  ONLY
 GS POS MNC8   1  OUTS    7.297    -3.022  -504.800  532  ONLY
 !
 GS POS RRRR   3  OUTS    0.        0.     -505.325    0  ONLY
 GS POS ROCD   3  OUTS   46.4       0.     -505.325    0  ONLY
 ! alum. plate
 GS POS RRAL  17  OUTS   11.706     4.849  -504.975  525  ONLY
 GS POS RRAL  18  OUTS    4.849    11.706  -504.975  526  ONLY
 GS POS RRAL  19  OUTS   -4.849    11.706  -504.975  527  ONLY
 GS POS RRAL  20  OUTS  -11.706     4.849  -504.975  528  ONLY
 GS POS RRAL  21  OUTS  -11.706    -4.849  -504.975  529  ONLY
 GS POS RRAL  22  OUTS   -4.849   -11.706  -504.975  530  ONLY
 GS POS RRAL  23  OUTS    4.849   -11.706  -504.975  531  ONLY
 GS POS RRAL  24  OUTS   11.706    -4.849  -504.975  532  ONLY
 ! ceramics
 GS POS RRCE  17  OUTS   11.235     4.654  -504.845  525  ONLY
 GS POS RRCE  18  OUTS    4.654    11.235  -504.845  526  ONLY
 GS POS RRCE  19  OUTS   -4.654    11.235  -504.845  527  ONLY
 GS POS RRCE  20  OUTS  -11.235     4.654  -504.845  528  ONLY
 GS POS RRCE  21  OUTS  -11.235    -4.654  -504.845  529  ONLY
 GS POS RRCE  22  OUTS   -4.654   -11.235  -504.845  530  ONLY
 GS POS RRCE  23  OUTS    4.654   -11.235  -504.845  531  ONLY
 GS POS RRCE  24  OUTS   11.235    -4.654  -504.845  532  ONLY
 ! leg
 GS POS RRTT   3  OUTS    0.      -30.5    -505.325  500  MANY
 GS POS RRTB   3  OUTS    0.      -48.5    -505.325    0  ONLY
 GS POS RRTR   3  OUTS    0.      -53.0    -505.325  500  ONLY
 !  RING  A POSITIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MPA1   1  OUTS    7.297     3.022   112.800  525  ONLY
 GS POS MPA2   1  OUTS    3.022     7.297   112.800  526  ONLY
 GS POS MPA3   1  OUTS   -3.022     7.297   112.800  527  ONLY
 GS POS MPA4   1  OUTS   -7.297     3.022   112.800  528  ONLY
 GS POS MPA5   1  OUTS   -7.297    -3.022   112.800  529  ONLY
 GS POS MPA6   1  OUTS   -3.022    -7.297   112.800  530  ONLY
 GS POS MPA7   1  OUTS    3.022    -7.297   112.800  531  ONLY
 GS POS MPA8   1  OUTS    7.297    -3.022   112.800  532  ONLY
 !
 GS POS RRRR   4  OUTS    0.        0.      113.325    0  ONLY
 ! alum. plate
 GS POS RRAL  25  OUTS   11.706     4.849   112.975  525  ONLY
 GS POS RRAL  26  OUTS    4.849    11.706   112.975  526  ONLY
 GS POS RRAL  27  OUTS   -4.849    11.706   112.975  527  ONLY
 GS POS RRAL  28  OUTS  -11.706     4.849   112.975  528  ONLY
 GS POS RRAL  29  OUTS  -11.706    -4.849   112.975  529  ONLY
 GS POS RRAL  30  OUTS   -4.849   -11.706   112.975  530  ONLY
 GS POS RRAL  31  OUTS    4.849   -11.706   112.975  531  ONLY
 GS POS RRAL  32  OUTS   11.706    -4.849   112.975  532  ONLY
 ! ceramics
 GS POS RRCE  25  OUTS   11.235     4.654   112.845  525  ONLY
 GS POS RRCE  26  OUTS    4.654    11.235   112.845  526  ONLY
 GS POS RRCE  27  OUTS   -4.654    11.235   112.845  527  ONLY
 GS POS RRCE  28  OUTS  -11.235     4.654   112.845  528  ONLY
 GS POS RRCE  29  OUTS  -11.235    -4.654   112.845  529  ONLY
 GS POS RRCE  30  OUTS   -4.654   -11.235   112.845  530  ONLY
 GS POS RRCE  31  OUTS    4.654   -11.235   112.845  531  ONLY
 GS POS RRCE  32  OUTS   11.235    -4.654   112.845  532  ONLY
 ! leg
 GS POS RRTT   4  OUTS    0.      -30.5     113.325  500  MANY
 GS POS RRTB   4  OUTS    0.      -48.5     113.325    0  ONLY
 GS POS RRTR   4  OUTS    0.      -53.0     113.325  500  ONLY
 !  RING  B POSITIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MPB1   1  OUTS    7.297     3.022   234.900  525  ONLY
 GS POS MPB2   1  OUTS    3.022     7.297   234.900  526  ONLY
 GS POS MPB3   1  OUTS   -3.022     7.297   234.900  527  ONLY
 GS POS MPB4   1  OUTS   -7.297     3.022   234.900  528  ONLY
 GS POS MPB5   1  OUTS   -7.297    -3.022   234.900  529  ONLY
 GS POS MPB6   1  OUTS   -3.022    -7.297   234.900  530  ONLY
 GS POS MPB7   1  OUTS    3.022    -7.297   234.900  531  ONLY
 GS POS MPB8   1  OUTS    7.297    -3.022   234.900  532  ONLY
 !
 GS POS RRRR   5  OUTS    0.        0.      235.425    0  ONLY
 GS POS ROCD   5  OUTS   46.4       0.      235.425    0  ONLY
 ! alum. plate
 GS POS RRAL  33  OUTS   11.706     4.849   235.075  525  ONLY
 GS POS RRAL  34  OUTS    4.849    11.706   235.075  526  ONLY
 GS POS RRAL  35  OUTS   -4.849    11.706   235.075  527  ONLY
 GS POS RRAL  36  OUTS  -11.706     4.849   235.075  528  ONLY
 GS POS RRAL  37  OUTS  -11.706    -4.849   235.075  529  ONLY
 GS POS RRAL  38  OUTS   -4.849   -11.706   235.075  530  ONLY
 GS POS RRAL  39  OUTS    4.849   -11.706   235.075  531  ONLY
 GS POS RRAL  40  OUTS   11.706    -4.849   235.075  532  ONLY
 ! ceramics
 GS POS RRCE  33  OUTS   11.235     4.654   234.945  525  ONLY
 GS POS RRCE  34  OUTS    4.654    11.235   234.945  526  ONLY
 GS POS RRCE  35  OUTS   -4.654    11.235   234.945  527  ONLY
 GS POS RRCE  36  OUTS  -11.235     4.654   234.945  528  ONLY
 GS POS RRCE  37  OUTS  -11.235    -4.654   234.945  529  ONLY
 GS POS RRCE  38  OUTS   -4.654   -11.235   234.945  530  ONLY
 GS POS RRCE  39  OUTS    4.654   -11.235   234.945  531  ONLY
 GS POS RRCE  40  OUTS   11.235    -4.654   234.945  532  ONLY
 ! leg
 GS POS RRTT   5  OUTS    0.      -30.5     235.425  500  MANY
 GS POS RRTB   5  OUTS    0.      -48.5     235.425    0  ONLY
 GS POS RRTR   5  OUTS    0.      -53.0     235.425  500  ONLY
 !  RING  C POSITIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MPC1   1  OUTS    7.297     3.022   504.800  525  ONLY
 GS POS MPC2   1  OUTS    3.022     7.297   504.800  526  ONLY
 GS POS MPC3   1  OUTS   -3.022     7.297   504.800  527  ONLY
 GS POS MPC4   1  OUTS   -7.297     3.022   504.800  528  ONLY
 GS POS MPC5   1  OUTS   -7.297    -3.022   504.800  529  ONLY
 GS POS MPC6   1  OUTS   -3.022    -7.297   504.800  530  ONLY
 GS POS MPC7   1  OUTS    3.022    -7.297   504.800  531  ONLY
 GS POS MPC8   1  OUTS    7.297    -3.022   504.800  532  ONLY
 !
 GS POS RRRR   6  OUTS    0.        0.      505.325    0  ONLY
 GS POS ROCD   6  OUTS   46.4       0.      505.325    0  ONLY
 ! alum. plate
 GS POS RRAL  41  OUTS   11.706     4.849   504.975  525  ONLY
 GS POS RRAL  42  OUTS    4.849    11.706   504.975  526  ONLY
 GS POS RRAL  43  OUTS   -4.849    11.706   504.975  527  ONLY
 GS POS RRAL  44  OUTS  -11.706     4.849   504.975  528  ONLY
 GS POS RRAL  45  OUTS  -11.706    -4.849   504.975  529  ONLY
 GS POS RRAL  46  OUTS   -4.849   -11.706   504.975  530  ONLY
 GS POS RRAL  47  OUTS    4.849   -11.706   504.975  531  ONLY
 GS POS RRAL  48  OUTS   11.706    -4.849   504.975  532  ONLY
 ! ceramics
 GS POS RRCE  41  OUTS   11.235     4.654   504.845  525  ONLY
 GS POS RRCE  42  OUTS    4.654    11.235   504.845  526  ONLY
 GS POS RRCE  43  OUTS   -4.654    11.235   504.845  527  ONLY
 GS POS RRCE  44  OUTS  -11.235     4.654   504.845  528  ONLY
 GS POS RRCE  45  OUTS  -11.235    -4.654   504.845  529  ONLY
 GS POS RRCE  46  OUTS   -4.654   -11.235   504.845  530  ONLY
 GS POS RRCE  47  OUTS    4.654   -11.235   504.845  531  ONLY
 GS POS RRCE  48  OUTS   11.235    -4.654   504.845  532  ONLY
 ! leg
 GS POS RRTT   6  OUTS    0.      -30.5     505.325  500  MANY
 GS POS RRTB   6  OUTS    0.      -48.7     505.325    0  ONLY
 GS POS RRTR   6  OUTS    0.      -53.0     505.325  500  ONLY
 !
 !  Multiplicity: positions of octagon planes.
 !                The o - detectors ARE symetric around the nominal
 !                vertex and at  the  distance  4.5cm +0.015cm from
 !                the beam axis except for the  sides  where  there
 !                are windows for two spetrometer arms -4.3cm < z <
 !                21.3cm.
 !                The VERTEX - detectors are located 5.5cm -0.015cm
 !                and 11cm -0.015cm from the beam axis and centered
 !                at z =0.
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MOA1   1  OUTS    4.515     0.0      38.295  503  ONLY
 GS POS MOA2   1  OUTS    4.515     0.0     -34.040  503  ONLY
 GS POS MOB1   1  OUTS    3.193     3.193     0.000  504  ONLY
 GS POS MOC1   1  OUTS    0.0       4.515    34.040  505  ONLY
 GS POS MOC2   1  OUTS    0.0       4.515   -34.040  505  ONLY
 GS POS MOD1   1  OUTS   -3.193     3.193     0.000  506  ONLY
 GS POS MOE1   1  OUTS   -4.515     0.0      38.295  507  ONLY
 GS POS MOE2   1  OUTS   -4.515     0.0     -34.040  507  ONLY
 GS POS MOF1   1  OUTS   -3.193    -3.193     0.000  508  ONLY
 GS POS MOG1   1  OUTS    0.0      -4.515    34.040  509  ONLY
 GS POS MOG2   1  OUTS    0.0      -4.515   -34.040  509  ONLY
 GS POS MOH1   1  OUTS    3.193    -3.193     0.000  510  ONLY
 !
 !  Vertex: positions of vertex planes.
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS VPA1   1  OUTS    0.0       5.640     0.0    509  ONLY
 GS POS VPB1   1  OUTS    0.0      11.785     0.0    505  ONLY
 GS POS VNA1   1  OUTS    0.0      -5.640     0.0    509  ONLY
 GS POS VNB1   1  OUTS    0.0     -11.785     0.0    505  ONLY
 !
 !  Multiplicity: positions of electronics for mult in octagon.
 !
 !  Multiplicity: positions of electronics for electeronics at 12-CM
 !
 !  Multiplicity octagon  and vertex: positions of supports
 !                                    for vertex and octagon -
 !
 ! alum. plate
 GS POS RORE   1  RORD    4.250     0.0      10.25     0  ONLY
 GS POS RORF   1  RORD   -7.600     0.0       0.0    533  ONLY
 GS POS RORG   1  RORD    9.500     0.0       1.5    533  ONLY
 GS POS RORH   1  RORD   20.000     0.0       4.0    533  ONLY
 GS POS RORD   1  OUTS    7.175   -21.400   -34.165  540  ONLY
 GS POS RORD   2  OUTS   -7.175   -21.400   -34.165  540  ONLY
 !
 GS POS RORI   1  OUTS    0.0     -14.500   -51.600  538  ONLY
 GS POS RORI   2  OUTS    0.0     -14.500   -31.000  538  ONLY
 GS POS RORI   3  OUTS    0.0     -14.500   -17.600  538  ONLY
 GS POS RORI   4  OUTS    0.0     -14.500    -4.200  538  ONLY
 GS POS RORI   5  OUTS    0.0     -22.000   -51.600  538  ONLY
 GS POS RORI   6  OUTS    0.0     -22.000   -31.000  538  ONLY
 GS POS RORI   7  OUTS    0.0     -24.000   -17.600  538  ONLY
 GS POS RORI   8  OUTS    0.0     -30.000   -51.600  538  ONLY
 GS POS RORI   9  OUTS    0.0     -30.000   -31.000  538  ONLY
 !
 ! cables - part I
 GS POS ROCB   1  OUTS    5.8575    7.0     -25.63   503  ONLY
 GS POS ROCB   2  OUTS   -5.8575    7.0     -25.63   503  ONLY
 GS POS ROCB   3  OUTS   -5.8575   -7.0     -25.63   503  ONLY
 GS POS ROCB   4  OUTS    5.8575   -7.0     -25.63   503  ONLY
 !
 GS POS ROCA   1  OUTS    5.8025    7.0     -29.885  503  ONLY
 GS POS ROCA   2  OUTS   -5.8025    7.0     -29.885  503  ONLY
 GS POS ROCA   3  OUTS   -5.8025   -7.0     -29.885  503  ONLY
 GS POS ROCA   4  OUTS    5.8025   -7.0     -29.885  503  ONLY
 !
 GS POS ROC0   1  OUTS    5.7475    7.0     -34.14   503  ONLY
 GS POS ROC0   2  OUTS   -5.7475    7.0     -34.14   503  ONLY
 GS POS ROC0   3  OUTS   -5.7475   -7.0     -34.14   503  ONLY
 GS POS ROC0   4  OUTS    5.7475   -7.0     -34.14   503  ONLY
 !
 GS POS ROC1   7  OUTS    5.6925     7.0    -38.395  503  ONLY
 GS POS ROC1   8  OUTS    6.0925     0.0    -38.395  507  ONLY
 GS POS ROC1   9  OUTS   -5.6925     7.0    -38.395  503  ONLY
 GS POS ROC1  10  OUTS    0.0        6.7925 -38.395  505  ONLY
 GS POS ROC1  11  OUTS   -5.6925    -7.0    -38.395  503  ONLY
 GS POS ROC1  12  OUTS   -6.0925     0.0    -38.395  507  ONLY
 GS POS ROC1  13  OUTS    5.6925    -7.0    -38.395  503  ONLY
 GS POS ROC1  14  OUTS    0.0       -6.7925 -38.395  509  ONLY
 !
 GS POS ROC2   9  OUTS    5.6375     7.0    -42.65   503  ONLY
 GS POS ROC2  10  OUTS    6.0375     0.0    -42.65   503  ONLY
 GS POS ROC2  11  OUTS   -5.6375     7.0    -42.65   503  ONLY
 GS POS ROC2  12  OUTS    0.0        6.7375 -42.65   505  ONLY
 GS POS ROC2  13  OUTS   -5.6375    -7.0    -42.65   503  ONLY
 GS POS ROC2  14  OUTS   -6.0375     0.0    -42.65   507  ONLY
 GS POS ROC2  15  OUTS    5.6375    -7.0    -42.65   503  ONLY
 GS POS ROC2  16  OUTS    0.0       -6.7375 -42.65   509  ONLY
 !
 GS POS ROC3   9  OUTS    5.5825     7.0    -46.905  503  ONLY
 GS POS ROC3  10  OUTS    5.9825     0.0    -46.905  503  ONLY
 GS POS ROC3  11  OUTS   -5.5825     7.0    -46.905  503  ONLY
 GS POS ROC3  12  OUTS    0.0        6.6825 -46.905  505  ONLY
 GS POS ROC3  13  OUTS   -5.5825    -7.0    -46.905  503  ONLY
 GS POS ROC3  14  OUTS   -5.9825     0.0    -46.905  507  ONLY
 GS POS ROC3  15  OUTS    5.5825    -7.0    -46.905  503  ONLY
 GS POS ROC3  16  OUTS    0.0       -6.6825 -46.905  509  ONLY
 !
 GS POS ROC4   9  OUTS    5.5275     7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  10  OUTS    5.9275     0.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  11  OUTS   -5.5275     7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  12  OUTS    0.0        6.6275 -51.16  505  ONLY
 GS POS ROC4  13  OUTS   -5.5275    -7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  14  OUTS   -5.9275     0.0    -51.16  507  ONLY
 GS POS ROC4  15  OUTS    5.5275    -7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  16  OUTS    0.0       -6.6275 -51.16  509  ONLY

 ! the rib no 1 - 0.4cm thick
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS ROR1   1  OUTS   -5.150     7.750   -55.315    0  MANY
 GS POS ROR1   2  OUTS    5.150     7.750   -55.315    0  MANY
 GS POS ROR1   3  OUTS   -5.150    -7.750   -55.315    0  MANY
 GS POS ROR1   4  OUTS    5.150    -7.750   -55.315    0  MANY
 GS POS ROR2   1  OUTS    0.000     5.700   -55.315    0  MANY
 GS POS ROR2   2  OUTS    0.000    -5.700   -55.315    0  MANY
 GS POS ROR3   1  OUTS   -4.647     3.394   -55.315  511  MANY
 GS POS ROR3   2  OUTS    4.647     3.394   -55.315  513  MANY
 GS POS ROR3   3  OUTS   -4.647    -3.394   -55.315  515  MANY
 GS POS ROR3   4  OUTS    4.647    -3.394   -55.315  516  MANY
 GS POS ROR4   1  OUTS   -5.350     0.000   -55.315    0  ONLY
 GS POS ROR4   2  OUTS    5.350     0.000   -55.315    0  ONLY
 GS POS ROR6   1  OUTS   -5.700     7.680   -55.315    0  ONLY
 GS POS ROR6   2  OUTS    5.700     7.000   -55.315    0  ONLY
 GS POS ROR6   3  OUTS   -5.700    -7.000   -55.315    0  ONLY
 GS POS ROR6   4  OUTS    5.700    -7.000   -55.315    0  ONLY
 !
 GS POS ROR1   5  OUTS   -5.150     7.750   -55.515    0  MANY
 GS POS ROR1   6  OUTS    5.150     7.750   -55.515    0  MANY
 GS POS ROR1   7  OUTS   -5.150    -7.750   -55.515    0  MANY
 GS POS ROR1   8  OUTS    5.150    -7.750   -55.515    0  MANY
 GS POS ROR2   3  OUTS    0.000     5.700   -55.515    0  MANY
 GS POS ROR2   4  OUTS    0.000    -5.700   -55.515    0  MANY
 GS POS ROR3   5  OUTS   -4.647     3.394   -55.515  511  MANY
 GS POS ROR3   6  OUTS    4.647     3.394   -55.515  513  MANY
 GS POS ROR3   7  OUTS   -4.647    -3.394   -55.515  515  MANY
 GS POS ROR3   8  OUTS    4.647    -3.394   -55.515  516  MANY
 GS POS ROR4   3  OUTS   -5.350     0.000   -55.515    0  ONLY
 GS POS ROR4   4  OUTS    5.350     0.000   -55.515    0  ONLY
 GS POS ROR6   5  OUTS   -5.700     7.000   -55.515    0  ONLY
 GS POS ROR6   6  OUTS    5.700     7.000   -55.515    0  ONLY
 GS POS ROR6   7  OUTS   -5.700    -7.000   -55.515    0  ONLY
 GS POS ROR6   8  OUTS    5.700    -7.000   -55.515    0  ONLY
 ! the rib no 2
 GS POS ROR1  13  OUTS   -5.150     7.750   -46.805    0  MANY
 GS POS ROR1  14  OUTS    5.150     7.750   -46.805    0  MANY
 GS POS ROR1  15  OUTS   -5.150    -7.750   -46.805    0  MANY
 GS POS ROR1  16  OUTS    5.150    -7.750   -46.805    0  MANY
 GS POS ROR2   7  OUTS    0.000     5.700   -46.805    0  MANY
 GS POS ROR2   8  OUTS    0.000    -5.700   -46.805    0  MANY
 GS POS ROR3  13  OUTS   -4.647     3.394   -46.805  511  MANY
 GS POS ROR3  14  OUTS    4.647     3.394   -46.805  513  MANY
 GS POS ROR3  15  OUTS   -4.647    -3.394   -46.805  515  MANY
 GS POS ROR3  16  OUTS    4.647    -3.394   -46.805  516  MANY
 GS POS ROR4   7  OUTS   -5.350     0.000   -46.805    0  ONLY
 GS POS ROR4   8  OUTS    5.350     0.000   -46.805    0  ONLY
 GS POS ROR6  13  OUTS   -5.700     7.000   -46.805    0  ONLY
 GS POS ROR6  14  OUTS    5.700     7.000   -46.805    0  ONLY
 GS POS ROR6  15  OUTS   -5.700    -7.000   -46.805    0  ONLY
 GS POS ROR6  16  OUTS    5.700    -7.000   -46.805    0  ONLY
 !
 ! the rib no 3
 GS POS ROR1  17  OUTS   -5.150     7.750   -38.295    0  MANY
 GS POS ROR1  18  OUTS    5.150     7.750   -38.295    0  MANY
 GS POS ROR1  19  OUTS   -5.150    -7.750   -38.295    0  MANY
 GS POS ROR1  20  OUTS    5.150    -7.750   -38.295    0  MANY
 GS POS ROR2   9  OUTS    0.000     5.700   -38.295    0  MANY
 GS POS ROR2  10  OUTS    0.000    -5.700   -38.295    0  MANY
 GS POS ROR3  17  OUTS   -4.647     3.394   -38.295  511  MANY
 GS POS ROR3  18  OUTS    4.647     3.394   -38.295  513  MANY
 GS POS ROR3  19  OUTS   -4.647    -3.394   -38.295  515  MANY
 GS POS ROR3  20  OUTS    4.647    -3.394   -38.295  516  MANY
 GS POS ROR4   9  OUTS   -5.350     0.000   -38.295    0  ONLY
 GS POS ROR4  10  OUTS    5.350     0.000   -38.295    0  ONLY
 GS POS ROR6  17  OUTS   -5.700     7.000   -38.295    0  ONLY
 GS POS ROR6  18  OUTS    5.700     7.000   -38.295    0  ONLY
 GS POS ROR6  19  OUTS   -5.700    -7.000   -38.295    0  ONLY
 GS POS ROR6  20  OUTS    5.700    -7.000   -38.295    0  ONLY
 ! the rib no 4
 GS POS ROR1  21  OUTS   -5.150     7.750   -29.785    0  MANY
 GS POS ROR1  22  OUTS    5.150     7.750   -29.785    0  MANY
 GS POS ROR1  23  OUTS   -5.150    -7.750   -29.785    0  MANY
 GS POS ROR1  24  OUTS    5.150    -7.750   -29.785    0  MANY
 GS POS ROR2  11  OUTS    0.000     5.700   -29.785    0  MANY
 GS POS ROR2  12  OUTS    0.000    -5.700   -29.785    0  MANY
 GS POS ROR3  21  OUTS   -4.647     3.394   -29.785  511  MANY
 GS POS ROR3  22  OUTS    4.647     3.394   -29.785  513  MANY
 GS POS ROR3  23  OUTS   -4.647    -3.394   -29.785  515  MANY
 GS POS ROR3  24  OUTS    4.647    -3.394   -29.785  516  MANY
 GS POS ROR4  11  OUTS   -5.350     0.000   -29.785    0  ONLY
 GS POS ROR4  12  OUTS    5.350     0.000   -29.785    0  ONLY
 GS POS ROR6  21  OUTS   -5.700     7.000   -29.785    0  ONLY
 GS POS ROR6  22  OUTS    5.700     7.000   -29.785    0  ONLY
 GS POS ROR6  23  OUTS   -5.700    -7.000   -29.785    0  ONLY
 GS POS ROR6  24  OUTS    5.700    -7.000   -29.785    0  ONLY
 ! the rib no 5
 GS POS ROR1  25  OUTS   -5.150     7.750   -21.275    0  MANY
 GS POS ROR1  26  OUTS    5.150     7.750   -21.275    0  MANY
 GS POS ROR1  27  OUTS   -5.150    -7.750   -21.275    0  MANY
 GS POS ROR1  28  OUTS    5.150    -7.750   -21.275    0  MANY
 GS POS ROR2  13  OUTS    0.000     5.700   -21.275    0  MANY
 GS POS ROR2  14  OUTS    0.000    -5.700   -21.275    0  MANY
 GS POS ROR3  25  OUTS   -4.647     3.394   -21.275  511  MANY
 GS POS ROR3  26  OUTS    4.647     3.394   -21.275  513  MANY
 GS POS ROR3  27  OUTS   -4.647    -3.394   -21.275  515  MANY
 GS POS ROR3  28  OUTS    4.647    -3.394   -21.275  516  MANY
 GS POS ROR4  13  OUTS   -5.350     0.000   -21.275    0  ONLY
 GS POS ROR4  14  OUTS    5.350     0.000   -21.275    0  ONLY
 GS POS ROR6  25  OUTS   -5.700     7.000   -21.275    0  ONLY
 GS POS ROR6  26  OUTS    5.700     7.000   -21.275    0  ONLY
 GS POS ROR6  27  OUTS   -5.700    -7.000   -21.275    0  ONLY
 GS POS ROR6  28  OUTS    5.700    -7.000   -21.275    0  ONLY
 ! the rib no 6
 GS POS ROR1  29  OUTS   -5.150     7.750   -12.765    0  MANY
 GS POS ROR1  30  OUTS    5.150     7.750   -12.765    0  MANY
 GS POS ROR1  31  OUTS   -5.150    -7.750   -12.765    0  MANY
 GS POS ROR1  32  OUTS    5.150    -7.750   -12.765    0  MANY
 GS POS ROR2  15  OUTS    0.000     5.700   -12.765    0  MANY
 GS POS ROR2  16  OUTS    0.000    -5.700   -12.765    0  MANY
 GS POS ROR3  29  OUTS   -4.647     3.394   -12.765  511  MANY
 GS POS ROR3  30  OUTS    4.647     3.394   -12.765  513  MANY
 GS POS ROR3  31  OUTS   -4.647    -3.394   -12.765  515  MANY
 GS POS ROR3  32  OUTS    4.647    -3.394   -12.765  516  MANY
 GS POS ROR5   1  OUTS   -5.350     0.000   -12.765  512  ONLY
 GS POS ROR5   2  OUTS    5.350     0.000   -12.765  514  ONLY
 GS POS ROR6  29  OUTS   -5.700     7.000   -12.765    0  ONLY
 GS POS ROR6  30  OUTS    5.700     7.000   -12.765    0  ONLY
 GS POS ROR6  31  OUTS   -5.700    -7.000   -12.765    0  ONLY
 GS POS ROR6  32  OUTS    5.700    -7.000   -12.765    0  ONLY
 !
 ! the rib no 7
 GS POS ROR7   1  OUTS   -4.7595    3.169    -4.255  511  MANY
 GS POS ROR7   2  OUTS    4.7595    3.169    -4.255  513  MANY
 GS POS ROR7   3  OUTS   -4.7595   -3.169    -4.255  515  MANY
 GS POS ROR7   4  OUTS    4.7595   -3.169    -4.255  516  MANY
 GS POS ROR8   1  OUTS   -5.093     4.775    -4.255    0  MANY
 GS POS ROR8   2  OUTS    5.093     4.775    -4.255    0  MANY
 GS POS ROR8   3  OUTS   -5.093    -4.775    -4.255    0  MANY
 GS POS ROR8   4  OUTS    5.093    -4.775    -4.255    0  MANY
 GS POS ROR5   3  OUTS   -5.350     0.000    -4.255  512  ONLY
 GS POS ROR5   4  OUTS    5.350     0.000    -4.225  514  ONLY
 !
 ! the rib no 8
 GS POS ROR7   5  OUTS   -4.7595    3.169     4.255  511  MANY
 GS POS ROR7   6  OUTS    4.7595    3.169     4.255  513  MANY
 GS POS ROR7   7  OUTS   -4.7595   -3.169     4.255  515  MANY
 GS POS ROR7   8  OUTS    4.7595   -3.169     4.255  516  MANY
 GS POS ROR8   5  OUTS   -5.093     4.775     4.255    0  ONLY
 GS POS ROR8   6  OUTS    5.093     4.775     4.255    0  ONLY
 GS POS ROR8   7  OUTS   -5.093    -4.775     4.255    0  ONLY
 GS POS ROR8   8  OUTS    5.093    -4.775     4.255    0  ONLY
 GS POS ROR5   5  OUTS   -5.350     0.000     4.255  512  ONLY
 GS POS ROR5   6  OUTS    5.350     0.000     4.225  514  ONLY
 ! the rib no 9
 GS POS ROR1  33  OUTS   -5.150     7.750    12.765    0  MANY
 GS POS ROR1  34  OUTS    5.150     7.750    12.765    0  MANY
 GS POS ROR1  35  OUTS   -5.150    -7.750    12.765    0  MANY
 GS POS ROR1  36  OUTS    5.150    -7.750    12.765    0  MANY
 GS POS ROR2  17  OUTS    0.000     5.700    12.765    0  MANY
 GS POS ROR2  18  OUTS    0.000    -5.700    12.765    0  MANY
 GS POS ROR3  33  OUTS   -4.647     3.394    12.765  511  MANY
 GS POS ROR3  34  OUTS    4.647     3.394    12.765  513  MANY
 GS POS ROR3  35  OUTS   -4.647    -3.394    12.765  515  MANY
 GS POS ROR3  36  OUTS    4.647    -3.394    12.765  516  MANY
 GS POS ROR5   7  OUTS   -5.350     0.000    12.765  512  ONLY
 GS POS ROR5   8  OUTS    5.350     0.000    12.765  514  ONLY
 GS POS ROR9   1  OUTS   -5.650     5.349    12.765    0  ONLY
 GS POS ROR9   2  OUTS    5.650     5.349    12.765    0  ONLY
 GS POS ROR9   3  OUTS   -5.650    -5.349    12.765    0  ONLY
 GS POS ROR9   4  OUTS    5.650    -5.349    12.765    0  ONLY
 ! the rib no 10
 GS POS ROR0   1  OUTS    0.0       5.7000   21.275  518  ONLY
 GS POS ROR0   2  OUTS    0.0      -5.7000   21.275  519  ONLY
 GS POS RORB   1  RORA   -2.41353   0.0       0.725  524  ONLY
 GS POS RORA   1  OUTS   -4.0305    4.0305   21.275  520  MANY
 GS POS RORA   2  OUTS    4.0305    4.0305   21.275  521  MANY
 GS POS RORA   3  OUTS    4.0305   -4.0305   21.275  522  MANY
 GS POS RORA   4  OUTS   -4.0305   -4.0305   21.275  523  MANY
 ! the rib no 11
 GS POS ROR0   3  OUTS    0.0       5.7000   29.785  518  ONLY
 GS POS ROR0   4  OUTS    0.0      -5.7000   29.785  519  ONLY
 GS POS RORA   5  OUTS   -4.0305    4.0305   29.785  520  MANT
 GS POS RORA   6  OUTS    4.0305    4.0305   29.785  521  MANY
 GS POS RORA   7  OUTS    4.0305   -4.0305   29.785  522  MANY
 GS POS RORA   8  OUTS   -4.0305   -4.0305   29.785  523  MANY
 GS POS RORC   1  OUTS   -5.350     0.000    29.785  512  ONLY
 GS POS RORC   2  OUTS    5.350     0.000    29.785  514  ONLY
 ! the rib no 12
 GS POS ROR0   5  OUTS    0.0       5.7000   38.295  518  ONLY
 GS POS ROR0   6  OUTS    0.0      -5.7000   38.295  519  ONLY
 GS POS RORA   9  OUTS   -4.0305    4.0305   38.295  520  MANY
 GS POS RORA  10  OUTS    4.0305    4.0305   38.295  521  MANY
 GS POS RORA  11  OUTS    4.0305   -4.0305   38.295  522  MANY
 GS POS RORA  12  OUTS   -4.0305   -4.0305   38.295  523  MANY
 GS POS RORC   3  OUTS   -5.350     0.000    38.295  512  ONLY
 GS POS RORC   4  OUTS    5.350     0.000    38.295  514  ONLY
 ! the rib no 13
 GS POS ROR0   7  OUTS    0.0       5.7000   46.805  518  ONLY
 GS POS ROR0   8  OUTS    0.0      -5.7000   46.805  519  ONLY
 GS POS RORA  13  OUTS   -4.0305    4.0305   46.805  520  MANY
 GS POS RORA  14  OUTS    4.0305    4.0305   46.805  521  MANY
 GS POS RORA  15  OUTS    4.0305   -4.0305   46.805  522  MANY
 GS POS RORA  16  OUTS   -4.0305   -4.0305   46.805  523  MANY
 GS POS RORC   5  OUTS   -5.350     0.000    46.805  512  ONLY
 GS POS RORC   6  OUTS    5.350     0.000    46.805  514  ONLY
 ! the rib no 14
 GS POS ROR0   9  OUTS    0.0       5.7000   55.315  518  ONLY
 GS POS ROR0  10  OUTS    0.0      -5.7000   55.315  519  ONLY
 GS POS RORA  17  OUTS   -4.0305    4.0305   55.315  520  MANY
 GS POS RORA  18  OUTS    4.0305    4.0305   55.315  521  MANY
 GS POS RORA  19  OUTS    4.0305   -4.0305   55.315  522  MANY
 GS POS RORA  20  OUTS   -4.0305   -4.0305   55.315  523  MANY
 GS POS RORC   7  OUTS   -5.350     0.000    55.315  512  ONLY
 GS POS RORC   8  OUTS    5.350     0.000    55.315  514  ONLY
 !
 GS POS ROR0  11  OUTS    0.0       5.7000   55.515  518  ONLY
 GS POS ROR0  12  OUTS    0.0      -5.7000   55.515  519  ONLY
 GS POS RORA  21  OUTS   -4.0305    4.0305   55.515  520  MANY
 GS POS RORA  22  OUTS    4.0305    4.0305   55.515  521  MANY
 GS POS RORA  23  OUTS    4.0305   -4.0305   55.515  522  MANY
 GS POS RORA  24  OUTS   -4.0305   -4.0305   55.515  523  MANY
 GS POS RORC   9  OUTS   -5.350     0.000    55.515  512  ONLY
 GS POS RORC  10  OUTS    5.350     0.000    55.515  514  ONLY
 ! rurki chlodzace
 GS POS ROT2   1  ROT1    0.000     0.000     0.000    0  ONLY
 GS POS ROT1   1  OUTS   -4.798     2.836     0.000    0  ONLY
 GS POS ROT1   2  OUTS   -2.836     4.798     0.000    0  ONLY
 GS POS ROT1   3  OUTS    2.836     4.798     0.000    0  ONLY
 GS POS ROT1   4  OUTS    4.798    -2.836     0.000    0  ONLY
 GS POS ROT1   5  OUTS    4.798     2.836     0.000    0  ONLY
 GS POS ROT1   6  OUTS    2.836    -4.798     0.000    0  ONLY
 GS POS ROT1   7  OUTS   -2.836    -4.798     0.000    0  ONLY
 GS POS ROT1   8  OUTS   -4.798    -2.836     0.000    0  ONLY
 !
 GS POS ROT4   1  ROT3    0.000     0.000     0.000    0  ONLY
 GS POS ROT3   1  OUTS   -5.000    10.300   -21.425    0  ONLY
 GS POS ROT3   2  OUTS    5.000    10.300   -21.425    0  ONLY
 GS POS ROT3   3  OUTS    5.000   -10.300   -21.425    0  ONLY
 GS POS ROT3   4  OUTS   -5.000   -10.300   -21.425    0  ONLY
 ! ramki
 GS POS ROB1   1  OUTS   -3.286     4.798     0.000    0  MANY
 GS POS ROB1   2  OUTS    3.286     4.798     0.000    0  MANY
 GS POS ROB1   3  OUTS    3.286    -4.798     0.000    0  MANY
 GS POS ROB1   4  OUTS   -3.286    -4.798     0.000    0  MANY
 GS POS ROB1   5  OUTS   -5.400    10.300     0.000    0  MANY
 GS POS ROB1   6  OUTS    5.400    10.300     0.000    0  MANY
 GS POS ROB1   7  OUTS    5.400   -10.300     0.000    0  MANY
 GS POS ROB1   8  OUTS   -5.400   -10.300     0.000    0  MANY
 !
 GS POS ROT5   1  OUTS   -3.786     4.798     0.000    0  ONLY
 GS POS ROT5   2  OUTS    3.786     4.798     0.000    0  ONLY
 GS POS ROT5   3  OUTS    3.786    -4.798     0.000    0  OMLY
 GS POS ROT5   4  OUTS   -3.786    -4.798     0.000    0  ONLY
 GS POS ROT5   5  OUTS   -5.900    10.300     0.000    0  ONLY
 GS POS ROT5   6  OUTS    5.900    10.300     0.000    0  ONLY
 GS POS ROT5   7  OUTS    5.900   -10.300     0.000    0  ONLY
 GS POS ROT5   8  OUTS   -5.900   -10.300     0.000    0  ONLY
 !
 GS POS ROT7   1  ROT6    0.000     0.000     0.000    0  ONLY
 GS POS ROT6   1  OUTS    3.818     3.818    57.400  536  ONLY
 GS POS ROT6   2  OUTS   -3.818     3.818    57.400  537  ONLY
 GS POS ROT6   3  OUTS   -3.818    -3.818    57.400  536  ONLY
 GS POS ROT6   4  OUTS    3.818    -3.818    57.400  537  ONLY
 !
 GS POS ROT9   1  ROT8    0.000     0.000     0.000    0  ONLY
 GS POS ROT8   1  OUTS    0.000    10.300    13.975  538  ONLY
 GS POS ROT8   2  OUTS    0.000   -10.300    13.975  538  ONLY
 !
 GS POS ROTA   1  ROT0    0.000     0.000     0.000    0  ONLY
 GS POS ROT0   1  OUTS   39.398     2.836   -57.400  538  ONLY
 GS POS ROT0   2  OUTS  -39.398     2.836   -57.400  538  ONLY
 GS POS ROT0   3  OUTS   39.398    -2.836   -57.400  538  ONLY
 GS POS ROT0   4  OUTS  -39.398    -2.836   -57.400  538  ONLY
 GS POS ROT0   5  OUTS   37.436     4.798   -57.400  538  ONLY
 GS POS ROT0   6  OUTS  -37.436     4.798   -57.400  538  ONLY
 GS POS ROT0   7  OUTS   37.436    -4.798   -57.400  538  ONLY
 GS POS ROT0   8  OUTS  -37.436    -4.798   -57.400  538  ONLY
 GS POS ROT0   9  OUTS   39.600    10.300   -56.825  538  ONLY
 GS POS ROT0  10  OUTS  -39.600    10.300   -56.825  538  ONLY
 GS POS ROT0  11  OUTS   39.600   -10.300   -56.825  538  ONLY
 GS POS ROT0  12  OUTS  -39.600   -10.300   -56.825  538  ONLY
 !
 !cables continuation
 !
 GS POS ROC1   1  OUTS    4.803      4.803    38.395  504  ONLY
 GS POS ROC1   2  OUTS    0.0        6.7925   38.395  505  ONLY
 GS POS ROC1   3  OUTS   -4.803      4.803    38.395  506  ONLY
 GS POS ROC1   4  OUTS   -4.803     -4.803    38.395  508  ONLY
 GS POS ROC1   5  OUTS    0.0       -6.7925   38.395  509  ONLY
 GS POS ROC1   6  OUTS    4.803     -4.803    38.395  510  ONLY
 !
 GS POS ROC2   1  OUTS    6.0375     0.0      42.65   503  ONLY
 GS POS ROC2   2  OUTS    4.764      4.764    42.65   504  ONLY
 GS POS ROC2   3  OUTS    0.0        6.7375   42.65   505  ONLY
 GS POS ROC2   4  OUTS   -4.764      4.764    42.65   506  ONLY
 GS POS ROC2   5  OUTS   -6.0375     0.0      42.65   507  ONLY
 GS POS ROC2   6  OUTS   -4.764     -4.764    42.65   508  ONLY
 GS POS ROC2   7  OUTS    0.0       -6.7375   42.65   509  ONLY
 GS POS ROC2   8  OUTS    4.764     -4.764    42.65   510  ONLY
 !
 GS POS ROC3   1  OUTS    5.9825     0.0      46.905  503  ONLY
 GS POS ROC3   2  OUTS    4.725      4.725    46.905  504  ONLY
 GS POS ROC3   3  OUTS    0.0        6.6825   46.905  505  ONLY
 GS POS ROC3   4  OUTS   -4.725      4.725    46.905  506  ONLY
 GS POS ROC3   5  OUTS   -5.9825     0.0      46.905  507  ONLY
 GS POS ROC3   6  OUTS   -4.725     -4.725    46.905  508  ONLY
 GS POS ROC3   7  OUTS    0.0       -6.6825   46.905  509  ONLY
 GS POS ROC3   8  OUTS    4.725     -4.725    46.905  510  ONLY
 !
 GS POS ROC4   1  OUTS    5.9275     0.0      51.16  503  ONLY   ! 10-14
 GS POS ROC4   2  OUTS    4.686      4.686    51.16  504  ONLY
 GS POS ROC4   3  OUTS    0.0        6.6275   51.16  505  ONLY
 GS POS ROC4   4  OUTS   -4.686      4.686    51.16  506  ONLY
 GS POS ROC4   5  OUTS   -5.9275     0.0      51.16  507  ONLY
 GS POS ROC4   6  OUTS   -4.686     -4.686    51.16  508  ONLY
 GS POS ROC4   7  OUTS    0.0       -6.6275   51.16  509  ONLY
 GS POS ROC4   8  OUTS    4.686     -4.686    51.16  510  ONLY
 !
 GS POS ROC5   1  OUTS   11.3        0.0      84.48  534  ONLY   ! 14-OUT
 GS POS ROC5   2  OUTS  -11.3        0.0      84.48  535  ONLY   ! 14-OUT
 GS POS ROCC   3  OUTS   35.9        0.0     -56.66    0  ONLY   !  1-OUT
 GS POS ROCC   4  OUTS  -35.9        0.0     -56.66    0  ONLY   !  1-OUT
 !
 !CABLE FOR O-VERTEX
 GS POS ROC6   1  OUTS    5.975     11.9625  -24.67375 0  ONLY   !  1-O-V
 GS POS ROC6   2  OUTS   -5.975     11.9625  -24.67375 0  ONLY   !  1-O-V
 GS POS ROC6   3  OUTS    5.975    -11.9625  -24.67375 0  ONLY   !  1-O-V
 GS POS ROC6   4  OUTS   -5.975    -11.9625  -24.67375 0  ONLY   !  1-O-V
 !
 GS POS ROC7   1  OUTS    5.975     11.9075  -27.7575  0  ONLY   !  1-O-V
 GS POS ROC7   2  OUTS   -5.975     11.9075  -27.7575  0  ONLY   !  1-O-V
 GS POS ROC7   3  OUTS    5.975    -11.9075  -27.7575  0  ONLY   !  1-O-V
 GS POS ROC7   4  OUTS   -5.975    -11.9075  -27.7575  0  ONLY   !  1-O-V
 !
 GS POS ROC8   1  OUTS    5.975     11.8525  -30.84125 0  ONLY   !  1-O-V
 GS POS ROC8   2  OUTS   -5.975     11.8525  -30.84125 0  ONLY   !  1-O-V
 GS POS ROC8   3  OUTS    5.975    -11.8525  -30.84125 0  ONLY   !  1-O-V
 GS POS ROC8   4  OUTS   -5.975    -11.8525  -30.84125 0  ONLY   !  1-O-V
 !
 GS POS ROC9   1  OUTS    5.975     11.7975  -33.925   0  ONLY   !  1-O-V
 GS POS ROC9   2  OUTS   -5.975     11.7975  -33.925   0  ONLY   !  1-O-V
 GS POS ROC9   3  OUTS    5.975    -11.7975  -33.925   0  ONLY   !  1-O-V
 GS POS ROC9   4  OUTS   -5.975    -11.7975  -33.925   0  ONLY   !  1-O-V
 !
 !CABLES FOR I-VERTEX
 GS POS ROC6   5  OUTS    4.3725     7.7000  -24.67375 539  ONLY   !  1-I-VI
 GS POS ROC6   6  OUTS   -4.3725    -7.7000  -24.67375 539  ONLY   !  1-I-VI
 GS POS ROC7   5  OUTS    4.3175     7.7000  -27.7575  539  ONLY   !  1-I-VI
 GS POS ROC7   6  OUTS   -4.3175    -7.7000  -27.7575  539  ONLY   !  1-I-VI
 GS POS ROC8   5  OUTS    4.2625     7.7000  -30.84125 539  ONLY   !  1-I-VI
 GS POS ROC8   6  OUTS   -4.2625    -7.7000  -30.84125 539  ONLY   !  1-I-VI
 GS POS ROC9   5  OUTS    4.2075     7.7000  -33.925   539  ONLY   !  1-I-VI
 GS POS ROC9   6  OUTS   -4.2075    -7.7000  -33.925   539  ONLY   !  1-I-VI
 !
 ! ceramics and its aluminium support
 GS POS ROCE   1  OUTS    3.42      5.5950    0.0      0  ONLY
 GS POS ROCE   2  OUTS   -3.42      5.5950    0.0      0  ONLY
 GS POS ROCE   3  OUTS    3.42     -5.5950    0.0      0  ONLY
 GS POS ROCE   4  OUTS   -3.42     -5.5950    0.0      0  ONLY
 GS POS ROCE   5  OUTS    5.965    11.7400    0.0      0  ONLY
 GS POS ROCE   6  OUTS   -5.965    11.7400    0.0      0  ONLY
 GS POS ROCE   7  OUTS    5.965   -11.7400    0.0      0  ONLY
 GS POS ROCE   8  OUTS   -5.965   -11.7400    0.0      0  ONLY
 !
 GS POS ROA1   1  OUTS    3.42      5.4650    0.0      0  ONLY
 GS POS ROA1   2  OUTS   -3.42      5.4650    0.0      0  ONLY
 GS POS ROA1   3  OUTS    3.42     -5.4650    0.0      0  ONLY
 GS POS ROA1   4  OUTS   -3.42     -5.4650    0.0      0  ONLY
 GS POS ROA1   5  OUTS    5.965    11.6400    0.0      0  ONLY
 GS POS ROA1   6  OUTS   -5.965    11.6400    0.0      0  ONLY
 GS POS ROA1   7  OUTS    5.965   -11.6400    0.0      0  ONLY
 GS POS ROA1   8  OUTS   -5.965   -11.6400    0.0      0  ONLY
 !
 GS POS RKAS   1  OUTS   43.00      7.00    -55.5      0  MANY
 GS POS RKAS   2  OUTS  -43.00      7.00    -55.5      0  MANY
 GS POS RKAS   3  OUTS   43.00    -19.50    -55.5      0  MANY
 GS POS RKAS   4  OUTS  -43.00    -19.50    -55.5      0  MANY
 GS POS RPLA   1  OUTS  -48.50     -6.25    -57.5      0  MANY
 GS POS RPLA   2  OUTS   48.50     -6.25    -57.5      0  MANY
 !
 !
 ! Radiator: position
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 !
 ! THE END of GEOMETRICAL DESCRIPTION of ALL SYSTEMS
 !
 !
 !  9) EXPERIMENTAL AREA (COMMENTED)
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
!GS VOLU OUTS  'BOX '   3 500.4    457.2    800.0      3
!GS VOLU OUTS  'BOX '   3 183.0     36.8    800.0      3
!GS VOLU HFLO  'BOX '  11 457.2      5.0    800.0      3
!GS VOLU HSUM  'BOX '  11   7.5     52.7    800.0      3
!GS VOLU HSUY  'BOX '  11 109.0     20.2     70.0      3
 !       name  shape  mat. r_i      r_o     lz/2    phi1     phi1   # par
!GS VOLU HTUN 'TUBS'    5 395.0    396.2    800.0  -21.1    201.1     5
!GS VOLU HSOI 'TUBS'   20 396.2    457.2    800.0  -21.0    201.0     5
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
!GS POS HFLO   1  OUTS   43.2    -147.2       0.0      0  ONLY
!GS POS HSUM   1  OUTS    0.0     -89.5       0.0      0  MANY
!GS POS HSUY   1  OUTS    0.0    -122.0      42.4      0  ONLY
!GS POS HTUN   1  OUTS   43.18      0.0       0.0      0  MANY
!GS POS HSOI   1  OUTS   43.18      0.0       0.0      0  MANY
 !
 ! 10)Recording parameters
 !
 GS SET NPLANES 146
 ! Detector set names:
 GS SET IUDET(1)   'SPA1SPB1SPC1SPD1SPE1SPF1SPH1SPI1SPI2SPJ1'
 GS SET IUDET(11)  'SPJ2SPK1SPK2SPK3SPK4SPL1SPL3SPL4SPM1SPM2'
 GS SET IUDET(21)  'SPM3SPM4SPN2SPN4SPO1SPO2SPO3SPO4SPP1SPP3'
 GS SET IUDET(31)  'SPP4SNA1SNB1SNC1SND1SNE1SNF1SNH1SNI1SNI2'
 GS SET IUDET(41)  'SNJ1SNJ2SNK1SNK2SNK3SNK4SNL1SNL3SNL4SNM1'
 GS SET IUDET(51)  'SNM2SNM3SNM4SNN2SNN4SNO1SNO2SNO3SNO4SNP1'
 GS SET IUDET(61)  'SNP3SNP4MNC1MNC2MNC3MNC4MNC5MNC6MNC7MNC8'
 GS SET IUDET(71)  'MNB1MNB2MNB3MNB4MNB5MNB6MNB7MNB8MNA1MNA2'
 GS SET IUDET(81)  'MNA3MNA4MNA5MNA6MNA7MNA8MOA1MOA2MOB1MOC1'
 GS SET IUDET(91)  'MOC2MOD1MOE1MOE2MOF1MOG1MOG2MOH1MPA1MPA2'
 GS SET IUDET(101) 'MPA3MPA4MPA5MPA6MPA7MPA8MPB1MPB2MPB3MPB4'
 GS SET IUDET(111) 'MPB5MPB6MPB7MPB8MPC1MPC2MPC3MPC4MPC5MPC6'
 GS SET IUDET(121) 'MPC7MPC8VNA1VNB1VPA1VPB1TPA1TPA2TPA3TPA4'
 GS SET IUDET(131) 'TPB1TPB2TPB3TPB4TPC1TPC2TNA1TNA2TNA3TNA4'
 GS SET IUDET(141) 'TNB1TNB2TNB3TNB4TNC1TNC2'
 ! Bit packing:
 ! Each value in the hits bank is saved as an positive integer NBITSH bits long
 ! thus real numbers have to be rescaled:
 ! int = FACT * (real + ORIG) has to be positive
 ! Scale defined the accuracy of the saved number,
 ! Offsets should be defined as the lowest possible value of the real variable
 GS SET NBITSH  32   32   32   32   32   32   32   32  32  32  32   ! # bits
 GS SET FACT  1.e5 1.e5 1.e5 1.e7 1.e5 1.e5 1.e5 1.e4 1.e11 1.  1.  ! Scales
 GS SET ORIG  1.e3 1.e3 1.e3 0.   1.e3 1.e3 1.e3   0.   0.  0.  0.  ! Offsets
 GS SET NAMESH  'X   Y   Z   DE  DX  DY  DZ  EFINTOF ITRKVSEQ'      ! Pnames
 ! X Y Z - the position of the hit (the midpoint between entrance and exit)
 !         (in the master reference system)
 ! DE  -  energy lost by the particle in the silicon
 ! DX DY DZ  -  the difference of coordinates of exit and entrance
 ! EFIN - energy of the particle at exit
 ! TOF -  time of flight of the ptl to the plane hit in secs
 ! ITRK - track number (in the event)
 ! VSEQ - combined info VSEQ = IVOL + 1000 * ISEQ where
 !        ISEQ - the sequential number of the hit for this particle
 !        IVOL - the number of the plane hit
 !
 ! Set classifications:
 ! The vector indices after ISET and IDET specify the elements into which
 ! the values returned by GSDET are to be stored; a future syntax may
 ! reference the vector elements directly
 !
 GS DETV  SPEC  SPA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  SPEC  SPB1   1  12000  1000  ISET  2  IDET  2
 GS DETV  SPEC  SPC1   1  12000  1000  ISET  3  IDET  3
 GS DETV  SPEC  SPD1   1  12000  1000  ISET  4  IDET  4
 GS DETV  SPEC  SPE1   1  12000  1000  ISET  5  IDET  5
 GS DETV  SPEC  SPF1   1  12000  1000  ISET  6  IDET  6
 GS DETV  SPEC  SPH1   1  12000  1000  ISET  7  IDET  7
 GS DETV  SPEC  SPI1   1  12000  1000  ISET  8  IDET  8
 GS DETV  SPEC  SPI2   1  12000  1000  ISET  9  IDET  9
 GS DETV  SPEC  SPJ1   1  12000  1000  ISET 10  IDET 10
 GS DETV  SPEC  SPJ2   1  12000  1000  ISET 11  IDET 11
 GS DETV  SPEC  SPK1   1  12000  1000  ISET 12  IDET 12
 GS DETV  SPEC  SPK2   1  12000  1000  ISET 13  IDET 13
 GS DETV  SPEC  SPK3   1  12000  1000  ISET 14  IDET 14
 GS DETV  SPEC  SPK4   1  12000  1000  ISET 15  IDET 15
 GS DETV  SPEC  SPL1   1  12000  1000  ISET 16  IDET 16
 GS DETV  SPEC  SPL3   1  12000  1000  ISET 17  IDET 17
 GS DETV  SPEC  SPL4   1  12000  1000  ISET 18  IDET 18
 GS DETV  SPEC  SPM1   1  12000  1000  ISET 19  IDET 19
 GS DETV  SPEC  SPM2   1  12000  1000  ISET 20  IDET 20
 GS DETV  SPEC  SPM3   1  12000  1000  ISET 21  IDET 21
 GS DETV  SPEC  SPM4   1  12000  1000  ISET 22  IDET 22
 GS DETV  SPEC  SPN2   1  12000  1000  ISET 23  IDET 23
 GS DETV  SPEC  SPN4   1  12000  1000  ISET 24  IDET 24
 GS DETV  SPEC  SPO1   1  12000  1000  ISET 25  IDET 25
 GS DETV  SPEC  SPO2   1  12000  1000  ISET 26  IDET 26
 GS DETV  SPEC  SPO3   1  12000  1000  ISET 27  IDET 27
 GS DETV  SPEC  SPO4   1  12000  1000  ISET 28  IDET 28
 GS DETV  SPEC  SPP1   1  12000  1000  ISET 29  IDET 29
 GS DETV  SPEC  SPP3   1  12000  1000  ISET 30  IDET 30
 GS DETV  SPEC  SPP4   1  12000  1000  ISET 31  IDET 31
 !
 GS DETV  SPEC  SNA1   1  12000  1000  ISET 32  IDET 32
 GS DETV  SPEC  SNB1   1  12000  1000  ISET 33  IDET 33
 GS DETV  SPEC  SNC1   1  12000  1000  ISET 34  IDET 34
 GS DETV  SPEC  SND1   1  12000  1000  ISET 35  IDET 35
 GS DETV  SPEC  SNE1   1  12000  1000  ISET 36  IDET 36
 GS DETV  SPEC  SNF1   1  12000  1000  ISET 37  IDET 37
 GS DETV  SPEC  SNH1   1  12000  1000  ISET 38  IDET 38
 GS DETV  SPEC  SNI1   1  12000  1000  ISET 39  IDET 39
 GS DETV  SPEC  SNI2   1  12000  1000  ISET 40  IDET 40
 GS DETV  SPEC  SNJ1   1  12000  1000  ISET 41  IDET 41
 GS DETV  SPEC  SNJ2   1  12000  1000  ISET 42  IDET 42
 GS DETV  SPEC  SNK1   1  12000  1000  ISET 43  IDET 43
 GS DETV  SPEC  SNK2   1  12000  1000  ISET 44  IDET 44
 GS DETV  SPEC  SNK3   1  12000  1000  ISET 45  IDET 45
 GS DETV  SPEC  SNK4   1  12000  1000  ISET 46  IDET 46
 GS DETV  SPEC  SNL1   1  12000  1000  ISET 47  IDET 47
 GS DETV  SPEC  SNL3   1  12000  1000  ISET 48  IDET 48
 GS DETV  SPEC  SNL4   1  12000  1000  ISET 49  IDET 49
 GS DETV  SPEC  SNM1   1  12000  1000  ISET 50  IDET 50
 GS DETV  SPEC  SNM2   1  12000  1000  ISET 51  IDET 51
 GS DETV  SPEC  SNM3   1  12000  1000  ISET 52  IDET 52
 GS DETV  SPEC  SNM4   1  12000  1000  ISET 53  IDET 53
 GS DETV  SPEC  SNN2   1  12000  1000  ISET 54  IDET 54
 GS DETV  SPEC  SNN4   1  12000  1000  ISET 55  IDET 55
 GS DETV  SPEC  SNO1   1  12000  1000  ISET 56  IDET 56
 GS DETV  SPEC  SNO2   1  12000  1000  ISET 57  IDET 57
 GS DETV  SPEC  SNO3   1  12000  1000  ISET 58  IDET 58
 GS DETV  SPEC  SNO4   1  12000  1000  ISET 59  IDET 59
 GS DETV  SPEC  SNP1   1  12000  1000  ISET 60  IDET 60
 GS DETV  SPEC  SNP3   1  12000  1000  ISET 61  IDET 61
 GS DETV  SPEC  SNP4   1  12000  1000  ISET 62  IDET 62
 !
 GS DETV  RING  MNC1   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC2   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC3   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC4   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC5   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC6   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC7   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC8   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNB1   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB2   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB3   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB4   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB5   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB6   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB7   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB8   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNA1   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA2   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA3   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA4   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA5   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA6   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA7   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA8   1  12000  1000  ISET  3  IDET  3
 !
 GS DETV  BARR  MOA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  BARR  MOA2   1  12000  1000  ISET  2  IDET  2
 GS DETV  BARR  MOB1   1  12000  1000  ISET  3  IDET  3
 GS DETV  BARR  MOC1   1  12000  1000  ISET  4  IDET  4
 GS DETV  BARR  MOC2   1  12000  1000  ISET  5  IDET  5
 GS DETV  BARR  MOD1   1  12000  1000  ISET  6  IDET  6
 GS DETV  BARR  MOE1   1  12000  1000  ISET  7  IDET  7
 GS DETV  BARR  MOE2   1  12000  1000  ISET  8  IDET  8
 GS DETV  BARR  MOF1   1  12000  1000  ISET  9  IDET  9
 GS DETV  BARR  MOG1   1  12000  1000  ISET 10  IDET 10
 GS DETV  BARR  MOG2   1  12000  1000  ISET 11  IDET 11
 GS DETV  BARR  MOH1   1  12000  1000  ISET 12  IDET 12
 !
 GS DETV  RING  MPA1   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA2   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA3   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA4   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA5   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA6   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA7   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA8   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPB1   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB2   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB3   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB4   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB5   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB6   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB7   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB8   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPC1   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC2   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC3   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC4   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC5   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC6   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC7   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC8   1  12000  1000  ISET  6  IDET  6
 !
 GS DETV  VERT  VNA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  VERT  VNB1   1  12000  1000  ISET  2  IDET  2
 GS DETV  VERT  VPA1   1  12000  1000  ISET  3  IDET  3
 GS DETV  VERT  VPB1   1  12000  1000  ISET  4  IDET  4
 !
 GS DETV  TOFC   TPA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  TOFC   TPA2   1  12000  1000  ISET  2  IDET  2
 GS DETV  TOFC   TPA3   1  12000  1000  ISET  3  IDET  3
 GS DETV  TOFC   TPA4   1  12000  1000  ISET  4  IDET  4
 GS DETV  TOFC   TPB1   1  12000  1000  ISET  5  IDET  5
 GS DETV  TOFC   TPB2   1  12000  1000  ISET  6  IDET  6
 GS DETV  TOFC   TPB3   1  12000  1000  ISET  7  IDET  7
 GS DETV  TOFC   TPB4   1  12000  1000  ISET  8  IDET  8
 GS DETV  TOFC   TPC1   1  12000  1000  ISET  9  IDET  9
 GS DETV  TOFC   TPC2   1  12000  1000  ISET 10  IDET 10
 !
 GS DETV  TOFC   TNA1   1  12000  1000  ISET 11  IDET 11
 GS DETV  TOFC   TNA2   1  12000  1000  ISET 12  IDET 12
 GS DETV  TOFC   TNA3   1  12000  1000  ISET 13  IDET 13
 GS DETV  TOFC   TNA4   1  12000  1000  ISET 14  IDET 14
 GS DETV  TOFC   TNB1   1  12000  1000  ISET 15  IDET 15
 GS DETV  TOFC   TNB2   1  12000  1000  ISET 16  IDET 16
 GS DETV  TOFC   TNB3   1  12000  1000  ISET 17  IDET 17
 GS DETV  TOFC   TNB4   1  12000  1000  ISET 18  IDET 18
 GS DETV  TOFC   TNC1   1  12000  1000  ISET 19  IDET 19
 GS DETV  TOFC   TNC2   1  12000  1000  ISET 20  IDET 20
 !
 GS DETH  SPEC  SPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPD1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPE1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPF1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPH1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPI1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPI2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPJ1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPJ2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPL1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPL3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPL4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPN2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPN4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPP1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPP3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPP4  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  SPEC  SNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SND1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNE1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNF1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNH1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNI1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNI2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNJ1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNJ2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNL1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNL3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNL4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNN2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNN4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNP1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNP3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNP4  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  RING  MNC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOC2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOD1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOE1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOE2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOF1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOG1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOG2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOH1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC8  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  VERT  VNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  VERT  VNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  VERT  VPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  VERT  VPB1  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  TOFC   TPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPC2  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  TOFC   TNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNC2  11  NAMESH  NBITSH  ORIG  FACT
 !
 !
 ! Silicon plane parameters (unused entries during simulation):
 !
 ! Spectrometer:
 !--------------
 !         Pl#  lx/2    pix_x ly/2    pix_y  Thk  D2IP  Hoff  Angl
 GS SET SLP  1  6.9500 .1000  1.1000  0.100    0.    0.    0. 171.00  ! SPA1
 GS SET SLP  2  6.9500 .1000  1.1000  0.100    0.    0.    0. 171.00  ! SPB1
 GS SET SLP  3  6.9500 .1000  1.1000  0.100    0.    0.    0. 156.00  ! SPC1
 GS SET SLP  4  6.9500 .1000  1.1000  0.100    0.    0.    0. 156.00  ! SPD1
 GS SET SLP  5  8.4759 .0427  1.5000  0.600    0.    0.    0. 146.00  ! SPE1
 GS SET SLP  6  8.4759 .0427  1.5000  0.600    0.    0.    0. 146.00  ! SPF1
 GS SET SLP  7 10.5896 .0427  1.5000  0.600    0.    0.    0. 140.00  ! SPG1
 GS SET SLP  8 10.5896 .0427  1.5000  0.600    0.    0.    0. 140.00  ! SPH1
 GS SET SLP  9  8.4375 .0667  3.0000  1.500    0.    0.    0. 170.00  ! SPI1
 GS SET SLP 10  8.4375 .0667  3.0000  0.750    0.    0.    0.  99.00  ! SPI2
 GS SET SLP 11  8.4375 .0667  3.0000  1.500    0.    0.    0. 170.00  ! SPJ1
 GS SET SLP 12  8.4375 .0667  3.0000  0.750    0.    0.    0.  99.00  ! SPJ2
 GS SET SLP 13  6.3365 .0667  3.0000  1.500    0.    0.    0. 200.00  ! SPK1
 GS SET SLP 14 12.6397 .0667  3.0000  1.500    0.    0.    0. 135.00  ! SPK2
 GS SET SLP 15  4.2354 .0667  3.0000  1.500    0.    0.    0.  70.00  ! SPK3
 GS SET SLP 16  4.2354 .0667  3.0000  0.750    0.    0.    0.  70.00  ! SPK4
 GS SET SLP 17  8.4375 .0667  3.0000  1.500    0.    0.    0. 200.00  ! SPL1
 GS SET SLP 18 12.6397 .0667  3.0000  1.500    0.    0.    0. 135.00  ! SPL2
 GS SET SLP 19  4.2354 .0667  3.0000  1.500    0.    0.    0.  70.00  ! SPL3
 GS SET SLP 20  4.2354 .0667  3.0000  0.750    0.    0.    0.  70.00  ! SPL4
 GS SET SLP 21 12.6397 .0667  3.8000  1.900    0.    0.    0. 210.00  ! SPM1
 GS SET SLP 22 14.7407 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SPM2
 GS SET SLP 23  8.4375 .0667  3.8000  1.900    0.    0.    0.  60.00  ! SPM3
 GS SET SLP 24  6.3365 .0667  3.0000  0.750    0.    0.    0.  60.00  ! SPM4
 GS SET SLP 25 14.7407 .0667  3.8000  1.900    0.    0.    0. 210.00  ! SPN1
 GS SET SLP 26 14.7407 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SPN2
 GS SET SLP 27  8.4375 .0667  3.8000  1.900    0.    0.    0.  60.00  ! SPN3
 GS SET SLP 28  6.3365 .0667  3.0000  0.750    0.    0.    0.  60.00  ! SPN4
 GS SET SLP 29 18.9428 .0667  3.8000  1.900    0.    0.    0. 215.00  ! SPO1
 GS SET SLP 30 18.9428 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SPO2
 GS SET SLP 31 14.7407 .0667  3.8000  1.900    0.    0.    0.  55.00  ! SPO3
 GS SET SLP 32  6.3365 .0667  3.0000  0.750    0.    0.    0.  55.00  ! SPO4
 GS SET SLP 33 21.0439 .0667  3.8000  1.900    0.    0.    0. 215.00  ! SPP1
 GS SET SLP 34 18.9428 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SPP2
 GS SET SLP 35 14.7407 .0667  3.8000  1.900    0.    0.    0.  55.00  ! SPP3
 GS SET SLP 36  6.3365 .0667  3.0000  0.750    0.    0.    0.  55.00  ! SPP4
 !
 !         Pl#  lx/2   pix_x  ly/2    pix_y   Thk  D2IP  Hoff  Angl
 GS SET SLP  1  6.9500 .1000  1.1000  0.100    0.    0.    0. 171.00  ! SNA1
 GS SET SLP  2  6.9500 .1000  1.1000  0.100    0.    0.    0. 171.00  ! SNB1
 GS SET SLP  3  6.9500 .1000  1.1000  0.100    0.    0.    0. 156.00  ! SNC1
 GS SET SLP  4  6.9500 .1000  1.1000  0.100    0.    0.    0. 156.00  ! SND1
 GS SET SLP  5  8.4759 .0427  1.5000  0.600    0.    0.    0. 146.00  ! SNE1
 GS SET SLP  6  8.4759 .0427  1.5000  0.600    0.    0.    0. 146.00  ! SNF1
 GS SET SLP  7 10.5896 .0427  1.5000  0.600    0.    0.    0. 140.00  ! SNG1
 GS SET SLP  8 10.5896 .0427  1.5000  0.600    0.    0.    0. 140.00  ! SNH1
 GS SET SLP  9  8.4375 .0667  3.0000  1.500    0.    0.    0. 170.00  ! SNI1
 GS SET SLP 10  8.4375 .0667  3.0000  0.750    0.    0.    0.  99.00  ! SNI2
 GS SET SLP 11  8.4375 .0667  3.0000  1.500    0.    0.    0. 170.00  ! SNJ1
 GS SET SLP 12  8.4375 .0667  3.0000  0.750    0.    0.    0.  99.00  ! SNJ2
 GS SET SLP 13  6.3365 .0667  3.0000  1.500    0.    0.    0. 200.00  ! SNK1
 GS SET SLP 14 12.6397 .0667  3.0000  1.500    0.    0.    0. 135.00  ! SNK2
 GS SET SLP 15  4.2354 .0667  3.0000  1.500    0.    0.    0.  70.00  ! SNK3
 GS SET SLP 16  4.2354 .0667  3.0000  0.750    0.    0.    0.  70.00  ! SNK4
 GS SET SLP 17  8.4375 .0667  3.0000  1.500    0.    0.    0. 200.00  ! SNL1
 GS SET SLP 18 12.6397 .0667  3.0000  1.500    0.    0.    0. 135.00  ! SNL2
 GS SET SLP 19  4.2354 .0667  3.0000  1.500    0.    0.    0.  70.00  ! SNL3
 GS SET SLP 20  4.2354 .0667  3.0000  0.750    0.    0.    0.  70.00  ! SNL4
 GS SET SLP 21 12.6397 .0667  3.8000  1.900    0.    0.    0. 210.00  ! SNM1
 GS SET SLP 22 14.7407 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SNM2
 GS SET SLP 23  8.4375 .0667  3.8000  1.900    0.    0.    0.  60.00  ! SNM3
 GS SET SLP 24  6.3365 .0667  3.0000  0.750    0.    0.    0.  60.00  ! SNM4
 GS SET SLP 25 14.7407 .0667  3.8000  1.900    0.    0.    0. 210.00  ! SNN1
 GS SET SLP 26 14.7407 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SNN2
 GS SET SLP 27  8.4375 .0667  3.8000  1.900    0.    0.    0.  60.00  ! SNN3
 GS SET SLP 28  6.3365 .0667  3.0000  0.750    0.    0.    0.  60.00  ! SNN4
 GS SET SLP 29 18.9428 .0667  3.8000  1.900    0.    0.    0. 215.00  ! SNO1
 GS SET SLP 30 18.9428 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SNO2
 GS SET SLP 31 14.7407 .0667  3.8000  1.900    0.    0.    0.  55.00  ! SNO3
 GS SET SLP 32  6.3365 .0667  3.0000  0.750    0.    0.    0.  55.00  ! SNO4
 GS SET SLP 33 21.0439 .0667  3.8000  1.900    0.    0.    0. 215.00  ! SNP1
 GS SET SLP 34 18.9428 .0667  3.8000  1.900    0.    0.    0. 135.00  ! SNP2
 GS SET SLP 35 14.7407 .0667  3.8000  1.900    0.    0.    0.  55.00  ! SNP3
 GS SET SLP 36  6.3365 .0667  3.0000  0.750    0.    0.    0.  55.00  ! SNP4
 !
 ! Octagon:
 ! --------
 ! Angl is theta relative to Y
 !         Pl#  lz/2   pix_z  lx/2   pix_x    Thk  D2IP  Hoff  Angl
 GS SET SLP  1 16.970  .0650  1.8150 3.6300    0     0     0    0.00  ! MOA1
 GS SET SLP  2 25.480  .0650  1.8150 3.6300    0     0     0    0.00  ! MOA2
 GS SET SLP  3 55.265  .0650  1.8150 3.6300    0     0     0  135.00  ! MOB1
 GS SET SLP  4 21.225  .0650  1.8150 3.6300    0     0     0   90.00  ! MOC1
 GS SET SLP  5 21.225  .0650  1.8150 3.6300    0     0     0   90.00  ! MOC2
 GS SET SLP  6 55.265  .0650  1.8150 3.6300    0     0     0  135.00  ! MOD1
 GS SET SLP  7 16.970  .0650  1.8150 3.6300    0     0     0    0.00  ! MOE1
 GS SET SLP  8 25.480  .0650  1.8150 3.6300    0     0     0    0.00  ! MOE2
 GS SET SLP  9 55.265  .0650  1.8150 3.6300    0     0     0   45.00  ! MOF1
 GS SET SLP 10 21.225  .0650  1.8150 3.6300    0     0     0   90.00  ! MOG1
 GS SET SLP 11 21.225  .0650  1.8150 3.6300    0     0     0   90.00  ! MOG2
 GS SET SLP 12 55.265  .0650  1.8150 3.6300    0     0     0   45.00  ! MOH1
 !
 ! Rings:
 ! ------
 !          (deta corresopnds to radii(cm):
 !           5.51789,6.08942,6.72014,7.41620,8.18435,9.03206,9.96758)
 !         Pl#  r_i   deta   r_o      dphi    Thk  D2IP  Hoff  Angl
 GS SET SLP  1  5.0    .1    11.0    5.6250    0.    0.    0.    0.   ! MNC1
 GS SET SLP  2  5.0    .1    11.0    5.6250    0.    0.    0.    0.   ! MNB1
 GS SET SLP  3  5.0    .1    11.0    5.6250    0.    0.    0.    0.   ! MNA1
 !         Pl#  r_i   deta   r_o      dphi    Thk  D2IP  Hoff  Angl
 GS SET SLP  1  5.0    .1    11.0    5.6250    0.    0.    0.    0.   ! MPC1
 GS SET SLP  2  5.0    .1    11.0    5.6250    0.    0.    0.    0.   ! MPB1
 GS SET SLP  3  5.0    .1    11.0    5.6250    0.    0.    0.    0.   ! MPA1
 !
 ! Vertex:
 ! -------
 !         Pl#  lz/2     pix_z  lx/2   pix_x    Thk  D2IP  Hoff  Angl
 GS SET SLP  1 12.7150   .0320 1.8150  3.6300  0     0     0   0.00   ! VNB1
 GS SET SLP  2 12.7150   .0320 1.8150  3.6300  0     0     0   0.00   ! VNA1
 GS SET SLP  3 12.7150   .0320 1.8150  3.6300  0     0     0   0.00   ! VPA1
 GS SET SLP  4 12.7150   .0650 3.6800  3.6300  0     0     0   0.00   ! VPB1
 !
 ! TOF:
 ! ----
 !         Pl#  lx/2    pix_x  ly/2   pix_y   Thk  D2IP  Hoff  Angl
 GS SET SLP  1 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TPA1
 GS SET SLP  2 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TPA2
 GS SET SLP  3 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TPA3
 GS SET SLP  4 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TPA4
 GS SET SLP  5 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TPB1
 GS SET SLP  6 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TPB2
 GS SET SLP  7 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TPB3
 GS SET SLP  8 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TPB4
 GS SET SLP  9 24.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TPC1
 GS SET SLP 10 24.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TPC2
 !         Pl#  lx/2    pix_x  ly/2   pix_y   Thk  D2IP  Hoff  Angl
 GS SET SLP  1 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TNA1
 GS SET SLP  2 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TNA2
 GS SET SLP  3 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TNA3
 GS SET SLP  4 15.0000  1.00  10.0000 20.0000  0.    0.    0.    0.   ! TNA4
 GS SET SLP  5 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TNB1
 GS SET SLP  6 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TNB2
 GS SET SLP  7 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TNB3
 GS SET SLP  8 12.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TNB4
 GS SET SLP  9 24.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TNC1
 GS SET SLP 10 24.0000  0.80  10.0000 20.0000  0.    0.    0.    0.   ! TNC2
 !
 GS CLOS
+DECK,UGCDATA_V37  ,T=DATA.
*CMZ :  2.02/01 16/07/97  15.00.48  by  Phobos (R. Verdier)
*-- Author :
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ! This file contains geometry and material definitions for Phobos  !
 ! detector Geant simulations. This file consists of the following  !
 ! parts:
 !                                                                  !
 !  1) A SHORT HISTORY OF CHANGES MADE TO THIS (UGCDATA.TXT) FILE   !
 !  2) MATERIALS AND TRACKING MEDIA DEFINITIONS                     !
 !  3) COORDINATE SYSTEM AND NOMINAL VERTEX                         !
 !  4) SPECTROMETER                                                 !
 !  5) MAGNET                                                       !
 !  6) BEAM PIPE                                                    !
 !  7) TOF                                                          !
 !  8) MULTIPLICITY                                                 !
 !  9) EXPERIMENTAL AREA (COMMENTED)                                !
 ! 10) RECORDING PARAMETERS                                         !
 !                                                                  !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !                                                                  !
 !  1) A SHORT HISTORY OF CHANGES MADE TO THIS FILE                 !
 !                                                                  !
 GS SET GEOV 3.7
 ! ver 3.7     MAY-1997   A.T.                                      !
 !         number of volumes:  631/2034                             !
 !         number of sensitive planes: 146                          !
 !                       - Geometry of magnet was updated           !
 !                       - Lrad for materials ALUMINUM and ALUMI073 !
 !                         corrected,                               !
 !                       - y-dim. of sensitive planes of octagon and!
 !                         vertex were silghtly updated             !
 !                       - y-dim. of pixel size (V*A1) - slightly   !
 !                         updated                                  !
 !                       - y-dim and z-dim of pads for octagon      !
 !                         and vertex "twisted"                     !
 !                                                                  !
 ! ver 3.6     MAR-1997   A.T.                                      !
 !         number of volumes:          435/1284                     !
 !         number of sensitive planes: 146                          !
 !                       - Cage (small plate + supporting arm) added!
 !                       - Flanges of the b.p added.                !
 !                       - Names of different types  of aluminium   !
 !                         introduced.                              !
 !                       - Lengths of some  cooling tubes changed in!
 !                         the spectrometer - made shorter.         !
 !                       - Cables added to spectrometer - for time  !
 !                         being I put cables ( actually, some      !
 !                         approx. of 24 copper cables 250cm*2.1cm* !
 !                         0.055cm each) for planes from A1 to H1 in!
 !                         both arms.                               !
 !                       - The height of inactive silicons in       !
 !                         spectrometer for planes E,F,H increased  !
 !                         from 3.8cm to 8cm and respective         !
 !                         electronics material moved out from y=0  !
 !                         plane.                                   !
 !                       - Volumes U(P/N)*4 (except for **N4) moved !
 !                         out from cooling tubes by 0.03cm to avoid!
 !                         small overlaps.                          !
 !                       - Autocad files of silicon wafers were read!
 !                         to set pixels sizes which were appended  !
 !                         to the file                              !
 !                       - The new format of setting the sensitivity!
 !                         of volumes was adopted what means that   !
 !                         this and next releases of PMC geometry   !
 !                         needs update of PMC fortran code.        !
 !                       - RKAS volume is put as ONLY now to improve!
 !                         simulation time(=> ROTA, ROT0, ROCC were !
 !                         also changed)                            !
 !                                                                  !
 ! ver 3.5     JAN-1997   A.T.                                      !
 !         number of volumes:          425/1264                     !
 !         number of sensitive planes: 146                          !
 !                                                                  !
 !                         Positions/dimensions of vertex/multipli- !
 !                         city silicons are updated,               !
 !                         Vertex detector is y-symmetric,          !
 !                         Aluminium support for octagon (ribs,     !
 !                         tubes) is added,                         !
 !                         Support for rings updated,               !
 !                         Electronics parts in multiplicity/vertex !
 !                         (incl. rings) added,                     !
 !                         Cables in the mulitiplicity/vertex       !
 !                         (incl. rings) added,                     !
 !                         Aluminium support for outer-vertex added,!
 !                         Heavy boxes with DAS added,              !
 !
 ! ver 3.4     OCT-1996   R.V.                                      !
 !                         Beam pipe now 3 inches diam; FACT values !
 !                         for X-Z, DZ-DZ now 1e5.                  !
 ! ver 3.3     SEP-1996   A.T.                                      !
 !                                                                  !
 !         number of volumes:          345/380/749                  !
 !         number of sensitive planes: 104                          !
 !         (   Sep-1996)   r_outside =3.9 (was 4cm) of BEAV         !
 !         (   Sep-1996)   The additional cut for now was updated   !
 !                         now the offset in pole Z location is     !
 !                         6*sqrt(2) vs CDR. A new line with ver no !
 !                         was added.                               !
 !         (   Jul-1996)   Cage was updated                         !
 !         (24-May-1996)   Subroutine which takes (only) ugcdata as !
 !                         input, producing  dimensions, positions  !
 !                         (center position in  OUTS and rotation), !
 !                         pixels sizes for sensitive volumes was   !
 !                         prepared and is available from me at a   !
 !                         request. Commenting in ugcdata was       !
 !                         changed for needs of this subroutine.    !
 !                                                                  !
 ! ver 3.2     May-1996   A.T.                                      !
 !                                                                  !
 !         number of volumes:          345/380                      !
 !         number of sensitive planes: 104                          !
 !                                                                  !
 !         (9-May-1996)    pixelization updated: pix_y= 0.5cm  for  !
 !                         E,F,G,H changed to .6cm,pix_y=1.955 for  !
 !                         planes in spectrometer changed to 1.9cm, !
 !                         and pixelization in I1, I2, J1, J2 cor-  !
 !                         rected.                                  !
 !                         ly/2 for the  planes   in  spectrometer  !
 !                         changed from 3.91cm to 3.8cm             !
 !                                                                  !
 ! ver 3.1     April-1996   A.T.                                    !
 !                                                                  !
 !         number of volumes:          345/380                      !
 !         number of sensitive planes: 104                          !
 !                                                                  !
 !         (18-April-1996) Some extra volumes from upgraded config. !
 !                         of spectrometer which were put by  mis-  !
 !                         take to the ver. 3.0  and  were removed. !
 !                         OUTS was  made smaller  ly/2 = 37.05 cm  !
 !                         (to contain whole pole face) lz/2=520cm  !
 !                         (to contain rings - C1). Some  comments  !
 !                         lines were added inside the file. Pixel- !
 !                         lization was updated.                    !
 !                         The geometries of enlarged spectrometer  !
 !                         and full configuration of  spectrometer  !
 !                         are available from me by request.        !
 !                         Soon a subroutine which will take (only) !
 !                         ugcdata as input, producing  dimensions, !
 !                         positions (center position in  OUTS and  !
 !                         rotation) pixels sizes for  a sensitive  !
 !                         volume will be prepared.                 !
 !                         Parameters for  sensitive  plains  were  !
 !                         discussed  with   George Stephans   and  !
 !                         Russell Bets. A  detail  description of  !
 !                         the release will be presented in PHOBOS  !
 !                         report.                                  !
 !                                                                  !
 ! ver 3.0     April-1996   A.T.                                    !
 !                                                                  !
 !         number of volumes:          375                          !
 !         number of sensitive planes: 104                          !
 !                                                                  !
 !         (22-March-1996) The support structure of the magnet was  !
 !                         modelled. The center of the pole is  at  !
 !                         (x_c,z_c)=( 43cm,43cm ).   The distance  !
 !                         between poles is 15.5cm. The additional  !
 !                         cut for now was introduced by  14.14 cm  !
 !                         (10*sqrt(2)) offset in  Z  location  of  !
 !                         poles. The cage supporting the spectro-  !
 !                         meter was modelled for the MC study.     !
 !                                                                  !
 ! ver 2.9     Feb-1996   A.T.
 !
 !         number of volumes:          375
 !         number of sensitive planes: 104
 !
 !         (16-Feb-1996)   the sensitive spectrometer planes are now:
 !                         A1,B1,C1,D1,E1,F1,H1,I1,I2,J1,J2,K1,K2,K3,K4,
 !                         L1,L3,L4,M1,M2,M3,M4,N2,N4,O1,O2,O3,O4,P1,P3,P4
 !                         Their positions have changed slightly due to
 !                         technical reasons. The vertical dimensions of
 !                         silicons have changed.
 !                         The width of cooling tubes
 !                         is 0.8 cm. There is a new realistic field map
 !                         available for magt=2. The new design of the vertex
 !                         and multiplicity detector was incorporated.
 !                         A version of UGCDATA.TXT with enlarged
 !                         dimension of silicons is available.
 !
 ! ver 2.8     Jul-1995   A.T.
 !
 !         number of volumes:          368
 !         number of sensitive planes:  97
 !
 !         (11-Jul-1995) - new scheme for names was introduced. With the scheme
 !                         added sensitive planes ( SP(N)H1;SP(N)AJ1(2);
 !                         SP(N)O2(4);SP(N)P1(3) - 14 planes ) with their
 !                         support vols - aluminum plates and electronics.
 !                         The cooling tube for g1 and h1 (vol. UCGH) was
 !                         put on the other side of the the plane G1.
 !                         The same with cooling tubes for I1, I2, J1 and J2.
 !                         Cooling uprights were move form the end of cooling
 !                         tubes: UCAB, UCCD, UCEH to the other side of silicons
 !                         farther from the beam pipe. These cooling tubes are
 !                         3cm X 0.8cm, the rest of cooling tubes is 2cmX0.9cm.
 !
 !         (06-Jul-1995) - parameters of base plate (vol. BAS1, and BAS2)
 !                         were adjusted to the magnet
 !         (04-Jul-1995) - restructuring the UGCDATA.TXT to the modular form
 !                         (see the beginning of the file).
 !                         UGCDATA.TXT cleaned from obsolete comments.
 !                         Labs set to zero as Geant calculate them.
 !         (02-Jul-1995) - base plate on the top side of the spectrometer too.
 !                         elements of the bottom pole faces put directly into
 !                         outs.
 !         (20-Apr-1995) - mate. SCINT added to TOF, CDR's support structure
 !                         is filled with the air for now as the support
 !                         is not adequate to TOF and will be changed,
 !                         magnetic field is in the beam tube now,
 !                         HIT bank corrected (4 characters names now)
 !
 !         (19-Apr-1995) - scales and names of hits updated for TOF (RV)
 !
 ! ver 2.7  26-Sep-1994  A.T.
 !
 !         number of volumes:          313
 !         number of sensitive planes:  83
 !
 !         (26-Sep-1994) - fact and orig changed
 !         (14-Sep-1994) - rad. leng. (contents) of material no 9 corrected
 !         (14-Sep-1994) - electronic's material in spectr. corrected (8-->9)
 !         (14-Sep-1994) - naming changed TOF --> TOFC
 !         (30-Aug-1994) - TOF in, dp(n)ab sticking out from detp(n)
 !         (26-Aug-1994) - Height of I4, J4, K4 now 8.82 cm
 !         (25-Aug-1994) - IUDET(57) replaced by IUDET(58)
 !
 ! ver 2.6  01-Jul-1994  A.T.
 !
 !         number of volumes:          293
 !         number of sensitive planes: 63
 !
 !         (01-jul-1994) - most of obsolete comments deleted
 !         (01-jul-1994) - added materials
 !         (01-jul-1994) - coil material corrected
 !         (30-jun-1994) - added supports for mult. & vertex
 !         (30-jun-1994) - added electronics for spec., mult. octagon and vertex
 !         (16-JUN-1994) - SDET -> SPEC, RING, BARR AND VERT
 !         (16-JUN-1994) - 11 PARAMETERS FOR HITS
 !         (15-JUN-1994) - option for higher cutoff for magnet (not used)
 !         (15-JUN-1994) - silicons divided for active and nonactive
 !         (15-JUN-1994) - major change in names of volumes
 !         (15-JUN-1994) - SUPPORT FOR MULT. UPDATED
 !         (26-may-1994) - beam pipe according to CDR
 !         (08-FEB-1994) - parameters of magnet according to CDR
 !
 ! ver 2.5  26-Jan-1994  A.T.
 !
 !         number of volumes:          215
 !         number of sensitive planes: 62
 !
 !         (11-JAN-1994) - M-substrates corrected
 !         (10-JAN-1994) - 12-cm section widths in vertex corrected
 !         (15-DEC-1993) - outs ylen/2 = 20.5
 !         (21-DEC-1993) - pixelization updated (not used in simulations)
 !         (10-NOV-1993) - multiplicity detectors are sensitive.
 !                         Now there are 42 planes in spectrometer
 !                         and 20 in mult.+vertex. ORIG was changed to
 !                         accommodate these changes.
 ! ver 2.4  01-OCT-1993 Adam Trzupek:
 ! VER 2.3, 10-Mar-1993 Robin Verdier -  For normal magnet optimization
 !                         studies, including supports, multiplicity
 !                         detectors, and survey tubes.
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 !  2) MATERIALS AND TRACKING MEDIA DEFS
 !
 ! Units are cm., kGauss, and degrees.
 !
 ! Material definitions:
 !                      A       Z       Dens     Lrad    Labs    U Nu
 GS MATE 1  VACUUM$    1.e-16  1.e-16  1.e-16   1.e+16   0.      0  0
 GS MATE 2  BERYLL$    9.01    4.00    1.848   35.3      0.      0  0
 GS MATE 3  AIR$      14.61    7.3     1.205e-3 3.04e4   0.      0  0
 GS MATE 4  SILICON$  28.09   14.0     2.33     9.36     0.      0  0
 GS MATE 41 SILICON$  28.09   14.0     3.8      5.74     0.      0  0
 GS MATE 5  IRON$     55.85   26.0     7.87     1.76     0.      0  0
 GS MATE 6  ALUMINUM$ 26.98   13.0     2.7      8.9      0.      0  0
 GS MATE 61 ALUMI073$ 26.98   13.0     0.73    32.9      0.      0  0
 GS MATE 62 ALUMI126$ 26.98   13.0     1.26    19.1      0.      0  0
 GS MATE 63 ALUMI172$ 26.98   13.0     1.72    14.0      0.      0  0
 GS MATE 64 ALUMI122$ 26.98   13.0     1.22    19.7      0.      0  0
 GS MATE 65 ALUMI131$ 26.98   13.0     1.31    18.3      0.      0  0
 GS MATE 66 ALUMI182$ 26.98   13.0     1.82    13.2      0.      0  0
 GS MATE 11 LEAD$    207.19   82.0    11.35     0.56     0.      0  0
 GS MATE 14 Copper$   63.54   29.0     8.96     1.43     0.      0  0
 !         Mixture:    A(1)  A(2)   Z(1) Z(2)  Dens   #   W(1)   W(2)
 ! coil of the magnet, taken as 75% copper and 25% water.
 GS MIXT  7 CuH20$     63.6  18.0   29.0 10.0  6.97   2  0.964   0.036
 GS MIXT  8 ALH2OAIR$  26.98 18.0   13.0 10.0  1.84   2  0.9     0.1
 GS MIXT  9 Electr$    26.98 16.0   13.0  8.0  3.10   2  0.53    0.47
 GS MIXT 10 SCINT$     12.01  1.008   6.0  1.   1.032 2  0.91548 0.08452
 GS MIXT 12 H2O$       16.0   1.008   8.0  1.   1.0   2  0.941   0.059
 GS MIXT 13 ALUMINA$   26.98 16.0    13.0  8.   3.87  2  0.52    0.48
 !
 ! Tracking medium definitions (all media initially taken equal):
 !        # Name       Mat Is If Bmax  Tmax MSmx  DEmx   Eps  StMn  U Nu
 GS TMED  1  VACUUM$    1   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  2  BERYLLIUM$ 2   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  3  AIR$       3   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  4  SILICON$   4   1  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  41 SILICON$   41  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  5  IRON$      5   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  6  ALUMINUM$  6   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  61 ALUMI073$  61  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  62 ALUMI126$  62  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  63 ALUMI172$  63  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  64 ALUMI122$  64  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  65 ALUMI131$  65  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  66 ALUMI182$  66  0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  7  CuH20$     7   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  8  ALH2OAIR$  8   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED  9  ELECTR$    9   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 10  SCINT$    10   1  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 11  LEAD$     11   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 12  H2O$      12   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 13  Alumina$  13   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 GS TMED 14  Copper$   14   0  1  30.0  5.0  0.5  0.20  .001  0.40  0  0
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 !  3) COORDINATE SYSTEM AND NOMINAL VERTEX
 !
 ! The Phobos master volume OUTS is a virtual volume defining the master
 ! coordinate system and the limits of tracking.The master reference system
 ! is centered at the nominal interaction point, with Z along the
 ! beam line and the centers of coils at positive Z, Y up, and X horizontal
 ! completing a right-handed system.
 !
 !       name   type  mat. lx/2    ly/2     lz/2      # par
 GS VOLU OUTS  'BOX '   3  400.     40.01   520.0       3    ! top level volum
 GS VOLU ORIG  'TUBE'   1    0.0     0.1      0.7       3    ! Origin of MARS
 !        no   th_x   phi_x   th_y   phi_y    th_z   phi_z   volum rot.
 GS ROTM   1    90.     0.    180.      0.     90.     90.   ! orig
 GS ROTM   2     0.     0.     90.     90.     90.    180.   ! orig
 !      daug. cp  moth.   x_c       y_c       z_c    rot.
 GS POS ORIG  1   OUTS    0.        0.        0.       0  ONLY
 GS POS ORIG  2   OUTS    0.        0.        0.       1  ONLY
 GS POS ORIG  3   OUTS    0.        0.        0.       2  ONLY
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 ! 4)SPECTROMETER
 !
!       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU CAG3  'TRAP'  61   1.9890 74.78783   0.0000   0.2500   7.5306   7.5306   0.0000   0.2500  16.8808  16.8808   0.0000   11

 GS ROTM 350  180.00    0.00   90.00   90.00   90.00    0.00 ! CAG3 cp.1
 GS ROTM 351  180.00    0.00   90.00  270.00   90.00  180.00 ! CAG3 cp.2

 GS POS CAG3  1   OUTS    7.6890   -6.6000   10.8160 350  ONLY
 GS POS CAG3  2   OUTS   -7.6890   -6.6000   10.8160 351  ONLY

 GS VOLU CAG4  'TRAP'  61   9.5249 23.79307   0.0000   0.2500  16.8808  16.8808   0.0000   0.2500   0.0000   0.0000   0.0000   11

 GS POS CAG4  1   OUTS   19.2029   -6.6000   -0.6983 350  ONLY
 GS POS CAG4  2   OUTS  -19.2029   -6.6000   -0.6983 351  ONLY

 GS VOLU CAG2  'TRAP'  61  11.4983 49.32228   0.0000   0.2500  12.2968  12.2968   0.0000   0.2500  16.0573  16.0573   0.0000   11

 GS POS CAG2  1   OUTS   17.6983   -6.6000   24.7467 350  ONLY
 GS POS CAG2  2   OUTS  -17.6983   -6.6000   24.7467 351  ONLY

 GS VOLU CAG5  'TRAP'  61  10.1337 15.50325   0.0000   0.2500  16.0573  16.0573   0.0000   0.2500   1.4117   1.4117   0.0000   11

 GS POS CAG5  1   OUTS   39.3303   -6.6000    8.5572 350  ONLY
 GS POS CAG5  2   OUTS  -39.3303   -6.6000    8.5572 351  ONLY

 GS VOLU CAG6  'TRAP'  61   0.5814 12.08320 180.0000   0.2500   1.4117   1.4117   0.0000   0.2500   0.0000   0.0000   0.0000   11

 GS POS CAG6  1   OUTS   50.0454   -6.6000    5.8707 350  ONLY
 GS POS CAG6  2   OUTS  -50.0454   -6.6000    5.8707 351  ONLY

 GS VOLU CAG1  'TRAP'  61  22.3393  0.00000 180.0000   0.2500  31.4145  31.4145   0.0000   0.2500  23.5365  23.5365   0.0000   11

 GS ROTM 352   45.00  180.00   90.00  270.00   45.00    0.00 ! CAG1 cp.1

 GS ROTM 353   45.00    0.00   90.00   90.00   45.00  180.00 ! CAG1 cp.1

 GS POS CAG1  1   OUTS   44.2097   -6.6000   44.0049 352  ONLY
 GS POS CAG1  2   OUTS  -44.2097   -6.6000   44.0049 353  ONLY

 GS VOLU CAG7  'TRAP'   6   0.2500 15.78738 180.0000   1.0250  19.1320  19.1320   0.0000   1.0250  19.1061  19.1061   0.0000   11

 GS ROTM 354   37.00  180.00   90.00  270.00   53.00    0.00 ! CAG7 cp.1

 GS ROTM 355   37.00    0.00   90.00   90.00   53.00  180.00 ! CAG7 cp.2

 GS POS CAG7  1   OUTS   17.4561   -5.8250   10.4756 354  ONLY
 GS POS CAG7  2   OUTS  -17.4561   -5.8250   10.4756 355  ONLY

 GS VOLU CAG8  'TRAP'   6   0.2500  5.31294   0.0000   1.0250  12.5106  12.5106   0.0000   1.0250  12.2968  12.2968   0.0000   11

 GS POS CAG8  1   OUTS    5.9500   -5.8250   38.1484 350  ONLY
 GS POS CAG8  2   OUTS   -5.9500   -5.8250   38.1484 351  ONLY

 GS VOLU CAG9  'TRAP'   6   0.2500  9.04757 180.0000   1.0250  23.0238  23.0238   0.0000   1.0250  22.6839  22.6839   0.0000   11

 GS ROTM 356   55.00    0.00   90.00  270.00  145.00    0.00 ! CAG9 cp.1

 GS ROTM 357   55.00  180.00   90.00   90.00  145.00  180.00 ! CAG9 cp.2

 GS POS CAG9  1   OUTS   24.6708   -5.8250   63.6606 356  ONLY
 GS POS CAG9  2   OUTS  -24.6708   -5.8250   63.6606 357  ONLY
 GS VOLU CAG0  'TRAP'   6   0.2500  0.00000   0.0000   1.0250  23.5365  23.5365   0.0000   1.0250  23.9560  23.9560   0.0000   11

 GS POS CAG0  1   OUTS   60.1828   -5.8250   59.9779 352  ONLY
 GS POS CAG0  2   OUTS  -60.1828   -5.8250   59.9779 353  ONLY

 GS VOLU CAGA  'TRAP'   6   0.2500 15.68941   0.0000   1.0250  23.6976  23.6976   0.0000   1.0250  23.9767  23.9767   0.0000   11

 GS ROTM 358   35.00    0.00   90.00  270.00  125.00    0.00 ! CAGA cp.1

 GS ROTM 359   35.00  180.00   90.00   90.00  125.00  180.00 ! CAGA cp.2

 GS POS CAGA  1   OUTS   63.3015   -5.8250   23.6605 358  ONLY
 GS POS CAGA  2   OUTS  -63.3015   -5.8250   23.6605 359  ONLY
 GS VOLU CAGB  'TRAP'   6   0.2500  0.47683   0.0000   1.0250  21.7756  21.7756   0.0000   1.0250  21.9100  21.9100   0.0000   11

 GS ROTM 360   66.00    0.00   90.00  270.00  156.00    0.00 ! CAGB cp.1

 GS ROTM 361   66.00  180.00   90.00   90.00  156.00  180.00 ! CAGB cp.2

 GS POS CAGB  1   OUTS   29.6747   -7.3750   -4.7500 360  ONLY
 GS POS CAGB  2   OUTS  -29.6747   -7.3750   -4.7500 361  ONLY
 !
 ! Spectrometer: vol. defs of silicons
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UPA1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPB1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPC1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPD1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UPE1  'BOX '   4   8.5659   4.0000   0.0150    3
 GS VOLU UPF1  'BOX '   4   8.5659   4.0000   0.0150    3
 GS VOLU UPH1  'BOX '   4  10.6796   4.0000   0.0150    3
 GS VOLU UPI1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPI2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPJ1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPJ2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPK1  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPK2  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UPK3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPK4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPL1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPL3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPL4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UPM1  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UPM2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPM3  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UPM4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPN2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPN4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPO1  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UPO2  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UPO3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPO4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UPP1  'BOX '   4  21.1339   4.0000   0.0150    3
 GS VOLU UPP3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UPP4  'BOX '   4   6.4265   4.0000   0.0150    3
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UNA1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UNB1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UNC1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UND1  'BOX '   4   7.0400   1.9000   0.0150    3
 GS VOLU UNE1  'BOX '   4   8.5659   4.0000   0.0150    3
 GS VOLU UNF1  'BOX '   4   8.5659   4.0000   0.0150    3
 GS VOLU UNH1  'BOX '   4  10.6796   4.0000   0.0150    3
 GS VOLU UNI1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNI2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNJ1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNJ2  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNK1  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNK2  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UNK3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNK4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNL1  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNL3  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNL4  'BOX '   4   4.3254   4.0000   0.0150    3
 GS VOLU UNM1  'BOX '   4  12.7297   4.0000   0.0150    3
 GS VOLU UNM2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNM3  'BOX '   4   8.5275   4.0000   0.0150    3
 GS VOLU UNM4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNN2  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNN4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNO1  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UNO2  'BOX '   4  19.0328   4.0000   0.0150    3
 GS VOLU UNO3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNO4  'BOX '   4   6.4265   4.0000   0.0150    3
 GS VOLU UNP1  'BOX '   4  21.1339   4.0000   0.0150    3
 GS VOLU UNP3  'BOX '   4  14.8307   4.0000   0.0150    3
 GS VOLU UNP4  'BOX '   4   6.4265   4.0000   0.0150    3
 !
 ! Spectrometer: vol. defs of silicons (sensitive)
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU SPA1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPB1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPC1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPD1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SPE1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SPF1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SPH1  'BOX '   4  10.5896   1.5000   0.0150    3
 GS VOLU SPI1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPI2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPJ1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPJ2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPK1  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPK2  'BOX '   4  12.6397   3.0000   0.0150    3
 GS VOLU SPK3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPK4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPL1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SPL3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPL4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SPM1  'BOX '   4  12.6397   3.8000   0.0150    3
 GS VOLU SPM2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPM3  'BOX '   4   8.4375   3.8000   0.0150    3
 GS VOLU SPM4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPN2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPN4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPO1  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SPO2  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SPO3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPO4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SPP1  'BOX '   4  21.0439   3.8000   0.0150    3
 GS VOLU SPP3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SPP4  'BOX '   4   6.3365   3.0000   0.0150    3
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU SNA1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SNB1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SNC1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SND1  'BOX '   4   6.9500   1.1000   0.0150    3
 GS VOLU SNE1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SNF1  'BOX '   4   8.4759   1.5000   0.0150    3
 GS VOLU SNH1  'BOX '   4  10.5896   1.5000   0.0150    3
 GS VOLU SNI1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNI2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNJ1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNJ2  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNK1  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNK2  'BOX '   4  12.6397   3.0000   0.0150    3
 GS VOLU SNK3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNK4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNL1  'BOX '   4   8.4375   3.0000   0.0150    3
 GS VOLU SNL3  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNL4  'BOX '   4   4.2354   3.0000   0.0150    3
 GS VOLU SNM1  'BOX '   4  12.6397   3.8000   0.0150    3
 GS VOLU SNM2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNM3  'BOX '   4   8.4375   3.8000   0.0150    3
 GS VOLU SNM4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNN2  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNN4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNO1  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SNO2  'BOX '   4  18.9428   3.8000   0.0150    3
 GS VOLU SNO3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNO4  'BOX '   4   6.3365   3.0000   0.0150    3
 GS VOLU SNP1  'BOX '   4  21.0439   3.8000   0.0150    3
 GS VOLU SNP3  'BOX '   4  14.7407   3.8000   0.0150    3
 GS VOLU SNP4  'BOX '   4   6.3365   3.0000   0.0150    3
 !
 ! Spectrometer: vol. defs of electronics
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UEA1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UEB1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UEC1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UED1  'BOX '   9   6.9500   2.1500   0.1000    3
 GS VOLU UEE1  'BOX '   9   8.4759   1.1000   0.1000    3
 GS VOLU UEF1  'BOX '   9   8.4759   1.1000   0.1000    3
 GS VOLU UEH1  'BOX '   9  10.5896   1.1000   0.1000    3
 GS VOLU UEI1  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEI2  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEJ1  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEJ2  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEK1  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEK2  'BOX '   9  12.6397   1.1000   0.0750    3
 GS VOLU UEK3  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEK4  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEL1  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEL3  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEL4  'BOX '   9   4.2354   1.1000   0.0750    3
 GS VOLU UEM1  'BOX '   9  12.6397   1.1000   0.0750    3
 GS VOLU UEM2  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEM3  'BOX '   9   8.4375   1.1000   0.0750    3
 GS VOLU UEM4  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEN2  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEN4  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEO1  'BOX '   9  18.9428   1.1000   0.0750    3
 GS VOLU UEO2  'BOX '   9  18.9428   1.1000   0.0750    3
 GS VOLU UEO3  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEO4  'BOX '   9   6.3365   1.1000   0.0750    3
 GS VOLU UEP1  'BOX '   9  21.0439   1.1000   0.0750    3
 GS VOLU UEP3  'BOX '   9  14.7407   1.1000   0.0750    3
 GS VOLU UEP4  'BOX '   9   6.3365   1.1000   0.0750    3
 !
 ! Spectrometer: vol. defs of alum. planes
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UAA1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAB1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAC1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAD1  'BOX '   6   7.3400   6.2000   0.1000    3
 GS VOLU UAE1  'BOX '   6   8.8659   6.2000   0.1000    3
 GS VOLU UAF1  'BOX '   6   8.8659   6.2000   0.1000    3
 GS VOLU UAH1  'BOX '   6  10.9796   6.2000   0.1000    3
 GS VOLU UAI1  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAI2  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAJ1  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAJ2  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAK1  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAK2  'BOX '   6  12.6397   6.2000   0.1000    3
 GS VOLU UAK3  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAK4  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAL1  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAL3  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAL4  'BOX '   6   4.2354   6.2000   0.1000    3
 GS VOLU UAM1  'BOX '   6  12.6397   6.2000   0.1000    3
 GS VOLU UAM2  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAM3  'BOX '   6   8.4375   6.2000   0.1000    3
 GS VOLU UAM4  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAN2  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAN4  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAO1  'BOX '   6  18.9428   6.2000   0.1000    3
 GS VOLU UAO2  'BOX '   6  18.9428   6.2000   0.1000    3
 GS VOLU UAO3  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAO4  'BOX '   6   6.3365   6.2000   0.1000    3
 GS VOLU UAP1  'BOX '   6  21.0439   6.2000   0.1000    3
 GS VOLU UAP3  'BOX '   6  14.7407   6.2000   0.1000    3
 GS VOLU UAP4  'BOX '   6   6.3365   6.2000   0.1000    3
 !
 ! Spectrometer: vol. defs of alum. shims
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU USI2  'BOX '   6   8.4375   1.0000   0.2500    3
 GS VOLU USJ1  'BOX '   6   8.1375   1.0000   0.2500    3
 GS VOLU USK2  'BOX '   6  12.6397   1.0000   0.2500    3
 GS VOLU USM2  'BOX '   6  14.7407   1.0000   0.2500    3
 GS VOLU USO2  'BOX '   6  18.9428   1.0000   0.2500    3
 !
 ! Spectrometer: vol. defs of windows in alum. planes
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UWA1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWB1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWC1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWD1  'BOX '   3   7.1400   2.2000   0.1000    3
 GS VOLU UWE1  'BOX '   3   8.6659   4.2000   0.1000    3
 GS VOLU UWF1  'BOX '   3   8.6659   4.2000   0.1000    3
 GS VOLU UWH1  'BOX '   3  10.7796   4.2000   0.1000    3
 GS VOLU UWI1  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWI2  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWJ1  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWJ2  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWK1  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWK2  'BOX '   3  12.4397   4.2000   0.1000    3
 GS VOLU UWK3  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWK4  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWL1  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWL3  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWL4  'BOX '   3   4.0354   4.2000   0.1000    3
 GS VOLU UWM1  'BOX '   3  12.4397   4.2000   0.1000    3
 GS VOLU UWM2  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWM3  'BOX '   3   8.2375   4.2000   0.1000    3
 GS VOLU UWM4  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWN2  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWN4  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWO1  'BOX '   3  18.7428   4.2000   0.1000    3
 GS VOLU UWO2  'BOX '   3  18.7428   4.2000   0.1000    3
 GS VOLU UWO3  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWO4  'BOX '   3   6.1365   4.2000   0.1000    3
 GS VOLU UWP1  'BOX '   3  20.8439   4.2000   0.1000    3
 GS VOLU UWP3  'BOX '   3  14.5407   4.2000   0.1000    3
 GS VOLU UWP4  'BOX '   3   6.1365   4.2000   0.1000    3
 !
 ! Spectrometer: vol. defs of cooling tube
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UCAB  'BOX '   8  11.4944   1.5000   0.4000    3
 GS VOLU UCCD  'BOX '   8  13.0231   1.5000   0.4000    3
 GS VOLU UCEF  'BOX '   8  12.5911   1.5000   0.4000    3
 GS VOLU UCGH  'BOX '   8  15.4101   1.5000   0.4000    3
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU UCI1  'TRAP'   8   0.4000 -19.6286   0.0000   1.0000  10.6448  10.6448   0.0000   1.0000  10.9301  10.9301   0.0000   11
 GS VOLU UCI2  'TRAP'   8   0.4000  19.6286   0.0000   1.0000   9.3969   9.3969   0.0000   1.0000   9.6823   9.6823   0.0000   11
 GS VOLU UCK1  'TRAP'   8   0.4000 -17.6685   0.0000   1.0000   9.4886   9.4886   0.0000   1.0000   9.7434   9.7434   0.0000   11
 GS VOLU UCK2  'TRAP'   8   0.4000   0.0000   0.0000   1.0000  13.0091  13.0091   0.0000   1.0000  13.5188  13.5188   0.0000   11
 GS VOLU UCK3  'TRAP'   8   0.4000  17.6685   0.0000   1.0000   9.4956   9.4956   0.0000   1.0000   9.7505   9.7505   0.0000   11
 GS VOLU UCM1  'TRAP'   8   0.4000 -20.9900   0.0000   1.0000  15.3643  15.3643   0.0000   1.0000  15.6713  15.6713   0.0000   11
 GS VOLU UCM2  'TRAP'   8   0.4000   0.0000   0.0000   1.0000  15.2260  15.2260   0.0000   1.0000  15.8399  15.8399   0.0000   11
 GS VOLU UCM3  'TRAP'   8   0.4000  20.9900   0.0000   1.0000  15.8377  15.8377   0.0000   1.0000  16.1446  16.1446   0.0000   11
 GS VOLU UCO1  'TRAP'   8   0.4000 -22.7605   0.0000   1.0000  21.6129  21.6129   0.0000   1.0000  21.9486  21.9486   0.0000   11
 GS VOLU UCO2  'TRAP'   8   0.4000   0.0000   0.0000   1.0000  19.4885  19.4885   0.0000   1.0000  20.1597  20.1597   0.0000   11
 GS VOLU UCO3  'TRAP'   8   0.4000  22.7605   0.0000   1.0000  21.9053  21.9053   0.0000   1.0000  22.2409  22.2409   0.0000   11
 !
 ! Spectrometer: vol. defs of cooling tube uprights
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UU01  'BOX '   8   0.2500   3.2500   0.4000    3
 GS VOLU UU02  'BOX '   8   0.5000   3.2500   0.4000    3
 GS VOLU UU03  'BOX '   8   0.2500   4.2500   0.4000    3
 GS VOLU UU04  'BOX '   8   0.5000   4.2500   0.4000    3
 !
 ! Spectrometer: vol. defs of cables
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU UKA1  'BOX '  14   5.0000   2.1500   0.0275    3
 GS VOLU UKB1  'BOX '  14   5.0000   2.1500   0.0275    3
 GS VOLU UKC1  'BOX '  14   5.0000   2.1500   0.0275    3
 GS VOLU UKD1  'BOX '  14   5.0000   2.1500   0.0275    3
 GS VOLU UKE1  'BOX '  14   5.0000   1.0500   0.0275    3
 GS VOLU UKF1  'BOX '  14   5.0000   1.0500   0.0275    3
 GS VOLU UKH1  'BOX '  14   5.0000   1.0500   0.0275    3
 GS VOLU UKH2  'BOX '  14  13.5000   1.0500   0.0275    3
 GS VOLU UK01  'BOX '  14  12.0000   2.1000   2.7500    3
 GS VOLU UK02  'BOX '  14  20.0000   1.0500   0.6600    3
 !
 ! Spectrometer: rotation of assemblies
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 302   90.00  180.00   90.00  270.00    0.00    0.00 ! DETN
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 303  171.00    0.00   90.00   90.00   81.00    0.00 ! SPA1
 GS ROTM 305  156.00    0.00   90.00   90.00   66.00    0.00 ! SPC1
 GS ROTM 307  146.00    0.00   90.00   90.00   56.00    0.00 ! SPE1
 GS ROTM 309  140.00    0.00   90.00   90.00   50.00    0.00 ! SPG1
 GS ROTM 310  170.00    0.00   90.00   90.00   80.00    0.00 ! SPI1
 GS ROTM 311   99.00    0.00   90.00   90.00    9.00    0.00 ! SPI2
 GS ROTM 312  200.00    0.00   90.00   90.00  110.00    0.00 ! SPK1
 GS ROTM 313  135.00    0.00   90.00   90.00   45.00    0.00 ! SPK2
 GS ROTM 314   70.00    0.00   90.00   90.00   20.00  180.00 ! SPK3
 GS ROTM 315   70.00    0.00   90.00   90.00   20.00  180.00 ! SPK4
 GS ROTM 316  210.00    0.00   90.00   90.00  120.00    0.00 ! SPM1
 GS ROTM 317  135.00    0.00   90.00   90.00   45.00    0.00 ! SPM2
 GS ROTM 318   60.00    0.00   90.00   90.00   30.00  180.00 ! SPM3
 GS ROTM 319   60.00    0.00   90.00   90.00   30.00  180.00 ! SPM4
 GS ROTM 320  215.00    0.00   90.00   90.00  125.00    0.00 ! SPO1
 GS ROTM 321  135.00    0.00   90.00   90.00   45.00    0.00 ! SPO2
 GS ROTM 322   55.00    0.00   90.00   90.00   35.00  180.00 ! SPO3
 GS ROTM 323   55.00    0.00   90.00   90.00   35.00  180.00 ! SPO4
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 324  171.00  180.00   90.00  270.00   81.00  180.00 ! SNA1
 GS ROTM 326  156.00  180.00   90.00  270.00   66.00  180.00 ! SNC1
 GS ROTM 328  146.00  180.00   90.00  270.00   56.00  180.00 ! SNE1
 GS ROTM 330  140.00  180.00   90.00  270.00   50.00  180.00 ! SNG1
 GS ROTM 331  170.00  180.00   90.00  270.00   80.00  180.00 ! SNI1
 GS ROTM 332   99.00  180.00   90.00  270.00    9.00  180.00 ! SNI2
 GS ROTM 333  200.00  180.00   90.00  270.00  110.00  180.00 ! SNK1
 GS ROTM 334  135.00  180.00   90.00  270.00   45.00  180.00 ! SNK2
 GS ROTM 335   70.00  180.00   90.00  270.00   20.00    0.00 ! SNK3
 GS ROTM 336   70.00  180.00   90.00  270.00   20.00    0.00 ! SNK4
 GS ROTM 337  210.00  180.00   90.00  270.00  120.00  180.00 ! SNM1
 GS ROTM 338  135.00  180.00   90.00  270.00   45.00  180.00 ! SNM2
 GS ROTM 339   60.00  180.00   90.00  270.00   30.00    0.00 ! SNM3
 GS ROTM 340   60.00  180.00   90.00  270.00   30.00    0.00 ! SNM4
 GS ROTM 341  215.00  180.00   90.00  270.00  125.00  180.00 ! SNO1
 GS ROTM 342  135.00  180.00   90.00  270.00   45.00  180.00 ! SNO2
 GS ROTM 343   55.00  180.00   90.00  270.00   35.00    0.00 ! SNO3
 GS ROTM 344   55.00  180.00   90.00  270.00   35.00    0.00 ! SNO4
 !
 ! Spectrometer: rot. of cooling tubes
 !
 GS ROTM 370   58.10    0.00   90.00   90.00   31.90  180.00 ! UK01
 GS ROTM 371   58.10  180.00   90.00  270.00   31.90    0.00 ! UK01
 GS ROTM 372   17.00  180.00   90.00  270.00   73.00    0.00 ! UK02
 GS ROTM 373   17.00    0.00   90.00   90.00   73.00  180.00 ! UK02
 !
 ! Spectrometer: positions of silicons
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UPA1  1   OUTS    6.7993    0.0000    6.3180 303  ONLY
 GS POS UPB1  1   OUTS    7.9651    0.0000    7.7154 303  ONLY
 GS POS UPC1  1   OUTS    9.4641    0.0000   10.7633 305  ONLY
 GS POS UPD1  1   OUTS   10.4493    0.0000   11.9188 305  ONLY
 GS POS UPE1  1   OUTS   11.7158    0.0000   13.7275 307  ONLY
 GS POS UPF1  1   OUTS   12.8516    0.0000   14.4936 307  ONLY
 GS POS UPH1  1   OUTS   15.5439    0.0000   17.3962 309  ONLY
 GS POS UPI1  1   OUTS   26.9052    0.0000   16.9770 310  ONLY
 GS POS UPI2  1   OUTS   16.7730    0.0000   26.2793 311  ONLY
 GS POS UPJ1  1   OUTS   28.4986    0.0000   18.7095 310  ONLY
 GS POS UPJ2  1   OUTS   18.2732    0.0000   27.9350 311  ONLY
 GS POS UPK1  1   OUTS   40.3996    0.0000   18.4500 312  ONLY
 GS POS UPK2  1   OUTS   33.1897    0.0000   33.2500 313  ONLY
 GS POS UPK3  1   OUTS   20.3640    0.0000   41.1785 314  ONLY
 GS POS UPK4  1   OUTS   12.4040    0.0000   38.2493 314  ONLY
 GS POS UPL1  1   OUTS   41.6870    0.0000   17.9814 312  ONLY
 GS POS UPL3  1   OUTS   19.9894    0.0000   42.5001 314  ONLY
 GS POS UPL4  1   OUTS   12.0294    0.0000   39.6348 314  ONLY
 GS POS UPM1  1   OUTS   49.1240    0.0000   23.3069 316  ONLY
 GS POS UPM2  1   OUTS   44.5430    0.0000   44.6231 317  ONLY
 GS POS UPM3  1   OUTS   26.8659    0.0000   51.3052 318  ONLY
 GS POS UPM4  1   OUTS   14.0712    0.0000   43.8834 318  ONLY
 GS POS UPN2  1   OUTS   45.9560    0.0000   45.8549 317  ONLY
 GS POS UPN4  1   OUTS   13.5594    0.0000   45.2046 318  ONLY
 GS POS UPO1  1   OUTS   59.0404    0.0000   27.1150 320  ONLY
 GS POS UPO2  1   OUTS   56.0128    0.0000   55.9928 321  ONLY
 GS POS UPO3  1   OUTS   30.5772    0.0000   61.4306 322  ONLY
 GS POS UPO4  1   OUTS   13.3118    0.0000   49.3046 322  ONLY
 GS POS UPP1  1   OUTS   60.1626    0.0000   26.3292 320  ONLY
 GS POS UPP3  1   OUTS   30.4467    0.0000   63.0117 322  ONLY
 GS POS UPP4  1   OUTS   13.1813    0.0000   50.9590 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UNA1  1   OUTS   -6.7993    0.0000    6.3180 324  ONLY
 GS POS UNB1  1   OUTS   -7.9651    0.0000    7.7154 324  ONLY
 GS POS UNC1  1   OUTS   -9.4641    0.0000   10.7633 326  ONLY
 GS POS UND1  1   OUTS  -10.4493    0.0000   11.9188 326  ONLY
 GS POS UNE1  1   OUTS  -11.7158    0.0000   13.7275 328  ONLY
 GS POS UNF1  1   OUTS  -12.8516    0.0000   14.4936 328  ONLY
 GS POS UNH1  1   OUTS  -15.5439    0.0000   17.3962 330  ONLY
 GS POS UNI1  1   OUTS  -26.9052    0.0000   16.9770 331  ONLY
 GS POS UNI2  1   OUTS  -16.7730    0.0000   26.2793 332  ONLY
 GS POS UNJ1  1   OUTS  -28.4986    0.0000   18.7095 331  ONLY
 GS POS UNJ2  1   OUTS  -18.2732    0.0000   27.9350 332  ONLY
 GS POS UNK1  1   OUTS  -40.3996    0.0000   18.4500 333  ONLY
 GS POS UNK2  1   OUTS  -33.1897    0.0000   33.2500 334  ONLY
 GS POS UNK3  1   OUTS  -20.3640    0.0000   41.1785 335  ONLY
 GS POS UNK4  1   OUTS  -12.4040    0.0000   38.2493 336  ONLY
 GS POS UNL1  1   OUTS  -41.6870    0.0000   17.9814 333  ONLY
 GS POS UNL3  1   OUTS  -19.9894    0.0000   42.5001 335  ONLY
 GS POS UNL4  1   OUTS  -12.0294    0.0000   39.6348 336  ONLY
 GS POS UNM1  1   OUTS  -49.1240    0.0000   23.3069 337  ONLY
 GS POS UNM2  1   OUTS  -44.5430    0.0000   44.6231 338  ONLY
 GS POS UNM3  1   OUTS  -26.8659    0.0000   51.3052 339  ONLY
 GS POS UNM4  1   OUTS  -14.0712    0.0000   43.8834 340  ONLY
 GS POS UNN2  1   OUTS  -45.9560    0.0000   45.8549 338  ONLY
 GS POS UNN4  1   OUTS  -13.5594    0.0000   45.2046 340  ONLY
 GS POS UNO1  1   OUTS  -59.0404    0.0000   27.1150 341  ONLY
 GS POS UNO2  1   OUTS  -56.0128    0.0000   55.9928 342  ONLY
 GS POS UNO3  1   OUTS  -30.5772    0.0000   61.4306 343  ONLY
 GS POS UNO4  1   OUTS  -13.3118    0.0000   49.3046 344  ONLY
 GS POS UNP1  1   OUTS  -60.1626    0.0000   26.3292 341  ONLY
 GS POS UNP3  1   OUTS  -30.4467    0.0000   63.0117 343  ONLY
 GS POS UNP4  1   OUTS  -13.1813    0.0000   50.9590 344  ONLY
 !
 ! Spectrometer: positions of silicons (sensitive)
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS SPA1  1   UPA1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPB1  1   UPB1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPC1  1   UPC1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPD1  1   UPD1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPE1  1   UPE1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPF1  1   UPF1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPH1  1   UPH1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPI1  1   UPI1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPI2  1   UPI2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPJ1  1   UPJ1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPJ2  1   UPJ2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK1  1   UPK1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK2  1   UPK2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK3  1   UPK3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPK4  1   UPK4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPL1  1   UPL1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPL3  1   UPL3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPL4  1   UPL4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM1  1   UPM1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM2  1   UPM2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM3  1   UPM3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPM4  1   UPM4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPN2  1   UPN2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPN4  1   UPN4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO1  1   UPO1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO2  1   UPO2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO3  1   UPO3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPO4  1   UPO4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPP1  1   UPP1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPP3  1   UPP3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SPP4  1   UPP4    0.0000    0.0000    0.0000   0  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS SNA1  1   UNA1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNB1  1   UNB1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNC1  1   UNC1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SND1  1   UND1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNE1  1   UNE1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNF1  1   UNF1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNH1  1   UNH1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNI1  1   UNI1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNI2  1   UNI2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNJ1  1   UNJ1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNJ2  1   UNJ2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK1  1   UNK1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK2  1   UNK2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK3  1   UNK3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNK4  1   UNK4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNL1  1   UNL1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNL3  1   UNL3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNL4  1   UNL4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM1  1   UNM1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM2  1   UNM2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM3  1   UNM3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNM4  1   UNM4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNN2  1   UNN2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNN4  1   UNN4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO1  1   UNO1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO2  1   UNO2    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO3  1   UNO3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNO4  1   UNO4    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNP1  1   UNP1    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNP3  1   UNP3    0.0000    0.0000    0.0000   0  ONLY
 GS POS SNP4  1   UNP4    0.0000    0.0000    0.0000   0  ONLY
 !
 ! Spectrometer: positions of electronics
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UEA1  1   OUTS    6.7845    4.0500    6.3157 303  ONLY
 GS POS UEA1  2   OUTS    6.7845   -4.0500    6.3157 303  ONLY
 GS POS UEB1  1   OUTS    7.9799    4.0500    7.7178 303  ONLY
 GS POS UEB1  2   OUTS    7.9799   -4.0500    7.7178 303  ONLY
 GS POS UEC1  1   OUTS    9.4504    4.0500   10.7572 305  ONLY
 GS POS UEC1  2   OUTS    9.4504   -4.0500   10.7572 305  ONLY
 GS POS UED1  1   OUTS   10.4630    4.0500   11.9249 305  ONLY
 GS POS UED1  2   OUTS   10.4630   -4.0500   11.9249 305  ONLY
 GS POS UEE1  1   OUTS   11.7034    5.1000   13.7191 307  ONLY
 GS POS UEE1  2   OUTS   11.7034   -5.1000   13.7191 307  ONLY
 GS POS UEF1  1   OUTS   12.8640    5.1000   14.5020 307  ONLY
 GS POS UEF1  2   OUTS   12.8640   -5.1000   14.5020 307  ONLY
 GS POS UEH1  1   OUTS   15.5554    5.1000   17.4059 309  ONLY
 GS POS UEH1  2   OUTS   15.5554   -5.1000   17.4059 309  ONLY
 GS POS UEI1  1   OUTS   26.9151    5.1000   16.9788 310  ONLY
 GS POS UEI2  1   OUTS   16.7746    5.1000   26.2892 311  ONLY
 GS POS UEJ1  1   OUTS   28.4888    5.1000   18.7078 310  ONLY
 GS POS UEJ2  1   OUTS   18.2717    5.1000   27.9252 311  ONLY
 GS POS UEK1  1   OUTS   40.4090    5.1000   18.4466 312  ONLY
 GS POS UEK2  1   OUTS   33.1968    5.1000   33.2571 313  ONLY
 GS POS UEK3  1   OUTS   20.3606    5.1000   41.1879 314  ONLY
 GS POS UEK4  1   OUTS   12.4006    5.1000   38.2907 314  ONLY
 GS POS UEL1  1   OUTS   41.6776    5.1000   17.9848 312  ONLY
 GS POS UEL3  1   OUTS   19.9928    5.1000   42.4907 314  ONLY
 GS POS UEL4  1   OUTS   12.0328    5.1000   39.5934 314  ONLY
 GS POS UEM1  1   OUTS   49.1327    5.1000   23.3019 316  ONLY
 GS POS UEM2  1   OUTS   44.5501    5.1000   44.6302 317  ONLY
 GS POS UEM3  1   OUTS   26.8609    5.1000   51.3138 318  ONLY
 GS POS UEM4  1   OUTS   14.0662    5.1000   43.9267 318  ONLY
 GS POS UEN2  1   OUTS   45.9489    5.1000   45.8478 317  ONLY
 GS POS UEN4  1   OUTS   13.5644    5.1000   45.1959 318  ONLY
 GS POS UEO1  1   OUTS   59.0486    5.1000   27.1093 320  ONLY
 GS POS UEO2  1   OUTS   56.0199    5.1000   55.9999 321  ONLY
 GS POS UEO3  1   OUTS   30.5715    5.1000   61.4388 322  ONLY
 GS POS UEO4  1   OUTS   13.3061    5.1000   49.3494 322  ONLY
 GS POS UEP1  1   OUTS   60.1545    5.1000   26.3350 320  ONLY
 GS POS UEP3  1   OUTS   30.4524    5.1000   63.0035 322  ONLY
 GS POS UEP4  1   OUTS   13.1870    5.1000   50.9142 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UEA1  3   OUTS   -6.7845    4.0500    6.3157 324  ONLY
 GS POS UEA1  4   OUTS   -6.7845   -4.0500    6.3157 324  ONLY
 GS POS UEB1  3   OUTS   -7.9799    4.0500    7.7178 324  ONLY
 GS POS UEB1  4   OUTS   -7.9799   -4.0500    7.7178 324  ONLY
 GS POS UEC1  3   OUTS   -9.4504    4.0500   10.7572 326  ONLY
 GS POS UEC1  4   OUTS   -9.4504   -4.0500   10.7572 326  ONLY
 GS POS UED1  3   OUTS  -10.4630    4.0500   11.9249 326  ONLY
 GS POS UED1  4   OUTS  -10.4630   -4.0500   11.9249 326  ONLY
 GS POS UEE1  3   OUTS  -11.7034    5.1000   13.7191 328  ONLY
 GS POS UEE1  4   OUTS  -11.7034   -5.1000   13.7191 328  ONLY
 GS POS UEF1  3   OUTS  -12.8640    5.1000   14.5020 328  ONLY
 GS POS UEF1  4   OUTS  -12.8640   -5.1000   14.5020 328  ONLY
 GS POS UEH1  3   OUTS  -15.5554    5.1000   17.4059 330  ONLY
 GS POS UEH1  4   OUTS  -15.5554   -5.1000   17.4059 330  ONLY
 GS POS UEI1  2   OUTS  -26.9151    5.1000   16.9788 331  ONLY
 GS POS UEI2  2   OUTS  -16.7746    5.1000   26.2892 332  ONLY
 GS POS UEJ1  2   OUTS  -28.4888    5.1000   18.7078 331  ONLY
 GS POS UEJ2  2   OUTS  -18.2717    5.1000   27.9252 332  ONLY
 GS POS UEK1  2   OUTS  -40.4090    5.1000   18.4466 333  ONLY
 GS POS UEK2  2   OUTS  -33.1968    5.1000   33.2571 334  ONLY
 GS POS UEK3  2   OUTS  -20.3606    5.1000   41.1879 335  ONLY
 GS POS UEK4  2   OUTS  -12.4006    5.1000   38.2907 336  ONLY
 GS POS UEL1  2   OUTS  -41.6776    5.1000   17.9848 333  ONLY
 GS POS UEL3  2   OUTS  -19.9928    5.1000   42.4907 335  ONLY
 GS POS UEL4  2   OUTS  -12.0328    5.1000   39.5934 336  ONLY
 GS POS UEM1  2   OUTS  -49.1327    5.1000   23.3019 337  ONLY
 GS POS UEM2  2   OUTS  -44.5501    5.1000   44.6302 338  ONLY
 GS POS UEM3  2   OUTS  -26.8609    5.1000   51.3138 339  ONLY
 GS POS UEM4  2   OUTS  -14.0662    5.1000   43.9267 340  ONLY
 GS POS UEN2  2   OUTS  -45.9489    5.1000   45.8478 338  ONLY
 GS POS UEN4  2   OUTS  -13.5644    5.1000   45.1959 340  ONLY
 GS POS UEO1  2   OUTS  -59.0486    5.1000   27.1093 341  ONLY
 GS POS UEO2  2   OUTS  -56.0199    5.1000   55.9999 342  ONLY
 GS POS UEO3  2   OUTS  -30.5715    5.1000   61.4388 343  ONLY
 GS POS UEO4  2   OUTS  -13.3061    5.1000   49.3494 344  ONLY
 GS POS UEP1  2   OUTS  -60.1545    5.1000   26.3350 341  ONLY
 GS POS UEP3  2   OUTS  -30.4524    5.1000   63.0035 343  ONLY
 GS POS UEP4  2   OUTS  -13.1870    5.1000   50.9142 344  ONLY
 !
 ! Spectrometer: positions of alum. planes
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UAA1  1   OUTS    6.9820    0.0000    6.3470 303  ONLY
 GS POS UAB1  1   OUTS    7.7824    0.0000    7.6865 303  ONLY
 GS POS UAC1  1   OUTS    9.6331    0.0000   10.8385 305  ONLY
 GS POS UAD1  1   OUTS   10.2803    0.0000   11.8435 305  ONLY
 GS POS UAE1  1   OUTS   11.8692    0.0000   13.8310 307  ONLY
 GS POS UAF1  1   OUTS   12.6982    0.0000   14.3901 307  ONLY
 GS POS UAH1  1   OUTS   15.4022    0.0000   17.2773 309  ONLY
 GS POS UAI1  1   OUTS   27.0874    0.0000   17.0092 310  ONLY
 GS POS UAI2  1   OUTS   16.8020    0.0000   26.4620 311  ONLY
 GS POS UAJ1  1   OUTS   28.3164    0.0000   18.6774 310  ONLY
 GS POS UAJ2  1   OUTS   18.2443    0.0000   27.7523 311  ONLY
 GS POS UAK1  1   OUTS   40.5735    0.0000   18.3867 312  ONLY
 GS POS UAK2  1   OUTS   33.3205    0.0000   33.3808 313  ONLY
 GS POS UAK3  1   OUTS   20.3007    0.0000   41.3524 314  ONLY
 GS POS UAK4  1   OUTS   12.3407    0.0000   38.4551 314  ONLY
 GS POS UAL1  1   OUTS   41.5131    0.0000   18.0447 312  ONLY
 GS POS UAL3  1   OUTS   20.0527    0.0000   42.3262 314  ONLY
 GS POS UAL4  1   OUTS   12.0927    0.0000   39.4290 314  ONLY
 GS POS UAM1  1   OUTS   49.2842    0.0000   23.2144 316  ONLY
 GS POS UAM2  1   OUTS   44.6738    0.0000   44.7539 317  ONLY
 GS POS UAM3  1   OUTS   26.7734    0.0000   51.4654 318  ONLY
 GS POS UAM4  1   OUTS   13.9787    0.0000   44.0783 318  ONLY
 GS POS UAN2  1   OUTS   45.8251    0.0000   45.7241 317  ONLY
 GS POS UAN4  1   OUTS   13.6519    0.0000   45.0444 318  ONLY
 GS POS UAO1  1   OUTS   59.1920    0.0000   27.0089 320  ONLY
 GS POS UAO2  1   OUTS   56.1436    0.0000   56.1236 321  ONLY
 GS POS UAO3  1   OUTS   30.4711    0.0000   61.5822 322  ONLY
 GS POS UAO4  1   OUTS   13.2057    0.0000   49.4928 322  ONLY
 GS POS UAP1  1   OUTS   60.0111    0.0000   26.4353 320  ONLY
 GS POS UAP3  1   OUTS   30.5528    0.0000   62.8602 322  ONLY
 GS POS UAP4  1   OUTS   13.2874    0.0000   50.7708 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UAA1  2   OUTS   -6.9820    0.0000    6.3470 324  ONLY
 GS POS UAB1  2   OUTS   -7.7824    0.0000    7.6865 324  ONLY
 GS POS UAC1  2   OUTS   -9.6331    0.0000   10.8385 326  ONLY
 GS POS UAD1  2   OUTS  -10.2803    0.0000   11.8435 326  ONLY
 GS POS UAE1  2   OUTS  -11.8692    0.0000   13.8310 328  ONLY
 GS POS UAF1  2   OUTS  -12.6982    0.0000   14.3901 328  ONLY
 GS POS UAH1  2   OUTS  -15.4022    0.0000   17.2773 330  ONLY
 GS POS UAI1  2   OUTS  -27.0874    0.0000   17.0092 331  ONLY
 GS POS UAI2  2   OUTS  -16.8020    0.0000   26.4620 332  ONLY
 GS POS UAJ1  2   OUTS  -28.3164    0.0000   18.6774 331  ONLY
 GS POS UAJ2  2   OUTS  -18.2443    0.0000   27.7523 332  ONLY
 GS POS UAK1  2   OUTS  -40.5735    0.0000   18.3867 333  ONLY
 GS POS UAK2  2   OUTS  -33.3205    0.0000   33.3808 334  ONLY
 GS POS UAK3  2   OUTS  -20.3007    0.0000   41.3524 335  ONLY
 GS POS UAK4  2   OUTS  -12.3407    0.0000   38.4551 336  ONLY
 GS POS UAL1  2   OUTS  -41.5131    0.0000   18.0447 333  ONLY
 GS POS UAL3  2   OUTS  -20.0527    0.0000   42.3262 335  ONLY
 GS POS UAL4  2   OUTS  -12.0927    0.0000   39.4290 336  ONLY
 GS POS UAM1  2   OUTS  -49.2842    0.0000   23.2144 337  ONLY
 GS POS UAM2  2   OUTS  -44.6738    0.0000   44.7539 338  ONLY
 GS POS UAM3  2   OUTS  -26.7734    0.0000   51.4654 339  ONLY
 GS POS UAM4  2   OUTS  -13.9787    0.0000   44.0783 340  ONLY
 GS POS UAN2  2   OUTS  -45.8251    0.0000   45.7241 338  ONLY
 GS POS UAN4  2   OUTS  -13.6519    0.0000   45.0444 340  ONLY
 GS POS UAO1  2   OUTS  -59.1920    0.0000   27.0089 341  ONLY
 GS POS UAO2  2   OUTS  -56.1436    0.0000   56.1236 342  ONLY
 GS POS UAO3  2   OUTS  -30.4711    0.0000   61.5822 343  ONLY
 GS POS UAO4  2   OUTS  -13.2057    0.0000   49.4928 344  ONLY
 GS POS UAP1  2   OUTS  -60.0111    0.0000   26.4353 341  ONLY
 GS POS UAP3  2   OUTS  -30.5528    0.0000   62.8602 343  ONLY
 GS POS UAP4  2   OUTS  -13.2874    0.0000   50.7708 344  ONLY
 !
 ! Spectrometer: positions of windows in alu. planes
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UWA1  1   UAA1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWB1  1   UAB1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWC1  1   UAC1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWD1  1   UAD1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWE1  1   UAE1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWF1  1   UAF1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWH1  1   UAH1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWI1  1   UAI1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWI2  1   UAI2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWJ1  1   UAJ1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWJ2  1   UAJ2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK1  1   UAK1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK2  1   UAK2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK3  1   UAK3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWK4  1   UAK4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWL1  1   UAL1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWL3  1   UAL3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWL4  1   UAL4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM1  1   UAM1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM2  1   UAM2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM3  1   UAM3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWM4  1   UAM4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWN2  1   UAN2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWN4  1   UAN4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO1  1   UAO1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO2  1   UAO2    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO3  1   UAO3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWO4  1   UAO4    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWP1  1   UAP1    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWP3  1   UAP3    0.0000    0.0000    0.0000   0  ONLY
 GS POS UWP4  1   UAP4    0.0000    0.0000    0.0000   0  ONLY
 !
 ! Spectrometer: positions of shims
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS USI2  1   OUTS   16.8567   -5.2500   26.8077 311  ONLY
 GS POS USJ1  1   OUTS   28.0238   -5.2500   18.3212 310  ONLY
 GS POS USK2  1   OUTS   33.5680   -5.2500   33.6283 313  ONLY
 GS POS USM2  1   OUTS   44.9213   -5.2500   45.0014 317  ONLY
 GS POS USO2  1   OUTS   56.3911   -5.2500   56.3711 321  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS USI2  2   OUTS  -16.8567   -5.2500   26.8077 332  ONLY
 GS POS USJ1  2   OUTS  -28.0238   -5.2500   18.3212 331  ONLY
 GS POS USK2  2   OUTS  -33.5680   -5.2500   33.6283 334  ONLY
 GS POS USM2  2   OUTS  -44.9213   -5.2500   45.0014 338  ONLY
 GS POS USO2  2   OUTS  -56.3911   -5.2500   56.3711 342  ONLY
 !
 ! Spectrometer: positions of cooling tubes
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UCAB  1   OUTS    7.8932    4.7500    3.7904 303  ONLY
 GS POS UCCD  1   OUTS   11.5624    4.7500    7.7345 305  ONLY
 GS POS UCEF  1   OUTS   14.2724    4.7500   11.1621 307  ONLY
 GS POS UCGH  1   OUTS   17.1118    4.7500   14.4619 309  ONLY
 GS POS UCI1  1   OUTS   27.8801    5.2500   15.3930 310  ONLY
 GS POS UCI2  1   OUTS   16.5847    5.2500   27.5089 311  ONLY
 GS POS UCK1  1   OUTS   40.1178    5.2500   15.6729 312  ONLY
 GS POS UCK2  1   OUTS   34.0276    5.2500   34.0879 313  ONLY
 GS POS UCK3  1   OUTS   15.6059    5.2500   40.1757 314  ONLY
 GS POS UCM1  1   OUTS   48.6055    5.2500   21.0388 316  ONLY
 GS POS UCM2  1   OUTS   45.3809    5.2500   45.4610 317  ONLY
 GS POS UCM3  1   OUTS   20.5487    5.2500   48.4489 318  ONLY
 GS POS UCO1  1   OUTS   58.3755    5.2500   24.9712 320  ONLY
 GS POS UCO2  1   OUTS   56.8507    5.2500   56.8307 321  ONLY
 GS POS UCO3  1   OUTS   24.7518    5.2500   58.1878 322  ONLY
 GS POS UCAB  2   OUTS    7.8932   -4.7500    3.7904 303  ONLY
 GS POS UCCD  2   OUTS   11.5624   -4.7500    7.7345 305  ONLY
 GS POS UCEF  2   OUTS   14.2724   -4.7500   11.1621 307  ONLY
 GS POS UCGH  2   OUTS   17.1118   -4.7500   14.4619 309  ONLY
 GS POS UCI1  2   OUTS   27.8801   -5.2500   15.3930 310  ONLY
 GS POS UCI2  2   OUTS   16.5847   -5.2500   27.5089 311  ONLY
 GS POS UCK1  2   OUTS   40.1178   -5.2500   15.6729 312  ONLY
 GS POS UCK2  2   OUTS   34.0276   -5.2500   34.0879 313  ONLY
 GS POS UCK3  2   OUTS   15.6059   -5.2500   40.1757 314  ONLY
 GS POS UCM1  2   OUTS   48.6055   -5.2500   21.0388 316  ONLY
 GS POS UCM2  2   OUTS   45.3809   -5.2500   45.4610 317  ONLY
 GS POS UCM3  2   OUTS   20.5487   -5.2500   48.4489 318  ONLY
 GS POS UCO1  2   OUTS   58.3755   -5.2500   24.9712 320  ONLY
 GS POS UCO2  2   OUTS   56.8507   -5.2500   56.8307 321  ONLY
 GS POS UCO3  2   OUTS   24.7518   -5.2500   58.1878 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UCAB  3   OUTS   -7.8932    4.7500    3.7904 324  ONLY
 GS POS UCCD  3   OUTS  -11.5624    4.7500    7.7345 326  ONLY
 GS POS UCEF  3   OUTS  -14.2724    4.7500   11.1621 328  ONLY
 GS POS UCGH  3   OUTS  -17.1118    4.7500   14.4619 330  ONLY
 GS POS UCI1  3   OUTS  -27.8801    5.2500   15.3930 331  ONLY
 GS POS UCI2  3   OUTS  -16.5847    5.2500   27.5089 332  ONLY
 GS POS UCK1  3   OUTS  -40.1178    5.2500   15.6729 333  ONLY
 GS POS UCK2  3   OUTS  -34.0276    5.2500   34.0879 334  ONLY
 GS POS UCK3  3   OUTS  -15.6059    5.2500   40.1757 335  ONLY
 GS POS UCM1  3   OUTS  -48.6055    5.2500   21.0388 337  ONLY
 GS POS UCM2  3   OUTS  -45.3809    5.2500   45.4610 338  ONLY
 GS POS UCM3  3   OUTS  -20.5487    5.2500   48.4489 339  ONLY
 GS POS UCO1  3   OUTS  -58.3755    5.2500   24.9712 341  ONLY
 GS POS UCO2  3   OUTS  -56.8507    5.2500   56.8307 342  ONLY
 GS POS UCO3  3   OUTS  -24.7518    5.2500   58.1878 343  ONLY
 GS POS UCAB  4   OUTS   -7.8932   -4.7500    3.7904 324  ONLY
 GS POS UCCD  4   OUTS  -11.5624   -4.7500    7.7345 326  ONLY
 GS POS UCEF  4   OUTS  -14.2724   -4.7500   11.1621 328  ONLY
 GS POS UCGH  4   OUTS  -17.1118   -4.7500   14.4619 330  ONLY
 GS POS UCI1  4   OUTS  -27.8801   -5.2500   15.3930 331  ONLY
 GS POS UCI2  4   OUTS  -16.5847   -5.2500   27.5089 332  ONLY
 GS POS UCK1  4   OUTS  -40.1178   -5.2500   15.6729 333  ONLY
 GS POS UCK2  4   OUTS  -34.0276   -5.2500   34.0879 334  ONLY
 GS POS UCK3  4   OUTS  -15.6059   -5.2500   40.1757 335  ONLY
 GS POS UCM1  4   OUTS  -48.6055   -5.2500   21.0388 337  ONLY
 GS POS UCM2  4   OUTS  -45.3809   -5.2500   45.4610 338  ONLY
 GS POS UCM3  4   OUTS  -20.5487   -5.2500   48.4489 339  ONLY
 GS POS UCO1  4   OUTS  -58.3755   -5.2500   24.9712 341  ONLY
 GS POS UCO2  4   OUTS  -56.8507   -5.2500   56.8307 342  ONLY
 GS POS UCO3  4   OUTS  -24.7518   -5.2500   58.1878 343  ONLY
 !
 ! Spectrometer: positions of cooling tubes (uprights)
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UU01  1   OUTS    9.0656    0.0000   -3.6118 303  ONLY
 GS POS UU02  1   OUTS    9.6131    0.0000   -7.0687 303  ONLY
 GS POS UU01  2   OUTS   14.0122    0.0000    2.2321 305  ONLY
 GS POS UU02  2   OUTS   16.6560    0.0000   -3.7059 305  ONLY
 GS POS UU01  3   OUTS   17.3989    0.0000    6.5269 307  ONLY
 GS POS UU02  3   OUTS   21.0337    0.0000    1.1382 307  ONLY
 GS POS UU01  4   OUTS   22.5177    0.0000    8.0194 309  ONLY
 GS POS UU02  4   OUTS   26.6958    0.0000    3.0401 309  ONLY
 GS POS UU04  1   OUTS   29.6665    0.0000    5.2619 310  ONLY
 GS POS UU03  1   OUTS    7.4095    0.0000   28.9621 311  ONLY
 GS POS UU04  2   OUTS   36.9999    0.0000    7.1067 312  ONLY
 GS POS UU03  2   OUTS    6.7981    0.0000   36.9699 314  ONLY
 GS POS UU03  3   OUTS   24.6531    0.0000   43.4686 314  ONLY
 GS POS UU04  3   OUTS   41.0966    0.0000    8.0330 316  ONLY
 GS POS UU03  4   OUTS    6.9165    0.0000   40.5783 318  ONLY
 GS POS UU03  5   OUTS   34.4468    0.0000   56.4729 318  ONLY
 GS POS UU04  4   OUTS   46.1694    0.0000    7.5390 320  ONLY
 GS POS UU03  6   OUTS    6.8754    0.0000   45.6706 322  ONLY
 GS POS UU03  7   OUTS   42.9031    0.0000   70.8976 322  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS UU01  5   OUTS   -8.1270    0.0000    2.3143 324  ONLY
 GS POS UU02  5   OUTS   -9.6131    0.0000   -7.0687 324  ONLY
 GS POS UU01  6   OUTS  -12.7920    0.0000    4.9728 326  ONLY
 GS POS UU02  6   OUTS  -16.6560    0.0000   -3.7059 326  ONLY
 GS POS UU01  7   OUTS  -15.7213    0.0000    9.0141 328  ONLY
 GS POS UU02  7   OUTS  -21.0337    0.0000    1.1382 328  ONLY
 GS POS UU01  8   OUTS  -20.5893    0.0000   10.3176 330  ONLY
 GS POS UU02  8   OUTS  -26.6958    0.0000    3.0401 330  ONLY
 GS POS UU04  5   OUTS  -29.6665    0.0000    5.2619 331  ONLY
 GS POS UU03  8   OUTS   -7.4095    0.0000   28.9621 332  ONLY
 GS POS UU04  6   OUTS  -36.9999    0.0000    7.1067 333  ONLY
 GS POS UU03  9   OUTS   -6.7981    0.0000   36.9699 335  ONLY
 GS POS UU03 10   OUTS  -24.6531    0.0000   43.4686 335  ONLY
 GS POS UU04  7   OUTS  -41.0966    0.0000    8.0330 337  ONLY
 GS POS UU03 11   OUTS   -6.9165    0.0000   40.5783 339  ONLY
 GS POS UU03 12   OUTS  -34.4468    0.0000   56.4729 339  ONLY
 GS POS UU04  8   OUTS  -46.1694    0.0000    7.5390 341  ONLY
 GS POS UU03 13   OUTS   -6.8754    0.0000   45.6706 343  ONLY
 GS POS UU03 14   OUTS  -42.9031    0.0000   70.8976 343  ONLY
 GS POS UK01  1   OUTS   20.0000    0.0000   -5.7000 370  ONLY
 GS POS UK01  2   OUTS  -20.0000    0.0000   -5.7000 371  ONLY
 GS POS UK02  1   OUTS   26.2000    0.0000  -28.3000 372  ONLY
 GS POS UK02  2   OUTS  -26.2000    0.0000  -28.3000 373  ONLY
 GS POS UKA1  1   OUTS    7.7000    4.0500   -4.1000 303  ONLY
 GS POS UKA1  2   OUTS    7.7000   -4.0500   -4.1000 303  ONLY
 GS POS UKA1  3   OUTS   -7.7000    4.0500   -4.1000 324  ONLY
 GS POS UKA1  4   OUTS   -7.7000   -4.0500   -4.1000 324  ONLY
 GS POS UKB1  1   OUTS   10.2000    4.0500   -2.6000 303  ONLY
 GS POS UKB1  2   OUTS   10.2000   -4.0500   -2.6000 303  ONLY
 GS POS UKB1  3   OUTS  -10.2000    4.0500   -2.6000 324  ONLY
 GS POS UKB1  4   OUTS  -10.2000   -4.0500   -2.6000 324  ONLY
 GS POS UKC1  1   OUTS   13.5000    4.0500    0.0000 305  ONLY
 GS POS UKC1  2   OUTS   13.5000   -4.0500    0.0000 305  ONLY
 GS POS UKC1  3   OUTS  -13.5000    4.0500    0.0000 326  ONLY
 GS POS UKC1  4   OUTS  -13.5000   -4.0500    0.0000 326  ONLY
 GS POS UKD1  1   OUTS   15.8000    4.0500    1.4000 305  ONLY
 GS POS UKD1  2   OUTS   15.8000   -4.0500    1.4000 305  ONLY
 GS POS UKD1  3   OUTS  -15.8000    4.0500    1.4000 326  ONLY
 GS POS UKD1  4   OUTS  -15.8000   -4.0500    1.4000 326  ONLY
 GS POS UKE1  1   OUTS   18.2000    5.1000    2.7000 307  ONLY
 GS POS UKE1  2   OUTS   18.2000   -5.1000    2.7000 307  ONLY
 GS POS UKE1  3   OUTS  -18.2000    5.1000    2.7000 328  ONLY
 GS POS UKE1  4   OUTS  -18.2000   -5.1000    2.7000 328  ONLY
 GS POS UKF1  1   OUTS   20.4000    5.1000    4.3000 307  ONLY
 GS POS UKF1  2   OUTS   20.4000   -5.1000    4.3000 307  ONLY
 GS POS UKF1  3   OUTS  -20.4000    5.1000    4.3000 328  ONLY
 GS POS UKF1  4   OUTS  -20.4000   -5.1000    4.3000 328  ONLY
 GS POS UKH1  1   OUTS   25.0000    5.1000    6.8000 309  ONLY
 GS POS UKH1  2   OUTS   25.0000   -5.1000    6.8000 309  ONLY
 GS POS UKH1  3   OUTS  -25.0000    5.1000    6.8000 330  ONLY
 GS POS UKH1  4   OUTS  -25.0000   -5.1000    6.8000 330  ONLY
 GS POS UKH2  1   OUTS   19.2000    5.1000   13.9000 309  ONLY
 GS POS UKH2  2   OUTS   19.2000   -5.1000   13.9000 309  ONLY
 GS POS UKH2  3   OUTS  -19.2000    5.1000   13.9000 330  ONLY
 GS POS UKH2  4   OUTS  -19.2000   -5.1000   13.9000 330  ONLY
 !
 ! 6) BEAM PIPE
 !
 !
 ! Beam pipe: vol. definitions
 !
 !       name  shape mat. r_i      r_o     lz/2  # par
 GS VOLU BEAM 'TUBE' 2   3.7100   3.8100 800.0000  3
 GS VOLU BEAV 'TUBE' 1   0.0000   3.7100 800.0000  3
 GS VOLU BEAF 'TUBE' 2   3.8100   5.8738   0.6350  3
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS BEAM  1   OUTS    0.0000    0.0000    0.0000   0  ONLY
 GS POS BEAV  1   OUTS    0.0000    0.0000    0.0000   0  ONLY
 GS POS BEAF  1   OUTS    0.0000    0.0000  200.0000   0  ONLY
 GS POS BEAF  2   OUTS    0.0000    0.0000 -200.0000   0  ONLY
 GS VOLU YYY1  'TRAP'   3   4.8300   0.0000   0.0000  52.1000  26.8853 131.7495   0.3652  52.1000  26.8853 131.7495   0.3652   11
 GS VOLU YYY2  'TRAP'   3   4.8300   0.0000   0.0000  52.1000 131.7495  26.8853  -0.3652  52.1000 131.7495  26.8853  -0.3652   11
 GS VOLU YYY3  'TRAP'   3   8.7500   0.0000   0.0000  54.9500  33.4702 153.9135   5.4799  54.9500  33.4702 153.9135   5.4799   11
 GS VOLU YYY4  'TRAP'   3   8.7500   0.0000   0.0000  54.9500 153.9135  33.4702  -5.4799  54.9500 153.9135  33.4702  -5.4799   11
 GS VOLU YY01  'TRAP'   5   0.4830   0.0000   0.0000  12.2146  22.6415   0.0653   9.2907  12.2146  22.6415   0.0653   9.2907   11
 GS VOLU YY02  'TRAP'   5   0.4830   0.0000   0.0000  15.2060  11.8233   0.0341 -14.1248  15.2060  11.8233   0.0341 -14.1248   11
 GS VOLU YY03  'CONS'   5   0.4830   0.0000  36.2000   0.0000  36.2000 -57.4095 177.5938   7
 GS VOLU YY04  'TRAP'   5   0.4830   0.0000   0.0000  12.3213  23.3299   0.0667  11.2365  12.3213  23.3299   0.0667  11.2365   11
 GS VOLU YY05  'TRAP'   5   0.4830   0.0000   0.0000  15.2064  13.1564   0.0376 -15.9316  15.2064  13.1564   0.0376 -15.9316   11
 GS VOLU YY06  'CONS'   5   0.4830   0.0000  37.5264   0.0000  37.5264 -54.3666 176.1903   7
 GS VOLU YY07  'TRAP'   5   0.4830   0.0000   0.0000  12.4280  24.0183   0.0681  13.1239  12.4280  24.0183   0.0681  13.1239   11
 GS VOLU YY08  'TRAP'   5   0.4830   0.0000   0.0000  15.2067  14.4270   0.0409 -17.6001  15.2067  14.4270   0.0409 -17.6001   11
 GS VOLU YY09  'CONS'   5   0.4830   0.0000  38.8738   0.0000  38.8738 -51.6829 174.8832   7
 GS VOLU YY10  'TRAP'   5   0.4830   0.0000   0.0000  12.5347  24.7067   0.0695  14.9514  12.5347  24.7067   0.0695  14.9514   11
 GS VOLU YY11  'TRAP'   5   0.4830   0.0000   0.0000  15.2071  15.6513   0.0440 -19.1605  15.2071  15.6513   0.0440 -19.1605   11
 GS VOLU YY12  'CONS'   5   0.4830   0.0000  40.2400   0.0000  40.2400 -49.2840 173.6643   7
 GS VOLU YY13  'TRAP'   5   0.4830   0.0000   0.0000  12.6414  25.3952   0.0708  16.7183  12.6414  25.3952   0.0708  16.7183   11
 GS VOLU YY14  'TRAP'   5   0.4830   0.0000   0.0000  15.2075  16.8397   0.0470 -20.6330  15.2075  16.8397   0.0470 -20.6330   11
 GS VOLU YY15  'CONS'   5   0.4830   0.0000  41.6232   0.0000  41.6232 -47.1186 172.5260   7
 GS VOLU YY16  'TRAP'   5   0.4830   0.0000   0.0000  12.7481  26.0836   0.0721  18.4244  12.7481  26.0836   0.0721  18.4244   11
 GS VOLU YY17  'TRAP'   5   0.4830   0.0000   0.0000  15.2078  17.9995   0.0498 -22.0315  15.2078  17.9995   0.0498 -22.0315   11
 GS VOLU YY18  'CONS'   5   0.4830   0.0000  43.0218   0.0000  43.0218 -45.1489 171.4613   7
 GS VOLU YY19  'TRAP'   5   0.4830   0.0000   0.0000  12.8549  26.7720   0.0734  20.0699  12.8549  26.7720   0.0734  20.0699   11
 GS VOLU YY20  'TRAP'   5   0.4830   0.0000   0.0000  15.2082  19.1363   0.0525 -23.3663  15.2082  19.1363   0.0525 -23.3663   11
 GS VOLU YY21  'CONS'   5   0.4830   0.0000  44.4344   0.0000  44.4344 -43.3462 170.4639   7
 GS VOLU YY22  'TRAP'   5   0.4830   0.0000   0.0000  12.9616  27.4604   0.0747  21.6554  12.9616  27.4604   0.0747  21.6554   11
 GS VOLU YY23  'TRAP'   5   0.4830   0.0000   0.0000  15.2085  20.2538   0.0551 -24.6451  15.2085  20.2538   0.0551 -24.6451   11
 GS VOLU YY24  'CONS'   5   0.4830   0.0000  45.8595   0.0000  45.8595 -41.6880 169.5284   7
 GS VOLU YY25  'TRAP'   5   0.4830   0.0000   0.0000  13.0683  28.1489   0.0759  23.1818  13.0683  28.1489   0.0759  23.1818   11
 GS VOLU YY26  'TRAP'   5   0.4830   0.0000   0.0000  15.2089  21.3553   0.0576 -25.8737  15.2089  21.3553   0.0576 -25.8737   11
 GS VOLU YY27  'CONS'   5   0.4830   0.0000  47.2962   0.0000  47.2962 -40.1561 168.6493   7
 GS VOLU YY28  'TRAP'   5   0.4830   0.0000   0.0000  13.1750  28.8373   0.0772  24.6504  13.1750  28.8373   0.0772  24.6504   11
 GS VOLU YY29  'TRAP'   5   0.4830   0.0000   0.0000  15.2092  22.4431   0.0601 -27.0569  15.2092  22.4431   0.0601 -27.0569   11
 GS VOLU YY30  'CONS'   5   0.4830   0.0000  48.7433   0.0000  48.7433 -38.7355 167.8223   7
 GS VOLU YY31  'TRAP'   5   0.5147   0.0000   0.0000  13.2817  29.5257   0.0784  26.0625  13.2817  29.5257   0.0784  26.0625   11
 GS VOLU YY32  'TRAP'   5   0.5147   0.0000   0.0000  15.2095  23.5192   0.0624 -28.1986  15.2095  23.5192   0.0624 -28.1986   11
 GS VOLU YY33  'CONS'   5   0.5147   0.0000  50.2000   0.0000  50.2000 -37.4140 167.0432   7
 GS VOLU YY34  'TRAP'   5   0.5147   0.0000   0.0000  13.3954  29.5383   0.0778  26.2837  13.3954  29.5383   0.0778  26.2837   11
 GS VOLU YY35  'TRAP'   5   0.5147   0.0000   0.0000  15.2099  23.8904   0.0629 -28.2708  15.2099  23.8904   0.0629 -28.2708   11
 GS VOLU YY36  'CONS'   5   0.5147   0.0000  50.5348   0.0000  50.5348 -37.1242 167.1098   7
 GS VOLU YY37  'TRAP'   5   0.5147   0.0000   0.0000  13.5091  29.5509   0.0771  26.5004  13.5091  29.5509   0.0771  26.5004   11
 GS VOLU YY38  'TRAP'   5   0.5147   0.0000   0.0000  15.2102  24.2608   0.0633 -28.3419  15.2102  24.2608   0.0633 -28.3419   11
 GS VOLU YY39  'CONS'   5   0.5147   0.0000  50.8697   0.0000  50.8697 -36.8392 167.1755   7
 GS VOLU YY40  'TRAP'   5   0.5147   0.0000   0.0000  13.6228  29.5635   0.0765  26.7127  13.6228  29.5635   0.0765  26.7127   11
 GS VOLU YY41  'TRAP'   5   0.5147   0.0000   0.0000  15.2105  24.6304   0.0638 -28.4118  15.2105  24.6304   0.0638 -28.4118   11
 GS VOLU YY42  'CONS'   5   0.5147   0.0000  51.2046   0.0000  51.2046 -36.5589 167.2404   7
 GS VOLU YY43  'TRAP'   5   0.5147   0.0000   0.0000  13.7365  29.5761   0.0759  26.9208  13.7365  29.5761   0.0759  26.9208   11
 GS VOLU YY44  'TRAP'   5   0.5147   0.0000   0.0000  15.2108  24.9994   0.0642 -28.4806  15.2108  24.9994   0.0642 -28.4806   11
 GS VOLU YY45  'CONS'   5   0.5147   0.0000  51.5396   0.0000  51.5396 -36.2832 167.3044   7
 GS VOLU YY46  'TRAP'   5   0.5147   0.0000   0.0000  13.8502  29.5887   0.0753  27.1247  13.8502  29.5887   0.0753  27.1247   11
 GS VOLU YY47  'TRAP'   5   0.5147   0.0000   0.0000  15.2112  25.3677   0.0646 -28.5483  15.2112  25.3677   0.0646 -28.5483   11
 GS VOLU YY48  'CONS'   5   0.5147   0.0000  51.8747   0.0000  51.8747 -36.0120 167.3676   7
 GS VOLU YY49  'TRAP'   5   0.5147   0.0000   0.0000  13.9639  29.6013   0.0748  27.3245  13.9639  29.6013   0.0748  27.3245   11
 GS VOLU YY50  'TRAP'   5   0.5147   0.0000   0.0000  15.2115  25.7353   0.0650 -28.6149  15.2115  25.7353   0.0650 -28.6149   11
 GS VOLU YY51  'CONS'   5   0.5147   0.0000  52.2098   0.0000  52.2098 -35.7452 167.4300   7
 GS VOLU YY52  'TRAP'   5   0.5147   0.0000   0.0000  14.0776  29.6139   0.0742  27.5204  14.0776  29.6139   0.0742  27.5204   11
 GS VOLU YY53  'TRAP'   5   0.5147   0.0000   0.0000  15.2118  26.1022   0.0654 -28.6805  15.2118  26.1022   0.0654 -28.6805   11
 GS VOLU YY54  'CONS'   5   0.5147   0.0000  52.5450   0.0000  52.5450 -35.4825 167.4916   7
 GS VOLU YY55  'TRAP'   5   0.5147   0.0000   0.0000  14.1913  29.6265   0.0736  27.7126  14.1913  29.6265   0.0736  27.7126   11
 GS VOLU YY56  'TRAP'   5   0.5147   0.0000   0.0000  15.2121  26.4686   0.0658 -28.7451  15.2121  26.4686   0.0658 -28.7451   11
 GS VOLU YY57  'CONS'   5   0.5147   0.0000  52.8802   0.0000  52.8802 -35.2240 167.5524   7
 GS VOLU YY58  'TRAP'   5   0.5147   0.0000   0.0000  14.3050  29.6391   0.0731  27.9010  14.3050  29.6391   0.0731  27.9010   11
 GS VOLU YY59  'TRAP'   5   0.5147   0.0000   0.0000  15.2124  26.8343   0.0662 -28.8088  15.2124  26.8343   0.0662 -28.8088   11
 GS VOLU YY60  'CONS'   5   0.5147   0.0000  53.2155   0.0000  53.2155 -34.9695 167.6124   7
 GS VOLU YY61  'TRAP'   5   0.5147   0.0000   0.0000  14.4187  29.6517   0.0725  28.0858  14.4187  29.6517   0.0725  28.0858   11
 GS VOLU YY62  'TRAP'   5   0.5147   0.0000   0.0000  15.2127  27.1994   0.0665 -28.8715  15.2127  27.1994   0.0665 -28.8715   11
 GS VOLU YY63  'CONS'   5   0.5147   0.0000  53.5509   0.0000  53.5509 -34.7189 167.6717   7
 GS VOLU YY64  'TRAP'   5   0.5147   0.0000   0.0000  14.5324  29.6642   0.0720  28.2671  14.5324  29.6642   0.0720  28.2671   11
 GS VOLU YY65  'TRAP'   5   0.5147   0.0000   0.0000  15.2130  27.5639   0.0669 -28.9333  15.2130  27.5639   0.0669 -28.9333   11
 GS VOLU YY66  'CONS'   5   0.5147   0.0000  53.8863   0.0000  53.8863 -34.4722 167.7303   7
 GS VOLU YY67  'TRAP'   5   0.5147   0.0000   0.0000  14.6461  29.6768   0.0715  28.4450  14.6461  29.6768   0.0715  28.4450   11
 GS VOLU YY68  'TRAP'   5   0.5147   0.0000   0.0000  15.2133  27.9279   0.0673 -28.9942  15.2133  27.9279   0.0673 -28.9942   11
 GS VOLU YY69  'CONS'   5   0.5147   0.0000  54.2218   0.0000  54.2218 -34.2291 167.7881   7
 GS VOLU YY70  'TRAP'   5   0.5147   0.0000   0.0000  14.7598  29.6894   0.0709  28.6196  14.7598  29.6894   0.0709  28.6196   11
 GS VOLU YY71  'TRAP'   5   0.5147   0.0000   0.0000  15.2136  28.2913   0.0676 -29.0543  15.2136  28.2913   0.0676 -29.0543   11
 GS VOLU YY72  'CONS'   5   0.5147   0.0000  54.5573   0.0000  54.5573 -33.9897 167.8452   7
 GS VOLU YY73  'TRAP'   5   0.5147   0.0000   0.0000  14.8735  29.7020   0.0704  28.7909  14.8735  29.7020   0.0704  28.7909   11
 GS VOLU YY74  'TRAP'   5   0.5147   0.0000   0.0000  15.2138  28.6542   0.0679 -29.1135  15.2138  28.6542   0.0679 -29.1135   11
 GS VOLU YY75  'CONS'   5   0.5147   0.0000  54.8929   0.0000  54.8929 -33.7539 167.9017   7
 GS VOLU YY76  'TRAP'   5   0.5147   0.0000   0.0000  14.9872  29.7146   0.0699  28.9591  14.9872  29.7146   0.0699  28.9591   11
 GS VOLU YY77  'TRAP'   5   0.5147   0.0000   0.0000  15.2141  29.0166   0.0683 -29.1720  15.2141  29.0166   0.0683 -29.1720   11
 GS VOLU YY78  'CONS'   5   0.5147   0.0000  55.2286   0.0000  55.2286 -33.5215 167.9574   7
 GS VOLU YY79  'TRAP'   5   0.5147   0.0000   0.0000  15.1009  29.7272   0.0694  29.1243  15.1009  29.7272   0.0694  29.1243   11
 GS VOLU YY80  'TRAP'   5   0.5147   0.0000   0.0000  15.2144  29.3785   0.0686 -29.2296  15.2144  29.3785   0.0686 -29.2296   11
 GS VOLU YY81  'CONS'   5   0.5147   0.0000  55.5643   0.0000  55.5643 -33.2925 168.0124   7
 GS VOLU YC01  'TRAP'   7   0.4280   0.0000   0.0000   5.4055  28.0032  24.0354  -4.1143   5.4055  28.0032  24.0354  -4.1143   11
 GS VOLU YC02  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  17.2545  14.4580   7.7264   5.5000  17.2545  14.4580   7.7264   11
 GS VOLU YC03  'CONS'   7   0.4280  38.9075  48.6877  38.9075  48.6877 -51.6201 174.8519   7
 GS VOLU YC04  'TRAP'   7   0.4280   0.0000   0.0000   4.8748   3.1342   0.0033 -14.3971   4.8748   3.1342   0.0033 -14.3971   11
 GS VOLU YC05  'TRAP'   7   0.4280   0.0000   0.0000   4.8764   2.9089   0.0031  13.3880   4.8764   2.9089   0.0031  13.3880   11
 GS VOLU YC06  'TRAP'   7   0.4280   0.0000   0.0000   5.4054  28.6687  24.6454  -3.8217   5.4054  28.6687  24.6454  -3.8217   11
 GS VOLU YC07  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  18.4837  15.5439   6.9919   5.5000  18.4837  15.5439   6.9919   11
 GS VOLU YC08  'CONS'   7   0.4280  40.1176  49.8685  40.1176  49.8685 -49.4875 173.7695   7
 GS VOLU YC09  'TRAP'   7   0.4280   0.0000   0.0000   4.8603   3.1874   0.0034 -14.7668   4.8603   3.1874   0.0034 -14.7668   11
 GS VOLU YC10  'TRAP'   7   0.4280   0.0000   0.0000   4.8618   2.9735   0.0032  13.8022   4.8618   2.9735   0.0032  13.8022   11
 GS VOLU YC11  'TRAP'   7   0.4280   0.0000   0.0000   5.4054  29.3342  25.2555  -3.5288   5.4054  29.3342  25.2555  -3.5288   11
 GS VOLU YC12  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  19.6718  16.6010   6.3192   5.5000  19.6718  16.6010   6.3192   11
 GS VOLU YC13  'CONS'   7   0.4280  41.3413  51.0680  41.3413  51.0680 -47.5411 172.7508   7
 GS VOLU YC14  'TRAP'   7   0.4280   0.0000   0.0000   4.8484   3.2360   0.0035 -15.1068   4.8484   3.2360   0.0035 -15.1068   11
 GS VOLU YC15  'TRAP'   7   0.4280   0.0000   0.0000   4.8498   3.0348   0.0032  14.1945   4.8498   3.0348   0.0032  14.1945   11
 GS VOLU YC16  'TRAP'   7   0.4280   0.0000   0.0000   5.4054  29.9998  25.8655  -3.2358   5.4054  29.9998  25.8655  -3.2358   11
 GS VOLU YC17  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  20.8269  17.6348   5.6943   5.5000  20.8269  17.6348   5.6943   11
 GS VOLU YC18  'CONS'   7   0.4280  42.5772  52.2848  42.5772  52.2848 -45.7536 171.7910   7
 GS VOLU YC19  'TRAP'   7   0.4280   0.0000   0.0000   4.8390   3.2803   0.0035 -15.4187   4.8390   3.2803   0.0035 -15.4187   11
 GS VOLU YC20  'TRAP'   7   0.4280   0.0000   0.0000   4.8403   3.0926   0.0033  14.5630   4.8403   3.0926   0.0033  14.5630   11
 GS VOLU YC21  'TRAP'   7   0.4280   0.0000   0.0000   5.4054  30.6653  26.4755  -2.9426   5.4054  30.6653  26.4755  -2.9426   11
 GS VOLU YC22  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  21.9550  18.6493   5.1075   5.5000  21.9550  18.6493   5.1075   11
 GS VOLU YC23  'CONS'   7   0.4280  43.8245  53.5178  43.8245  53.5178 -44.1036 170.8856   7
 GS VOLU YC24  'TRAP'   7   0.4280   0.0000   0.0000   4.8321   3.3208   0.0036 -15.7035   4.8321   3.3208   0.0036 -15.7035   11
 GS VOLU YC25  'TRAP'   7   0.4280   0.0000   0.0000   4.8333   3.1467   0.0034  14.9064   4.8333   3.1467   0.0034  14.9064   11
 GS VOLU YC26  'TRAP'   7   0.4280   0.0000   0.0000   5.4055  31.3308  27.0856  -2.6493   5.4055  31.3308  27.0856  -2.6493   11
 GS VOLU YC27  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  23.0606  19.6475   4.5519   5.5000  23.0606  19.6475   4.5519   11
 GS VOLU YC28  'CONS'   7   0.4280  45.0820  54.7659  45.0820  54.7659 -42.5742 170.0305   7
 GS VOLU YC29  'TRAP'   7   0.4280   0.0000   0.0000   4.8276   3.3577   0.0036 -15.9627   4.8276   3.3577   0.0036 -15.9627   11
 GS VOLU YC30  'TRAP'   7   0.4280   0.0000   0.0000   4.8287   3.1973   0.0034  15.2251   4.8287   3.1973   0.0034  15.2251   11
 GS VOLU YC31  'TRAP'   7   0.4280   0.0000   0.0000   5.4055  31.9963  27.6956  -2.3558   5.4055  31.9963  27.6956  -2.3558   11
 GS VOLU YC32  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  24.1472  20.6318   4.0221   5.5000  24.1472  20.6318   4.0221   11
 GS VOLU YC33  'CONS'   7   0.4280  46.3491  56.0281  46.3491  56.0281 -41.1513 169.2219   7
 GS VOLU YC34  'TRAP'   7   0.4280   0.0000   0.0000   4.8254   3.3915   0.0036 -16.1973   4.8254   3.3915   0.0036 -16.1973   11
 GS VOLU YC35  'TRAP'   7   0.4280   0.0000   0.0000   4.8264   3.2446   0.0035  15.5195   4.8264   3.2446   0.0035  15.5195   11
 GS VOLU YC36  'TRAP'   7   0.4280   0.0000   0.0000   5.4054  32.6618  28.3057  -2.0622   5.4054  32.6618  28.3057  -2.0622   11
 GS VOLU YC37  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  25.2176  21.6042   3.5141   5.5000  25.2176  21.6042   3.5141   11
 GS VOLU YC38  'CONS'   7   0.4280  47.6249  57.3034  47.6249  57.3034 -39.8233 168.4566   7
 GS VOLU YC39  'TRAP'   7   0.4280   0.0000   0.0000   4.8254   3.4224   0.0037 -16.4089   4.8254   3.4224   0.0037 -16.4089   11
 GS VOLU YC40  'TRAP'   7   0.4280   0.0000   0.0000   4.8263   3.2888   0.0035  15.7903   4.8263   3.2888   0.0035  15.7903   11
 GS VOLU YC41  'TRAP'   7   0.4280   0.0000   0.0000   5.4054  33.3274  28.9157  -1.7684   5.4054  33.3274  28.9157  -1.7684   11
 GS VOLU YC42  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  26.2739  22.5662   3.0247   5.5000  26.2739  22.5662   3.0247   11
 GS VOLU YC43  'CONS'   7   0.4280  48.9087  58.5910  48.9087  58.5910 -38.5803 167.7313   7
 GS VOLU YC44  'TRAP'   7   0.4280   0.0000   0.0000   4.8275   3.4507   0.0037 -16.5988   4.8275   3.4507   0.0037 -16.5988   11
 GS VOLU YC45  'TRAP'   7   0.4280   0.0000   0.0000   4.8283   3.3301   0.0036  16.0389   4.8283   3.3301   0.0036  16.0389   11
 GS VOLU YC46  'TRAP'   7   0.4280   0.0000   0.0000   5.4054  33.9929  29.5257  -1.4746   5.4054  33.9929  29.5257  -1.4746   11
 GS VOLU YC47  'TRAP'   7   0.4280   0.0000   0.0000   5.5000  27.3179  23.5192   2.5515   5.5000  27.3179  23.5192   2.5515   11
 GS VOLU YC48  'CONS'   7   0.4280  50.2000  59.8901  50.2000  59.8901 -37.4140 167.0432   7
 GS VOLU YC49  'TRAP'   7   0.4280   0.0000   0.0000   4.8317   3.4766   0.0037 -16.7678   4.8317   3.4766   0.0037 -16.7678   11
 GS VOLU YC50  'TRAP'   7   0.4280   0.0000   0.0000   4.8324   3.3687   0.0036  16.2658   4.8324   3.3687   0.0036  16.2658   11
 GS VOLU YC51  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.6584  29.5383   1.7882   5.3863  34.6584  29.5383   1.7882   11
 GS VOLU YC52  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  28.3512  23.8904  -1.1777   5.5000  28.3512  23.8904  -1.1777   11
 GS VOLU YC53  'CONS'   7   0.5147  50.5348  61.2000  50.5348  61.2000 -37.1242 167.1098   7
 GS VOLU YC54  'TRAP'   7   0.5147   0.0000   0.0000   5.3205   3.1162   0.0030 -13.5846   5.3205   3.1162   0.0030 -13.5846   11
 GS VOLU YC55  'TRAP'   7   0.5147   0.0000   0.0000   5.3213   2.9744   0.0029  12.9798   5.3213   2.9744   0.0029  12.9798   11
 GS VOLU YC56  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.6686  29.5509   1.7752   5.3863  34.6686  29.5509   1.7752   11
 GS VOLU YC57  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  28.7395  24.2608  -1.2709   5.5000  28.7395  24.2608  -1.2709   11
 GS VOLU YC58  'CONS'   7   0.5147  50.8697  61.5352  50.8697  61.5352 -36.8392 167.1755   7
 GS VOLU YC59  'TRAP'   7   0.5147   0.0000   0.0000   5.3208   3.1115   0.0030 -13.5791   5.3208   3.1115   0.0030 -13.5791   11
 GS VOLU YC60  'TRAP'   7   0.5147   0.0000   0.0000   5.3215   2.9895   0.0029  13.0573   5.3215   2.9895   0.0029  13.0573   11
 GS VOLU YC61  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.6787  29.5635   1.7623   5.3863  34.6787  29.5635   1.7623   11
 GS VOLU YC62  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  29.1268  24.6304  -1.3627   5.5000  29.1268  24.6304  -1.3627   11
 GS VOLU YC63  'CONS'   7   0.5147  51.2046  61.8704  51.2046  61.8704 -36.5589 167.2404   7
 GS VOLU YC64  'TRAP'   7   0.5147   0.0000   0.0000   5.3210   3.1069   0.0030 -13.5739   5.3210   3.1069   0.0030 -13.5739   11
 GS VOLU YC65  'TRAP'   7   0.5147   0.0000   0.0000   5.3216   3.0043   0.0029  13.1340   5.3216   3.0043   0.0029  13.1340   11
 GS VOLU YC66  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.6889  29.5761   1.7494   5.3863  34.6889  29.5761   1.7494   11
 GS VOLU YC67  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  29.5131  24.9994  -1.4530   5.5000  29.5131  24.9994  -1.4530   11
 GS VOLU YC68  'CONS'   7   0.5147  51.5396  62.2057  51.5396  62.2057 -36.2832 167.3044   7
 GS VOLU YC69  'TRAP'   7   0.5147   0.0000   0.0000   5.3212   3.1024   0.0030 -13.5688   5.3212   3.1024   0.0030 -13.5688   11
 GS VOLU YC70  'TRAP'   7   0.5147   0.0000   0.0000   5.3217   3.0190   0.0029  13.2099   5.3217   3.0190   0.0029  13.2099   11
 GS VOLU YC71  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.6991  29.5887   1.7365   5.3863  34.6991  29.5887   1.7365   11
 GS VOLU YC72  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  29.8985  25.3677  -1.5418   5.5000  29.8985  25.3677  -1.5418   11
 GS VOLU YC73  'CONS'   7   0.5147  51.8747  62.5409  51.8747  62.5409 -36.0120 167.3676   7
 GS VOLU YC74  'TRAP'   7   0.5147   0.0000   0.0000   5.3214   3.0979   0.0030 -13.5639   5.3214   3.0979   0.0030 -13.5639   11
 GS VOLU YC75  'TRAP'   7   0.5147   0.0000   0.0000   5.3218   3.0335   0.0029  13.2850   5.3218   3.0335   0.0029  13.2850   11
 GS VOLU YC76  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7092  29.6013   1.7235   5.3863  34.7092  29.6013   1.7235   11
 GS VOLU YC77  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  30.2829  25.7353  -1.6292   5.5000  30.2829  25.7353  -1.6292   11
 GS VOLU YC78  'CONS'   7   0.5147  52.2098  62.8762  52.2098  62.8762 -35.7452 167.4300   7
 GS VOLU YC79  'TRAP'   7   0.5147   0.0000   0.0000   5.3216   3.0935   0.0030 -13.5593   5.3216   3.0935   0.0030 -13.5593   11
 GS VOLU YC80  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.0478   0.0029  13.3595   5.3219   3.0478   0.0029  13.3595   11
 GS VOLU YC81  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7194  29.6139   1.7106   5.3863  34.7194  29.6139   1.7106   11
 GS VOLU YC82  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  30.6663  26.1022  -1.7152   5.5000  30.6663  26.1022  -1.7152   11
 GS VOLU YC83  'CONS'   7   0.5147  52.5450  63.2114  52.5450  63.2114 -35.4825 167.4916   7
 GS VOLU YC84  'TRAP'   7   0.5147   0.0000   0.0000   5.3217   3.0892   0.0030 -13.5549   5.3217   3.0892   0.0030 -13.5549   11
 GS VOLU YC85  'TRAP'   7   0.5147   0.0000   0.0000   5.3220   3.0620   0.0029  13.4332   5.3220   3.0620   0.0029  13.4332   11
 GS VOLU YC86  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7295  29.6265   1.6977   5.3863  34.7295  29.6265   1.6977   11
 GS VOLU YC87  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  31.0490  26.4686  -1.8000   5.5000  31.0490  26.4686  -1.8000   11
 GS VOLU YC88  'CONS'   7   0.5147  52.8802  63.5467  52.8802  63.5467 -35.2240 167.5524   7
 GS VOLU YC89  'TRAP'   7   0.5147   0.0000   0.0000   5.3218   3.0849   0.0030 -13.5506   5.3218   3.0849   0.0030 -13.5506   11
 GS VOLU YC90  'TRAP'   7   0.5147   0.0000   0.0000   5.3220   3.0760   0.0030  13.5060   5.3220   3.0760   0.0030  13.5060   11
 GS VOLU YC91  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7397  29.6391   1.6847   5.3863  34.7397  29.6391   1.6847   11
 GS VOLU YC92  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  31.4307  26.8343  -1.8834   5.5000  31.4307  26.8343  -1.8834   11
 GS VOLU YC93  'CONS'   7   0.5147  53.2155  63.8820  53.2155  63.8820 -34.9695 167.6124   7
 GS VOLU YC94  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.0808   0.0030 -13.5466   5.3219   3.0808   0.0030 -13.5466   11
 GS VOLU YC95  'TRAP'   7   0.5147   0.0000   0.0000   5.3220   3.0898   0.0030  13.5784   5.3220   3.0898   0.0030  13.5784   11
 GS VOLU YC96  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7499  29.6517   1.6718   5.3863  34.7499  29.6517   1.6718   11
 GS VOLU YC97  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  31.8116  27.1994  -1.9655   5.5000  31.8116  27.1994  -1.9655   11
 GS VOLU YC98  'CONS'   7   0.5147  53.5509  64.2173  53.5509  64.2173 -34.7189 167.6717   7
 GS VOLU YC99  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.0767   0.0030 -13.5426   5.3219   3.0767   0.0030 -13.5426   11
 GS VOLU YCA0  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.1034   0.0030  13.6503   5.3219   3.1034   0.0030  13.6503   11
 GS VOLU YCA1  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7600  29.6642   1.6589   5.3863  34.7600  29.6642   1.6589   11
 GS VOLU YCA2  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  32.1917  27.5639  -2.0464   5.5000  32.1917  27.5639  -2.0464   11
 GS VOLU YCA3  'CONS'   7   0.5147  53.8863  64.5526  53.8863  64.5526 -34.4722 167.7303   7
 GS VOLU YCA4  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.0726   0.0030 -13.5389   5.3219   3.0726   0.0030 -13.5389   11
 GS VOLU YCA5  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.1170   0.0030  13.7210   5.3219   3.1170   0.0030  13.7210   11
 GS VOLU YCA6  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7702  29.6768   1.6460   5.3863  34.7702  29.6768   1.6460   11
 GS VOLU YCA7  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  32.5710  27.9279  -2.1261   5.5000  32.5710  27.9279  -2.1261   11
 GS VOLU YCA8  'CONS'   7   0.5147  54.2218  64.8879  54.2218  64.8879 -34.2291 167.7881   7
 GS VOLU YCA9  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.0686   0.0030 -13.5356   5.3219   3.0686   0.0030 -13.5356   11
 GS VOLU YCB0  'TRAP'   7   0.5147   0.0000   0.0000   5.3218   3.1303   0.0030  13.7914   5.3218   3.1303   0.0030  13.7914   11
 GS VOLU YCB1  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7804  29.6894   1.6331   5.3863  34.7804  29.6894   1.6331   11
 GS VOLU YCB2  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  32.9495  28.2913  -2.2046   5.5000  32.9495  28.2913  -2.2046   11
 GS VOLU YCB3  'CONS'   7   0.5147  54.5573  65.2232  54.5573  65.2232 -33.9897 167.8452   7
 GS VOLU YCB4  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.0647   0.0030 -13.5321   5.3219   3.0647   0.0030 -13.5321   11
 GS VOLU YCB5  'TRAP'   7   0.5147   0.0000   0.0000   5.3218   3.1435   0.0030  13.8608   5.3218   3.1435   0.0030  13.8608   11
 GS VOLU YCB6  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.7905  29.7020   1.6201   5.3863  34.7905  29.7020   1.6201   11
 GS VOLU YCB7  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  33.3273  28.6542  -2.2819   5.5000  33.3273  28.6542  -2.2819   11
 GS VOLU YCB8  'CONS'   7   0.5147  54.8929  65.5586  54.8929  65.5586 -33.7539 167.9017   7
 GS VOLU YCB9  'TRAP'   7   0.5147   0.0000   0.0000   5.3219   3.0609   0.0029 -13.5290   5.3219   3.0609   0.0029 -13.5290   11
 GS VOLU YCC0  'TRAP'   7   0.5147   0.0000   0.0000   5.3216   3.1565   0.0030  13.9302   5.3216   3.1565   0.0030  13.9302   11
 GS VOLU YCC1  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.8007  29.7146   1.6072   5.3863  34.8007  29.7146   1.6072   11
 GS VOLU YCC2  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  33.7043  29.0166  -2.3581   5.5000  33.7043  29.0166  -2.3581   11
 GS VOLU YCC3  'CONS'   7   0.5147  55.2286  65.8939  55.2286  65.8939 -33.5215 167.9574   7
 GS VOLU YCC4  'TRAP'   7   0.5147   0.0000   0.0000   5.3218   3.0571   0.0029 -13.5259   5.3218   3.0571   0.0029 -13.5259   11
 GS VOLU YCC5  'TRAP'   7   0.5147   0.0000   0.0000   5.3215   3.1694   0.0031  13.9985   5.3215   3.1694   0.0031  13.9985   11
 GS VOLU YCC6  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.8109  29.7272   1.5943   5.3863  34.8109  29.7272   1.5943   11
 GS VOLU YCC7  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  34.0806  29.3785  -2.4332   5.5000  34.0806  29.3785  -2.4332   11
 GS VOLU YCC8  'CONS'   7   0.5147  55.5643  66.2293  55.5643  66.2293 -33.2925 168.0124   7
 GS VOLU YCC9  'TRAP'   7   0.5147   0.0000   0.0000   5.3217   3.0534   0.0029 -13.5231   5.3217   3.0534   0.0029 -13.5231   11
 GS VOLU YCD0  'TRAP'   7   0.5147   0.0000   0.0000   5.3214   3.1822   0.0031  14.0661   5.3214   3.1822   0.0031  14.0661   11
 GS VOLU YCD1  'TRAP'   7   0.5147   0.0000   0.0000   5.3863  34.8210  29.7398   1.5814   5.3863  34.8210  29.7398   1.5814   11
 GS VOLU YCD2  'TRAP'   7   0.5147   0.0000   0.0000   5.5000  34.4562  29.7398  -2.5073   5.5000  34.4562  29.7398  -2.5073   11
 GS VOLU YCD3  'CONS'   7   0.5147  55.9000  66.5646  55.9000  66.5646 -33.0668 168.0668   7
 GS VOLU YCD4  'TRAP'   7   0.5147   0.0000   0.0000   5.3216   3.0498   0.0029 -13.5205   5.3216   3.0498   0.0029 -13.5205   11
 GS VOLU YCD5  'TRAP'   7   0.5147   0.0000   0.0000   5.3212   3.1948   0.0031  14.1333   5.3212   3.1948   0.0031  14.1333   11
 GS VOLU YYY5  'BOX '   5 110.0000   2.5000  70.0000   3
 GS VOLU YYY6  'TUBE'   5   8.8900  10.1600  38.0100   3
 GS VOLU YYY7  'TUBE'   5   0.0000  11.0000   1.0000   3

 GS ROTM 108   0.    0.     90.00    0.00   90.00   90.00 ! YYY1, YYY2 cp.1
 GS ROTM 109   0.    0.     90.00  180.00   90.00  270.00 ! YYY1, YYY2 cp.2
 GS ROTM 110  90.  315.00   90.00   45.00    0.00    0.00 ! YY01 cp. in 1
 GS ROTM 112  90.   45.00   90.00  315.00  180.00    0.00 ! YY01 cp. in 2
 GS ROTM 111  90.    0.00   90.00   90.00    0.00    0.00 ! YY02 cp. in 1
 GS ROTM 113  90.    0.00   90.00  270.00  180.00    0.00 ! YY02 cp. in 2
 GS ROTM 114  90.    0.0    90.00  270.00  180.00    0.00 ! YY03 cp. in 2
 GS ROTM 115  90.00 268.5427  90.00 358.5427   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 116  90.00  91.4573  90.00   1.4573 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 117  90.00 267.4341  90.00 357.4341   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 118  90.00  92.5659  90.00   2.5659 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 119  90.00 266.3839  90.00 356.3839   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 120  90.00  93.6161  90.00   3.6161 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 121  90.00 265.3881  90.00 355.3881   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 122  90.00  94.6119  90.00   4.6119 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 123  90.00 264.4431  90.00 354.4431   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 124  90.00  95.5569  90.00   5.5569 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 125  90.00 263.5455  90.00 353.5455   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 126  90.00  96.4545  90.00   6.4545 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 127  90.00 262.6923  90.00 352.6923   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 128  90.00  97.3077  90.00   7.3077 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 129  90.00 261.8806  90.00 351.8806   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 130  90.00  98.1194  90.00   8.1194 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 131  90.00 261.1076  90.00 351.1076   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 132  90.00  98.8924  90.00   8.8924 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 133  90.00 260.3711  90.00 350.3711   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 134  90.00  99.6289  90.00   9.6289 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 135  90.00 260.0285  90.00 350.0284   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 136  90.00  99.9715  90.00   9.9715 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 137  90.00 260.0739  90.00 350.0739   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 138  90.00  99.9261  90.00   9.9261 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 139  90.00 260.1188  90.00 350.1188   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 140  90.00  99.8812  90.00   9.8812 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 141  90.00 260.1631  90.00 350.1631   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 142  90.00  99.8369  90.00   9.8369 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 143  90.00 260.2069  90.00 350.2068   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 144  90.00  99.7931  90.00   9.7931 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 145  90.00 260.2501  90.00 350.2501   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 146  90.00  99.7499  90.00   9.7499 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 147  90.00 260.2928  90.00 350.2928   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 148  90.00  99.7072  90.00   9.7072 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 149  90.00 260.3350  90.00 350.3350   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 150  90.00  99.6650  90.00   9.6650 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 151  90.00 260.3766  90.00 350.3766   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 152  90.00  99.6234  90.00   9.6234 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 153  90.00 260.4179  90.00 350.4178   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 154  90.00  99.5821  90.00   9.5821 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 155  90.00 260.4585  90.00 350.4585   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 156  90.00  99.5415  90.00   9.5415 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 157  90.00 260.4987  90.00 350.4987   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 158  90.00  99.5013  90.00   9.5013 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 159  90.00 260.5385  90.00 350.5385   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 160  90.00  99.4615  90.00   9.4615 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 161  90.00 260.5778  90.00 350.5778   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 162  90.00  99.4222  90.00   9.4222 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 163  90.00 260.6165  90.00 350.6165   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 164  90.00  99.3835  90.00   9.3835 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 165  90.00 260.6550  90.00 350.6550   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 166  90.00  99.3450  90.00   9.3450 180.00   0.0000 ! YY04 cp. in 2
 GS ROTM 167  90.00 260.6929  90.00 350.6929   0.00   0.0000 ! YY04 cp. in 2
 GS ROTM 168  90.00  99.3071  90.00   9.3071 180.00   0.0000 ! YY04 cp. in 2

 GS ROTM  169  90.000  34.955  90.000 124.955   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  170  90.000 325.045  90.000 235.045 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  171  90.000  37.094  90.000 127.094   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  172  90.000 322.906  90.000 232.906 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  173  90.000  39.052  90.000 129.052   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  174  90.000 320.948  90.000 230.948 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  175  90.000  40.856  90.000 130.856   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  176  90.000 319.144  90.000 229.144 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  177  90.000  42.526  90.000 132.526   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  178  90.000 317.474  90.000 227.474 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  179  90.000  44.079  90.000 134.079   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  180  90.000 315.921  90.000 225.921 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  181  90.000  45.529  90.000 135.529   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  182  90.000 314.471  90.000 224.471 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  183  90.000  46.887  90.000 136.887   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  184  90.000 313.113  90.000 223.113 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  185  90.000  48.161  90.000 138.161   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  186  90.000 311.839  90.000 221.839 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  187  90.000  49.362  90.000 139.362   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  188  90.000 310.638  90.000 220.638 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  189  90.000  50.090  90.000 140.090   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  190  90.000 309.910  90.000 219.910 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  191  90.000  50.376  90.000 140.376   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  192  90.000 309.624  90.000 219.624 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  193  90.000  50.658  90.000 140.658   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  194  90.000 309.342  90.000 219.342 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  195  90.000  50.935  90.000 140.935   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  196  90.000 309.065  90.000 219.065 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  197  90.000  51.208  90.000 141.208   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  198  90.000 308.792  90.000 218.792 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  199  90.000  51.476  90.000 141.476   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  200  90.000 308.524  90.000 218.524 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  201  90.000  51.741  90.000 141.741   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  202  90.000 308.259  90.000 218.259 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  203  90.000  52.002  90.000 142.002   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  204  90.000 307.998  90.000 217.998 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  205  90.000  52.258  90.000 142.258   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  206  90.000 307.742  90.000 217.742 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  207  90.000  52.511  90.000 142.511   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  208  90.000 307.489  90.000 217.489 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  209  90.000  52.760  90.000 142.760   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  210  90.000 307.240  90.000 217.240 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  211  90.000  53.006  90.000 143.006   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  212  90.000 306.994  90.000 216.994 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  213  90.000  53.248  90.000 143.248   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  214  90.000 306.752  90.000 216.752 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  215  90.000  53.486  90.000 143.486   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  216  90.000 306.514  90.000 216.514 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  217  90.000  53.722  90.000 143.722   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  218  90.000 306.278  90.000 216.278 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  219  90.000  53.953  90.000 143.953   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  220  90.000 306.047  90.000 216.047 180.000   0.000 ! YY04 cp. in 2
 GS ROTM  221  90.000  54.182  90.000 144.182   0.000   0.000 ! YY04 cp. in 2
 GS ROTM  222  90.000 305.818  90.000 215.818 180.000   0.000 ! YY04 cp. in 2

 GS POS YY01  1   YYY1  -27.1030  -16.3659   -4.3470 110  ONLY
 GS POS YY01  1   YYY2  -27.1030   16.3659   -4.3470 112  ONLY
 GS POS YY02  1   YYY1  -13.1462  -24.3940   -4.3470 111  ONLY
 GS POS YY02  1   YYY2  -13.1462   24.3940   -4.3470 113  ONLY
 GS POS YY03  1   YYY1  -16.9949   -9.1000   -4.3470   0  ONLY
 GS POS YY03  1   YYY2  -16.9949    9.1000   -4.3470 114  ONLY
 GS POS YY04  1   YYY1  -27.4982  -16.1217   -3.3810 110  ONLY
 GS POS YY04  1   YYY2  -27.4982   16.1217   -3.3810 112  ONLY
 GS POS YY05  1   YYY1  -12.6292  -24.3936   -3.3810 111  ONLY
 GS POS YY05  1   YYY2  -12.6292   24.3936   -3.3810 113  ONLY
 GS POS YY06  1   YYY1  -16.9949   -9.1000   -3.3810   0  ONLY
 GS POS YY06  1   YYY2  -16.9949    9.1000   -3.3810 114  ONLY
 GS POS YY07  1   YYY1  -27.8934  -15.8774   -2.4150 110  ONLY
 GS POS YY07  1   YYY2  -27.8934   15.8774   -2.4150 112  ONLY
 GS POS YY08  1   YYY1  -12.1435  -24.3933   -2.4150 111  ONLY
 GS POS YY08  1   YYY2  -12.1435   24.3933   -2.4150 113  ONLY
 GS POS YY09  1   YYY1  -16.9949   -9.1000   -2.4150   0  ONLY
 GS POS YY09  1   YYY2  -16.9949    9.1000   -2.4150 114  ONLY
 GS POS YY10  1   YYY1  -28.2885  -15.6332   -1.4490 110  ONLY
 GS POS YY10  1   YYY2  -28.2885   15.6332   -1.4490 112  ONLY
 GS POS YY11  1   YYY1  -11.6811  -24.3929   -1.4490 111  ONLY
 GS POS YY11  1   YYY2  -11.6811   24.3929   -1.4490 113  ONLY
 GS POS YY12  1   YYY1  -16.9949   -9.1000   -1.4490   0  ONLY
 GS POS YY12  1   YYY2  -16.9949    9.1000   -1.4490 114  ONLY
 GS POS YY13  1   YYY1  -28.6836  -15.3889   -0.4830 110  ONLY
 GS POS YY13  1   YYY2  -28.6836   15.3889   -0.4830 112  ONLY
 GS POS YY14  1   YYY1  -11.2367  -24.3925   -0.4830 111  ONLY
 GS POS YY14  1   YYY2  -11.2367   24.3925   -0.4830 113  ONLY
 GS POS YY15  1   YYY1  -16.9949   -9.1000   -0.4830   0  ONLY
 GS POS YY15  1   YYY2  -16.9949    9.1000   -0.4830 114  ONLY
 GS POS YY16  1   YYY1  -29.0787  -15.1447    0.4830 110  ONLY
 GS POS YY16  1   YYY2  -29.0787   15.1447    0.4830 112  ONLY
 GS POS YY17  1   YYY1  -10.8066  -24.3922    0.4830 111  ONLY
 GS POS YY17  1   YYY2  -10.8066   24.3922    0.4830 113  ONLY
 GS POS YY18  1   YYY1  -16.9949   -9.1000    0.4830   0  ONLY
 GS POS YY18  1   YYY2  -16.9949    9.1000    0.4830 114  ONLY
 GS POS YY19  1   YYY1  -29.4738  -14.9005    1.4490 110  ONLY
 GS POS YY19  1   YYY2  -29.4738   14.9005    1.4490 112  ONLY
 GS POS YY20  1   YYY1  -10.3882  -24.3918    1.4490 111  ONLY
 GS POS YY20  1   YYY2  -10.3882   24.3918    1.4490 113  ONLY
 GS POS YY21  1   YYY1  -16.9949   -9.1000    1.4490   0  ONLY
 GS POS YY21  1   YYY2  -16.9949    9.1000    1.4490 114  ONLY
 GS POS YY22  1   YYY1  -29.8689  -14.6563    2.4150 110  ONLY
 GS POS YY22  1   YYY2  -29.8689   14.6563    2.4150 112  ONLY
 GS POS YY23  1   YYY1   -9.9793  -24.3915    2.4150 111  ONLY
 GS POS YY23  1   YYY2   -9.9793   24.3915    2.4150 113  ONLY
 GS POS YY24  1   YYY1  -16.9949   -9.1000    2.4150   0  ONLY
 GS POS YY24  1   YYY2  -16.9949    9.1000    2.4150 114  ONLY
 GS POS YY25  1   YYY1  -30.2640  -14.4122    3.3810 110  ONLY
 GS POS YY25  1   YYY2  -30.2640   14.4122    3.3810 112  ONLY
 GS POS YY26  1   YYY1   -9.5786  -24.3911    3.3810 111  ONLY
 GS POS YY26  1   YYY2   -9.5786   24.3911    3.3810 113  ONLY
 GS POS YY27  1   YYY1  -16.9949   -9.1000    3.3810   0  ONLY
 GS POS YY27  1   YYY2  -16.9949    9.1000    3.3810 114  ONLY
 GS POS YY28  1   YYY1  -30.6591  -14.1680    4.3470 110  ONLY
 GS POS YY28  1   YYY2  -30.6591   14.1680    4.3470 112  ONLY
 GS POS YY29  1   YYY1   -9.1847  -24.3908    4.3470 111  ONLY
 GS POS YY29  1   YYY2   -9.1847   24.3908    4.3470 113  ONLY
 GS POS YY30  1   YYY1  -16.9949   -9.1000    4.3470   0  ONLY
 GS POS YY30  1   YYY2  -16.9949    9.1000    4.3470 114  ONLY
 GS POS YY31  1   YYY3  -37.1112  -16.7739   -8.2353 110  ONLY
 GS POS YY31  1   YYY4  -37.1112   16.7739   -8.2353 112  ONLY
 GS POS YY32  1   YYY3  -14.8538  -27.2405   -8.2353 111  ONLY
 GS POS YY32  1   YYY4  -14.8538   27.2405   -8.2353 113  ONLY
 GS POS YY33  1   YYY3  -23.0520  -11.9500   -8.2353   0  ONLY
 GS POS YY33  1   YYY4  -23.0520   11.9500   -8.2353 114  ONLY
 GS POS YY34  1   YYY3  -37.2766  -16.7693   -7.2059 110  ONLY
 GS POS YY34  1   YYY4  -37.2766   16.7693   -7.2059 112  ONLY
 GS POS YY35  1   YYY3  -14.8291  -27.2401   -7.2059 111  ONLY
 GS POS YY35  1   YYY4  -14.8291   27.2401   -7.2059 113  ONLY
 GS POS YY36  1   YYY3  -23.0520  -11.9500   -7.2059   0  ONLY
 GS POS YY36  1   YYY4  -23.0520   11.9500   -7.2059 114  ONLY
 GS POS YY37  1   YYY3  -37.4420  -16.7647   -6.1765 110  ONLY
 GS POS YY37  1   YYY4  -37.4420   16.7647   -6.1765 112  ONLY
 GS POS YY38  1   YYY3  -14.8048  -27.2398   -6.1765 111  ONLY
 GS POS YY38  1   YYY4  -14.8048   27.2398   -6.1765 113  ONLY
 GS POS YY39  1   YYY3  -23.0520  -11.9500   -6.1765   0  ONLY
 GS POS YY39  1   YYY4  -23.0520   11.9500   -6.1765 114  ONLY
 GS POS YY40  1   YYY3  -37.6073  -16.7601   -5.1471 110  ONLY
 GS POS YY40  1   YYY4  -37.6073   16.7601   -5.1471 112  ONLY
 GS POS YY41  1   YYY3  -14.7809  -27.2395   -5.1471 111  ONLY
 GS POS YY41  1   YYY4  -14.7809   27.2395   -5.1471 113  ONLY
 GS POS YY42  1   YYY3  -23.0520  -11.9500   -5.1471   0  ONLY
 GS POS YY42  1   YYY4  -23.0520   11.9500   -5.1471 114  ONLY
 GS POS YY43  1   YYY3  -37.7727  -16.7556   -4.1176 110  ONLY
 GS POS YY43  1   YYY4  -37.7727   16.7556   -4.1176 112  ONLY
 GS POS YY44  1   YYY3  -14.7573  -27.2391   -4.1176 111  ONLY
 GS POS YY44  1   YYY4  -14.7573   27.2391   -4.1176 113  ONLY
 GS POS YY45  1   YYY3  -23.0520  -11.9500   -4.1176   0  ONLY
 GS POS YY45  1   YYY4  -23.0520   11.9500   -4.1176 114  ONLY
 GS POS YY46  1   YYY3  -37.9381  -16.7510   -3.0882 110  ONLY
 GS POS YY46  1   YYY4  -37.9381   16.7510   -3.0882 112  ONLY
 GS POS YY47  1   YYY3  -14.7341  -27.2388   -3.0882 111  ONLY
 GS POS YY47  1   YYY4  -14.7341   27.2388   -3.0882 113  ONLY
 GS POS YY48  1   YYY3  -23.0520  -11.9500   -3.0882   0  ONLY
 GS POS YY48  1   YYY4  -23.0520   11.9500   -3.0882 114  ONLY
 GS POS YY49  1   YYY3  -38.1034  -16.7464   -2.0588 110  ONLY
 GS POS YY49  1   YYY4  -38.1034   16.7464   -2.0588 112  ONLY
 GS POS YY50  1   YYY3  -14.7112  -27.2385   -2.0588 111  ONLY
 GS POS YY50  1   YYY4  -14.7112   27.2385   -2.0588 113  ONLY
 GS POS YY51  1   YYY3  -23.0520  -11.9500   -2.0588   0  ONLY
 GS POS YY51  1   YYY4  -23.0520   11.9500   -2.0588 114  ONLY
 GS POS YY52  1   YYY3  -38.2688  -16.7419   -1.0294 110  ONLY
 GS POS YY52  1   YYY4  -38.2688   16.7419   -1.0294 112  ONLY
 GS POS YY53  1   YYY3  -14.6887  -27.2382   -1.0294 111  ONLY
 GS POS YY53  1   YYY4  -14.6887   27.2382   -1.0294 113  ONLY
 GS POS YY54  1   YYY3  -23.0520  -11.9500   -1.0294   0  ONLY
 GS POS YY54  1   YYY4  -23.0520   11.9500   -1.0294 114  ONLY
 GS POS YY55  1   YYY3  -38.4342  -16.7373    0.0000 110  ONLY
 GS POS YY55  1   YYY4  -38.4342   16.7373    0.0000 112  ONLY
 GS POS YY56  1   YYY3  -14.6664  -27.2379    0.0000 111  ONLY
 GS POS YY56  1   YYY4  -14.6664   27.2379    0.0000 113  ONLY
 GS POS YY57  1   YYY3  -23.0520  -11.9500    0.0000   0  ONLY
 GS POS YY57  1   YYY4  -23.0520   11.9500    0.0000 114  ONLY
 GS POS YY58  1   YYY3  -38.5995  -16.7328    1.0294 110  ONLY
 GS POS YY58  1   YYY4  -38.5995   16.7328    1.0294 112  ONLY
 GS POS YY59  1   YYY3  -14.6445  -27.2376    1.0294 111  ONLY
 GS POS YY59  1   YYY4  -14.6445   27.2376    1.0294 113  ONLY
 GS POS YY60  1   YYY3  -23.0520  -11.9500    1.0294   0  ONLY
 GS POS YY60  1   YYY4  -23.0520   11.9500    1.0294 114  ONLY
 GS POS YY61  1   YYY3  -38.7649  -16.7282    2.0588 110  ONLY
 GS POS YY61  1   YYY4  -38.7649   16.7282    2.0588 112  ONLY
 GS POS YY62  1   YYY3  -14.6228  -27.2373    2.0588 111  ONLY
 GS POS YY62  1   YYY4  -14.6228   27.2373    2.0588 113  ONLY
 GS POS YY63  1   YYY3  -23.0520  -11.9500    2.0588   0  ONLY
 GS POS YY63  1   YYY4  -23.0520   11.9500    2.0588 114  ONLY
 GS POS YY64  1   YYY3  -38.9302  -16.7237    3.0882 110  ONLY
 GS POS YY64  1   YYY4  -38.9302   16.7237    3.0882 112  ONLY
 GS POS YY65  1   YYY3  -14.6015  -27.2370    3.0882 111  ONLY
 GS POS YY65  1   YYY4  -14.6015   27.2370    3.0882 113  ONLY
 GS POS YY66  1   YYY3  -23.0520  -11.9500    3.0882   0  ONLY
 GS POS YY66  1   YYY4  -23.0520   11.9500    3.0882 114  ONLY
 GS POS YY67  1   YYY3  -39.0956  -16.7191    4.1177 110  ONLY
 GS POS YY67  1   YYY4  -39.0956   16.7191    4.1177 112  ONLY
 GS POS YY68  1   YYY3  -14.5804  -27.2367    4.1177 111  ONLY
 GS POS YY68  1   YYY4  -14.5804   27.2367    4.1177 113  ONLY
 GS POS YY69  1   YYY3  -23.0520  -11.9500    4.1177   0  ONLY
 GS POS YY69  1   YYY4  -23.0520   11.9500    4.1177 114  ONLY
 GS POS YY70  1   YYY3  -39.2609  -16.7146    5.1471 110  ONLY
 GS POS YY70  1   YYY4  -39.2609   16.7146    5.1471 112  ONLY
 GS POS YY71  1   YYY3  -14.5596  -27.2364    5.1471 111  ONLY
 GS POS YY71  1   YYY4  -14.5596   27.2364    5.1471 113  ONLY
 GS POS YY72  1   YYY3  -23.0520  -11.9500    5.1471   0  ONLY
 GS POS YY72  1   YYY4  -23.0520   11.9500    5.1471 114  ONLY
 GS POS YY73  1   YYY3  -39.4263  -16.7100    6.1765 110  ONLY
 GS POS YY73  1   YYY4  -39.4263   16.7100    6.1765 112  ONLY
 GS POS YY74  1   YYY3  -14.5391  -27.2362    6.1765 111  ONLY
 GS POS YY74  1   YYY4  -14.5391   27.2362    6.1765 113  ONLY
 GS POS YY75  1   YYY3  -23.0520  -11.9500    6.1765   0  ONLY
 GS POS YY75  1   YYY4  -23.0520   11.9500    6.1765 114  ONLY
 GS POS YY76  1   YYY3  -39.5917  -16.7055    7.2059 110  ONLY
 GS POS YY76  1   YYY4  -39.5917   16.7055    7.2059 112  ONLY
 GS POS YY77  1   YYY3  -14.5188  -27.2359    7.2059 111  ONLY
 GS POS YY77  1   YYY4  -14.5188   27.2359    7.2059 113  ONLY
 GS POS YY78  1   YYY3  -23.0520  -11.9500    7.2059   0  ONLY
 GS POS YY78  1   YYY4  -23.0520   11.9500    7.2059 114  ONLY
 GS POS YY79  1   YYY3  -39.7570  -16.7009    8.2353 110  ONLY
 GS POS YY79  1   YYY4  -39.7570   16.7009    8.2353 112  ONLY
 GS POS YY80  1   YYY3  -14.4988  -27.2356    8.2353 111  ONLY
 GS POS YY80  1   YYY4  -14.4988   27.2356    8.2353 113  ONLY
 GS POS YY81  1   YYY3  -23.0520  -11.9500    8.2353   0  ONLY
 GS POS YY81  1   YYY4  -23.0520   11.9500    8.2353 114  ONLY

 GS POS YC01  1   YYY1  -42.2971  -26.7016   -3.3020 110  ONLY
 GS POS YC01  1   YYY2  -42.2971   26.7016   -3.3020 112  ONLY
 GS POS YC02  1   YYY1   -8.0424  -45.1000   -3.3020 111  ONLY
 GS POS YC02  1   YYY2   -8.0424   45.1000   -3.3020 113  ONLY
 GS POS YC03  1   YYY1  -16.9949   -9.1000   -3.3020   0  ONLY
 GS POS YC03  1   YYY2  -16.9949    9.1000   -3.3020 114  ONLY
 GS POS YC04  1   YYY1  -60.6584   -6.7372   -3.3020 115  ONLY
 GS POS YC04  1   YYY2  -60.6584    6.7372   -3.3020 116  ONLY
 GS POS YC05  1   YYY1    9.0069  -44.2693   -3.3020 169  ONLY
 GS POS YC05  1   YYY2    9.0069   44.2693   -3.3020 170  ONLY
 GS POS YC06  1   YYY1  -43.0155  -26.2506   -2.4460 110  ONLY
 GS POS YC06  1   YYY2  -43.0155   26.2506   -2.4460 112  ONLY
 GS POS YC07  1   YYY1   -7.1523  -45.1000   -2.4460 111  ONLY
 GS POS YC07  1   YYY2   -7.1523   45.1000   -2.4460 113  ONLY
 GS POS YC08  1   YYY1  -16.9949   -9.1000   -2.4460   0  ONLY
 GS POS YC08  1   YYY2  -16.9949    9.1000   -2.4460 114  ONLY
 GS POS YC09  1   YYY1  -61.7963   -5.8097   -2.4460 117  ONLY
 GS POS YC09  1   YYY2  -61.7963    5.8097   -2.4460 118  ONLY
 GS POS YC10  1   YYY1   11.0485  -44.2059   -2.4460 171  ONLY
 GS POS YC10  1   YYY2   11.0485   44.2059   -2.4460 172  ONLY
 GS POS YC11  1   YYY1  -43.7339  -25.7996   -1.5900 110  ONLY
 GS POS YC11  1   YYY2  -43.7339   25.7996   -1.5900 112  ONLY
 GS POS YC12  1   YYY1   -6.2971  -45.1000   -1.5900 111  ONLY
 GS POS YC12  1   YYY2   -6.2971   45.1000   -1.5900 113  ONLY
 GS POS YC13  1   YYY1  -16.9949   -9.1000   -1.5900   0  ONLY
 GS POS YC13  1   YYY2  -16.9949    9.1000   -1.5900 114  ONLY
 GS POS YC14  1   YYY1  -62.9351   -4.8851   -1.5900 119  ONLY
 GS POS YC14  1   YYY2  -62.9351    4.8851   -1.5900 120  ONLY
 GS POS YC15  1   YYY1   13.0190  -44.1467   -1.5900 173  ONLY
 GS POS YC15  1   YYY2   13.0190   44.1467   -1.5900 174  ONLY
 GS POS YC16  1   YYY1  -44.4523  -25.3486   -0.7340 110  ONLY
 GS POS YC16  1   YYY2  -44.4523   25.3486   -0.7340 112  ONLY
 GS POS YC17  1   YYY1   -5.4700  -45.1000   -0.7340 111  ONLY
 GS POS YC17  1   YYY2   -5.4700   45.1000   -0.7340 113  ONLY
 GS POS YC18  1   YYY1  -16.9949   -9.1000   -0.7340   0  ONLY
 GS POS YC18  1   YYY2  -16.9949    9.1000   -0.7340 114  ONLY
 GS POS YC19  1   YYY1  -64.0747   -3.9630   -0.7340 121  ONLY
 GS POS YC19  1   YYY2  -64.0747    3.9630   -0.7340 122  ONLY
 GS POS YC20  1   YYY1   14.9317  -44.0912   -0.7340 175  ONLY
 GS POS YC20  1   YYY2   14.9317   44.0912   -0.7340 176  ONLY
 GS POS YC21  1   YYY1  -45.1707  -24.8977    0.1220 110  ONLY
 GS POS YC21  1   YYY2  -45.1707   24.8977    0.1220 112  ONLY
 GS POS YC22  1   YYY1   -4.6662  -45.1000    0.1220 111  ONLY
 GS POS YC22  1   YYY2   -4.6662   45.1000    0.1220 113  ONLY
 GS POS YC23  1   YYY1  -16.9949   -9.1000    0.1220   0  ONLY
 GS POS YC23  1   YYY2  -16.9949    9.1000    0.1220 114  ONLY
 GS POS YC24  1   YYY1  -65.2153   -3.0433    0.1220 123  ONLY
 GS POS YC24  1   YYY2  -65.2153    3.0433    0.1220 124  ONLY
 GS POS YC25  1   YYY1   16.7969  -44.0393    0.1220 177  ONLY
 GS POS YC25  1   YYY2   16.7969   44.0393    0.1220 178  ONLY
 GS POS YC26  1   YYY1  -45.8891  -24.4467    0.9780 110  ONLY
 GS POS YC26  1   YYY2  -45.8891   24.4467    0.9780 112  ONLY
 GS POS YC27  1   YYY1   -3.8817  -45.1000    0.9780 111  ONLY
 GS POS YC27  1   YYY2   -3.8817   45.1000    0.9780 113  ONLY
 GS POS YC28  1   YYY1  -16.9949   -9.1000    0.9780   0  ONLY
 GS POS YC28  1   YYY2  -16.9949    9.1000    0.9780 114  ONLY
 GS POS YC29  1   YYY1  -66.3568   -2.1257    0.9780 125  ONLY
 GS POS YC29  1   YYY2  -66.3568    2.1257    0.9780 126  ONLY
 GS POS YC30  1   YYY1   18.6223  -43.9906    0.9780 179  ONLY
 GS POS YC30  1   YYY2   18.6223   43.9906    0.9780 180  ONLY
 GS POS YC31  1   YYY1  -46.6075  -23.9957    1.8340 110  ONLY
 GS POS YC31  1   YYY2  -46.6075   23.9957    1.8340 112  ONLY
 GS POS YC32  1   YYY1   -3.1137  -45.1000    1.8340 111  ONLY
 GS POS YC32  1   YYY2   -3.1137   45.1000    1.8340 113  ONLY
 GS POS YC33  1   YYY1  -16.9949   -9.1000    1.8340   0  ONLY
 GS POS YC33  1   YYY2  -16.9949    9.1000    1.8340 114  ONLY
 GS POS YC34  1   YYY1  -67.4993   -1.2100    1.8340 127  ONLY
 GS POS YC34  1   YYY2  -67.4993    1.2100    1.8340 128  ONLY
 GS POS YC35  1   YYY1   20.4139  -43.9451    1.8340 181  ONLY
 GS POS YC35  1   YYY2   20.4139   43.9451    1.8340 182  ONLY
 GS POS YC36  1   YYY1  -47.3259  -23.5447    2.6900 110  ONLY
 GS POS YC36  1   YYY2  -47.3259   23.5447    2.6900 112  ONLY
 GS POS YC37  1   YYY1   -2.3598  -45.1000    2.6900 111  ONLY
 GS POS YC37  1   YYY2   -2.3598   45.1000    2.6900 113  ONLY
 GS POS YC38  1   YYY1  -16.9949   -9.1000    2.6900   0  ONLY
 GS POS YC38  1   YYY2  -16.9949    9.1000    2.6900 114  ONLY
 GS POS YC39  1   YYY1  -68.6427   -0.2959    2.6900 129  ONLY
 GS POS YC39  1   YYY2  -68.6427    0.2959    2.6900 130  ONLY
 GS POS YC40  1   YYY1   22.1766  -43.9024    2.6900 183  ONLY
 GS POS YC40  1   YYY2   22.1766   43.9024    2.6900 184  ONLY
 GS POS YC41  1   YYY1  -48.0443  -23.0938    3.5460 110  ONLY
 GS POS YC41  1   YYY2  -48.0443   23.0938    3.5460 112  ONLY
 GS POS YC42  1   YYY1   -1.6180  -45.1000    3.5460 111  ONLY
 GS POS YC42  1   YYY2   -1.6180   45.1000    3.5460 113  ONLY
 GS POS YC43  1   YYY1  -16.9949   -9.1000    3.5460   0  ONLY
 GS POS YC43  1   YYY2  -16.9949    9.1000    3.5460 114  ONLY
 GS POS YC44  1   YYY1  -69.7872    0.6166    3.5460 131  ONLY
 GS POS YC44  1   YYY2  -69.7872   -0.6166    3.5460 132  ONLY
 GS POS YC45  1   YYY1   23.9144  -43.8623    3.5460 185  ONLY
 GS POS YC45  1   YYY2   23.9144   43.8623    3.5460 186  ONLY
 GS POS YC46  1   YYY1  -48.7627  -22.6428    4.4020 110  ONLY
 GS POS YC46  1   YYY2  -48.7627   22.6428    4.4020 112  ONLY
 GS POS YC47  1   YYY1   -0.8870  -45.1000    4.4020 111  ONLY
 GS POS YC47  1   YYY2   -0.8870   45.1000    4.4020 113  ONLY
 GS POS YC48  1   YYY1  -16.9949   -9.1000    4.4020   0  ONLY
 GS POS YC48  1   YYY2  -16.9949    9.1000    4.4020 114  ONLY
 GS POS YC49  1   YYY1  -70.9325    1.5278    4.4020 133  ONLY
 GS POS YC49  1   YYY2  -70.9325   -1.5278    4.4020 134  ONLY
 GS POS YC50  1   YYY1   25.6304  -43.8247    4.4020 187  ONLY
 GS POS YC50  1   YYY2   25.6304   43.8247    4.4020 188  ONLY
 GS POS YC51  1   YYY3  -55.3541  -25.2530   -8.2353 110  ONLY
 GS POS YC51  1   YYY4  -55.3541   25.2530   -8.2353 112  ONLY
 GS POS YC52  1   YYY3   -6.5363  -47.9500   -8.2353 111  ONLY
 GS POS YC52  1   YYY4   -6.5363   47.9500   -8.2353 113  ONLY
 GS POS YC53  1   YYY3  -23.0520  -11.9500   -8.2353   0  ONLY
 GS POS YC53  1   YYY4  -23.0520   11.9500   -8.2353 114  ONLY
 GS POS YC54  1   YYY3  -77.7837   -1.0216   -8.2353 135  ONLY
 GS POS YC54  1   YYY4  -77.7837    1.0216   -8.2353 136  ONLY
 GS POS YC55  1   YYY3   20.5401  -46.8112   -8.2353 189  ONLY
 GS POS YC55  1   YYY4   20.5401   46.8112   -8.2353 190  ONLY
 GS POS YC56  1   YYY3  -55.6837  -25.2450   -7.2059 110  ONLY
 GS POS YC56  1   YYY4  -55.6837   25.2450   -7.2059 112  ONLY
 GS POS YC57  1   YYY3   -6.4786  -47.9500   -7.2059 111  ONLY
 GS POS YC57  1   YYY4   -6.4786   47.9500   -7.2059 113  ONLY
 GS POS YC58  1   YYY3  -23.0520  -11.9500   -7.2059   0  ONLY
 GS POS YC58  1   YYY4  -23.0520   11.9500   -7.2059 114  ONLY
 GS POS YC59  1   YYY3  -78.1231   -1.0077   -7.2059 137  ONLY
 GS POS YC59  1   YYY4  -78.1231    1.0077   -7.2059 138  ONLY
 GS POS YC60  1   YYY3   20.9763  -46.8007   -7.2059 191  ONLY
 GS POS YC60  1   YYY4   20.9763   46.8007   -7.2059 192  ONLY
 GS POS YC61  1   YYY3  -56.0134  -25.2369   -6.1765 110  ONLY
 GS POS YC61  1   YYY4  -56.0134   25.2369   -6.1765 112  ONLY
 GS POS YC62  1   YYY3   -6.4217  -47.9500   -6.1765 111  ONLY
 GS POS YC62  1   YYY4   -6.4217   47.9500   -6.1765 113  ONLY
 GS POS YC63  1   YYY3  -23.0520  -11.9500   -6.1765   0  ONLY
 GS POS YC63  1   YYY4  -23.0520   11.9500   -6.1765 114  ONLY
 GS POS YC64  1   YYY3  -78.4624   -0.9936   -6.1765 139  ONLY
 GS POS YC64  1   YYY4  -78.4624    0.9936   -6.1765 140  ONLY
 GS POS YC65  1   YYY3   21.4107  -46.7903   -6.1765 193  ONLY
 GS POS YC65  1   YYY4   21.4107   46.7903   -6.1765 194  ONLY
 GS POS YC66  1   YYY3  -56.3431  -25.2289   -5.1471 110  ONLY
 GS POS YC66  1   YYY4  -56.3431   25.2289   -5.1471 112  ONLY
 GS POS YC67  1   YYY3   -6.3657  -47.9500   -5.1471 111  ONLY
 GS POS YC67  1   YYY4   -6.3657   47.9500   -5.1471 113  ONLY
 GS POS YC68  1   YYY3  -23.0520  -11.9500   -5.1471   0  ONLY
 GS POS YC68  1   YYY4  -23.0520   11.9500   -5.1471 114  ONLY
 GS POS YC69  1   YYY3  -78.8017   -0.9796   -5.1471 141  ONLY
 GS POS YC69  1   YYY4  -78.8017    0.9796   -5.1471 142  ONLY
 GS POS YC70  1   YYY3   21.8434  -46.7800   -5.1471 195  ONLY
 GS POS YC70  1   YYY4   21.8434   46.7800   -5.1471 196  ONLY
 GS POS YC71  1   YYY3  -56.6727  -25.2208   -4.1176 110  ONLY
 GS POS YC71  1   YYY4  -56.6727   25.2208   -4.1176 112  ONLY
 GS POS YC72  1   YYY3   -6.3105  -47.9500   -4.1176 111  ONLY
 GS POS YC72  1   YYY4   -6.3105   47.9500   -4.1176 113  ONLY
 GS POS YC73  1   YYY3  -23.0520  -11.9500   -4.1176   0  ONLY
 GS POS YC73  1   YYY4  -23.0520   11.9500   -4.1176 114  ONLY
 GS POS YC74  1   YYY3  -79.1409   -0.9655   -4.1176 143  ONLY
 GS POS YC74  1   YYY4  -79.1409    0.9655   -4.1176 144  ONLY
 GS POS YC75  1   YYY3   22.2744  -46.7698   -4.1176 197  ONLY
 GS POS YC75  1   YYY4   22.2744   46.7698   -4.1176 198  ONLY
 GS POS YC76  1   YYY3  -57.0024  -25.2128   -3.0882 110  ONLY
 GS POS YC76  1   YYY4  -57.0024   25.2128   -3.0882 112  ONLY
 GS POS YC77  1   YYY3   -6.2561  -47.9500   -3.0882 111  ONLY
 GS POS YC77  1   YYY4   -6.2561   47.9500   -3.0882 113  ONLY
 GS POS YC78  1   YYY3  -23.0520  -11.9500   -3.0882   0  ONLY
 GS POS YC78  1   YYY4  -23.0520   11.9500   -3.0882 114  ONLY
 GS POS YC79  1   YYY3  -79.4802   -0.9514   -3.0882 145  ONLY
 GS POS YC79  1   YYY4  -79.4802    0.9514   -3.0882 146  ONLY
 GS POS YC80  1   YYY3   22.7037  -46.7598   -3.0882 199  ONLY
 GS POS YC80  1   YYY4   22.7037   46.7598   -3.0882 200  ONLY
 GS POS YC81  1   YYY3  -57.3320  -25.2048   -2.0588 110  ONLY
 GS POS YC81  1   YYY4  -57.3320   25.2048   -2.0588 112  ONLY
 GS POS YC82  1   YYY3   -6.2025  -47.9500   -2.0588 111  ONLY
 GS POS YC82  1   YYY4   -6.2025   47.9500   -2.0588 113  ONLY
 GS POS YC83  1   YYY3  -23.0520  -11.9500   -2.0588   0  ONLY
 GS POS YC83  1   YYY4  -23.0520   11.9500   -2.0588 114  ONLY
 GS POS YC84  1   YYY3  -79.8194   -0.9372   -2.0588 147  ONLY
 GS POS YC84  1   YYY4  -79.8194    0.9372   -2.0588 148  ONLY
 GS POS YC85  1   YYY3   23.1314  -46.7499   -2.0588 201  ONLY
 GS POS YC85  1   YYY4   23.1314   46.7499   -2.0588 202  ONLY
 GS POS YC86  1   YYY3  -57.6617  -25.1967   -1.0294 110  ONLY
 GS POS YC86  1   YYY4  -57.6617   25.1967   -1.0294 112  ONLY
 GS POS YC87  1   YYY3   -6.1496  -47.9500   -1.0294 111  ONLY
 GS POS YC87  1   YYY4   -6.1496   47.9500   -1.0294 113  ONLY
 GS POS YC88  1   YYY3  -23.0520  -11.9500   -1.0294   0  ONLY
 GS POS YC88  1   YYY4  -23.0520   11.9500   -1.0294 114  ONLY
 GS POS YC89  1   YYY3  -80.1586   -0.9230   -1.0294 149  ONLY
 GS POS YC89  1   YYY4  -80.1586    0.9230   -1.0294 150  ONLY
 GS POS YC90  1   YYY3   23.5576  -46.7401   -1.0294 203  ONLY
 GS POS YC90  1   YYY4   23.5576   46.7401   -1.0294 204  ONLY
 GS POS YC91  1   YYY3  -57.9913  -25.1887    0.0000 110  ONLY
 GS POS YC91  1   YYY4  -57.9913   25.1887    0.0000 112  ONLY
 GS POS YC92  1   YYY3   -6.0975  -47.9500    0.0000 111  ONLY
 GS POS YC92  1   YYY4   -6.0975   47.9500    0.0000 113  ONLY
 GS POS YC93  1   YYY3  -23.0520  -11.9500    0.0000   0  ONLY
 GS POS YC93  1   YYY4  -23.0520   11.9500    0.0000 114  ONLY
 GS POS YC94  1   YYY3  -80.4978   -0.9088    0.0000 151  ONLY
 GS POS YC94  1   YYY4  -80.4978    0.9088    0.0000 152  ONLY
 GS POS YC95  1   YYY3   23.9822  -46.7304    0.0000 205  ONLY
 GS POS YC95  1   YYY4   23.9822   46.7304    0.0000 206  ONLY
 GS POS YC96  1   YYY3  -58.3210  -25.1806    1.0294 110  ONLY
 GS POS YC96  1   YYY4  -58.3210   25.1806    1.0294 112  ONLY
 GS POS YC97  1   YYY3   -6.0461  -47.9500    1.0294 111  ONLY
 GS POS YC97  1   YYY4   -6.0461   47.9500    1.0294 113  ONLY
 GS POS YC98  1   YYY3  -23.0520  -11.9500    1.0294   0  ONLY
 GS POS YC98  1   YYY4  -23.0520   11.9500    1.0294 114  ONLY
 GS POS YC99  1   YYY3  -80.8369   -0.8946    1.0294 153  ONLY
 GS POS YC99  1   YYY4  -80.8369    0.8946    1.0294 154  ONLY
 GS POS YCA0  1   YYY3   24.4054  -46.7208    1.0294 207  ONLY
 GS POS YCA0  1   YYY4   24.4054   46.7208    1.0294 208  ONLY
 GS POS YCA1  1   YYY3  -58.6506  -25.1726    2.0588 110  ONLY
 GS POS YCA1  1   YYY4  -58.6506   25.1726    2.0588 112  ONLY
 GS POS YCA2  1   YYY3   -5.9954  -47.9500    2.0588 111  ONLY
 GS POS YCA2  1   YYY4   -5.9954   47.9500    2.0588 113  ONLY
 GS POS YCA3  1   YYY3  -23.0520  -11.9500    2.0588   0  ONLY
 GS POS YCA3  1   YYY4  -23.0520   11.9500    2.0588 114  ONLY
 GS POS YCA4  1   YYY3  -81.1760   -0.8803    2.0588 155  ONLY
 GS POS YCA4  1   YYY4  -81.1760    0.8803    2.0588 156  ONLY
 GS POS YCA5  1   YYY3   24.8272  -46.7113    2.0588 209  ONLY
 GS POS YCA5  1   YYY4   24.8272   46.7113    2.0588 210  ONLY
 GS POS YCA6  1   YYY3  -58.9803  -25.1645    3.0882 110  ONLY
 GS POS YCA6  1   YYY4  -58.9803   25.1645    3.0882 112  ONLY
 GS POS YCA7  1   YYY3   -5.9454  -47.9500    3.0882 111  ONLY
 GS POS YCA7  1   YYY4   -5.9454   47.9500    3.0882 113  ONLY
 GS POS YCA8  1   YYY3  -23.0520  -11.9500    3.0882   0  ONLY
 GS POS YCA8  1   YYY4  -23.0520   11.9500    3.0882 114  ONLY
 GS POS YCA9  1   YYY3  -81.5151   -0.8660    3.0882 157  ONLY
 GS POS YCA9  1   YYY4  -81.5151    0.8660    3.0882 158  ONLY
 GS POS YCB0  1   YYY3   25.2476  -46.7020    3.0882 211  ONLY
 GS POS YCB0  1   YYY4   25.2476   46.7020    3.0882 212  ONLY
 GS POS YCB1  1   YYY3  -59.3099  -25.1565    4.1177 110  ONLY
 GS POS YCB1  1   YYY4  -59.3099   25.1565    4.1177 112  ONLY
 GS POS YCB2  1   YYY3   -5.8960  -47.9500    4.1177 111  ONLY
 GS POS YCB2  1   YYY4   -5.8960   47.9500    4.1177 113  ONLY
 GS POS YCB3  1   YYY3  -23.0520  -11.9500    4.1177   0  ONLY
 GS POS YCB3  1   YYY4  -23.0520   11.9500    4.1177 114  ONLY
 GS POS YCB4  1   YYY3  -81.8542   -0.8516    4.1176 159  ONLY
 GS POS YCB4  1   YYY4  -81.8542    0.8516    4.1176 160  ONLY
 GS POS YCB5  1   YYY3   25.6666  -46.6928    4.1176 213  ONLY
 GS POS YCB5  1   YYY4   25.6666   46.6928    4.1176 214  ONLY
 GS POS YCB6  1   YYY3  -59.6396  -25.1484    5.1471 110  ONLY
 GS POS YCB6  1   YYY4  -59.6396   25.1484    5.1471 112  ONLY
 GS POS YCB7  1   YYY3   -5.8473  -47.9500    5.1471 111  ONLY
 GS POS YCB7  1   YYY4   -5.8473   47.9500    5.1471 113  ONLY
 GS POS YCB8  1   YYY3  -23.0520  -11.9500    5.1471   0  ONLY
 GS POS YCB8  1   YYY4  -23.0520   11.9500    5.1471 114  ONLY
 GS POS YCB9  1   YYY3  -82.1933   -0.8373    5.1471 161  ONLY
 GS POS YCB9  1   YYY4  -82.1933    0.8373    5.1471 162  ONLY
 GS POS YCC0  1   YYY3   26.0843  -46.6836    5.1471 215  ONLY
 GS POS YCC0  1   YYY4   26.0843   46.6836    5.1471 216  ONLY
 GS POS YCC1  1   YYY3  -59.9692  -25.1404    6.1765 110  ONLY
 GS POS YCC1  1   YYY4  -59.9692   25.1404    6.1765 112  ONLY
 GS POS YCC2  1   YYY3   -5.7992  -47.9500    6.1765 111  ONLY
 GS POS YCC2  1   YYY4   -5.7992   47.9500    6.1765 113  ONLY
 GS POS YCC3  1   YYY3  -23.0520  -11.9500    6.1765   0  ONLY
 GS POS YCC3  1   YYY4  -23.0520   11.9500    6.1765 114  ONLY
 GS POS YCC4  1   YYY3  -82.5323   -0.8229    6.1765 163  ONLY
 GS POS YCC4  1   YYY4  -82.5323    0.8229    6.1765 164  ONLY
 GS POS YCC5  1   YYY3   26.5007  -46.6746    6.1765 217  ONLY
 GS POS YCC5  1   YYY4   26.5007   46.6746    6.1765 218  ONLY
 GS POS YCC6  1   YYY3  -60.2989  -25.1323    7.2059 110  ONLY
 GS POS YCC6  1   YYY4  -60.2989   25.1323    7.2059 112  ONLY
 GS POS YCC7  1   YYY3   -5.7517  -47.9500    7.2059 111  ONLY
 GS POS YCC7  1   YYY4   -5.7517   47.9500    7.2059 113  ONLY
 GS POS YCC8  1   YYY3  -23.0520  -11.9500    7.2059   0  ONLY
 GS POS YCC8  1   YYY4  -23.0520   11.9500    7.2059 114  ONLY
 GS POS YCC9  1   YYY3  -82.8714   -0.8085    7.2059 165  ONLY
 GS POS YCC9  1   YYY4  -82.8714    0.8085    7.2059 166  ONLY
 GS POS YCD0  1   YYY3   26.9158  -46.6656    7.2059 219  ONLY
 GS POS YCD0  1   YYY4   26.9158   46.6656    7.2059 220  ONLY
 GS POS YCD1  1   YYY3  -60.6285  -25.1243    8.2353 110  ONLY
 GS POS YCD1  1   YYY4  -60.6285   25.1243    8.2353 112  ONLY
 GS POS YCD2  1   YYY3   -5.7048  -47.9500    8.2353 111  ONLY
 GS POS YCD2  1   YYY4   -5.7048   47.9500    8.2353 113  ONLY
 GS POS YCD3  1   YYY3  -23.0520  -11.9500    8.2353   0  ONLY
 GS POS YCD3  1   YYY4  -23.0520   11.9500    8.2353 114  ONLY
 GS POS YCD4  1   YYY3  -83.2104   -0.7940    8.2353 167  ONLY
 GS POS YCD4  1   YYY4  -83.2104    0.7940    8.2353 168  ONLY
 GS POS YCD5  1   YYY3   27.3298  -46.6568    8.2353 221  ONLY
 GS POS YCD5  1   YYY4   27.3298   46.6568    8.2353 222  ONLY

 GS POS YYY1  1   OUTS   52.1000   12.6800   59.9949 108  ONLY
 GS POS YYY1  2   OUTS  -52.1000  -12.6800   59.9949 109  ONLY
 GS POS YYY2  1   OUTS  -52.1000   12.6800   59.9949 108  ONLY
 GS POS YYY2  2   OUTS   52.1000  -12.6800   59.9949 109  ONLY
 GS POS YYY3  1   OUTS   54.9500   26.2600   66.0520 108  ONLY
 GS POS YYY3  2   OUTS  -54.9500  -26.2600   66.0520 109  ONLY
 GS POS YYY4  1   OUTS  -54.9500   26.2600   66.0520 108  ONLY
 GS POS YYY4  2   OUTS   54.9500  -26.2600   66.0520 109  ONLY

 GS POS YYY5  1   OUTS    0.0000  37.5100  43.0000   0  ONLY
 GS POS YYY5  2   OUTS    0.0000 -37.5100  43.0000   0  ONLY
 GS POS YYY6  1   OUTS  191.0000   0.0000 -16.0000 108  ONLY
 GS POS YYY6  2   OUTS -191.0000   0.0000 -16.0000 108  ONLY
 GS POS YYY6  3   OUTS  191.0000   0.0000 102.0000 108  ONLY
 GS POS YYY6  4   OUTS -191.0000   0.0000 102.0000 108  ONLY
 GS POS YYY7  1   OUTS  191.0000  39.0100 -16.0000 108  ONLY
 GS POS YYY7  2   OUTS -191.0000  39.0100 -16.0000 108  ONLY
 GS POS YYY7  3   OUTS  191.0000  39.0100 102.0000 108  ONLY
 GS POS YYY7  4   OUTS -191.0000  39.0100 102.0000 108  ONLY
 GS POS YYY7  5   OUTS  191.0000 -39.0100 -16.0000 108  ONLY
 GS POS YYY7  6   OUTS -191.0000 -39.0100 -16.0000 108  ONLY
 GS POS YYY7  7   OUTS  191.0000 -39.0100 102.0000 108  ONLY
 GS POS YYY7  8   OUTS -191.0000 -39.0100 102.0000 108  ONLY
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 ! 7)TOF
 !
 !
 ! TOF: volu. defs
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU TPA1  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPA2  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPA3  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPA4  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TPB1  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPB2  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPB3  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPB4  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TPC1  'BOX '  10  24.0000  10.0000   0.4000    3
 GS VOLU TPC2  'BOX '  10  24.0000  10.0000   0.4000    3
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU TNA1  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNA2  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNA3  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNA4  'BOX '  10  15.0000  10.0000   0.5000    3
 GS VOLU TNB1  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNB2  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNB3  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNB4  'BOX '  10  12.0000  10.0000   0.4000    3
 GS VOLU TNC1  'BOX '  10  24.0000  10.0000   0.4000    3
 GS VOLU TNC2  'BOX '  10  24.0000  10.0000   0.4000    3
 !
 ! TOF: rot. matrices
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 400  175.00    0.00   90.00   90.00   85.00    0.00   ! TPA1
 GS ROTM 401  165.00    0.00   90.00   90.00   75.00    0.00   ! TPA2
 GS ROTM 402  155.00    0.00   90.00   90.00   65.00    0.00   ! TPA3
 GS ROTM 403  145.00    0.00   90.00   90.00   55.00    0.00   ! TPA4
 GS ROTM 404  137.50    0.00   90.00   90.00   47.50    0.00   ! TPB1
 GS ROTM 405  132.50    0.00   90.00   90.00   42.50    0.00   ! TPB2
 GS ROTM 406  127.50    0.00   90.00   90.00   37.50    0.00   ! TPB3
 GS ROTM 407  122.50    0.00   90.00   90.00   32.50    0.00   ! TPB4
 GS ROTM 408  117.50    0.00   90.00   90.00   27.50    0.00   ! TPC1
 GS ROTM 409  112.50    0.00   90.00   90.00   22.50    0.00   ! TPC2
 GS ROTM 910  175.00  180.00   90.00   90.00   85.00  180.00   ! TNA1
 GS ROTM 911  165.00  180.00   90.00   90.00   75.00  180.00   ! TNA2
 GS ROTM 912  155.00  180.00   90.00   90.00   65.00  180.00   ! TNA3
 GS ROTM 913  145.00  180.00   90.00   90.00   55.00  180.00   ! TNA4
 GS ROTM 914  137.50  180.00   90.00   90.00   47.50  180.00   ! TNB1
 GS ROTM 915  132.50  180.00   90.00   90.00   42.50  180.00   ! TNB2
 GS ROTM 916  127.50  180.00   90.00   90.00   37.50  180.00   ! TNB3
 GS ROTM 917  122.50  180.00   90.00   90.00   32.50  180.00   ! TNB4
 GS ROTM 918  117.50  180.00   90.00   90.00   27.50  180.00   ! TNC1
 GS ROTM 919  112.50  180.00   90.00   90.00   22.50  180.00   ! TNC2
 !
 ! TOF: positions
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS TPA1  1   OUTS  170.798    0.0000   14.943 400  ONLY
 GS POS TPA2  1   OUTS  165.609    0.0000   44.375 401  ONLY
 GS POS TPA3  1   OUTS  155.387    0.0000   72.458 402  ONLY
 GS POS TPA4  1   OUTS  140.444    0.0000   98.340 403  ONLY
 GS POS TPB1  1   OUTS  202.637    0.0000  185.683 404  ONLY
 GS POS TPB2  1   OUTS  185.683    0.0000  202.637 405  ONLY
 GS POS TPB3  1   OUTS  167.315    0.0000  218.049 406  ONLY
 GS POS TPB4  1   OUTS  147.674    0.0000  231.802 407  ONLY
 GS POS TPC1  1   OUTS  253.819    0.0000  487.581 408  ONLY
 GS POS TPC2  1   OUTS  210.357    0.0000  507.847 409  ONLY
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS TNA1  1   OUTS -170.798    0.0000   14.943 910  ONLY
 GS POS TNA2  1   OUTS -165.609    0.0000   44.375 911  ONLY
 GS POS TNA3  1   OUTS -155.387    0.0000   72.458 912  ONLY
 GS POS TNA4  1   OUTS -140.444    0.0000   98.340 913  ONLY
 GS POS TNB1  1   OUTS -202.637    0.0000  185.683 914  ONLY
 GS POS TNB2  1   OUTS -185.683    0.0000  202.637 915  ONLY
 GS POS TNB3  1   OUTS -167.315    0.0000  218.049 916  ONLY
 GS POS TNB4  1   OUTS -147.674    0.0000  231.802 917  ONLY
 GS POS TNC1  1   OUTS -253.819    0.0000  487.581 918  ONLY
 GS POS TNC2  1   OUTS -210.357    0.0000  507.847 919  ONLY
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !  8) MULTIPLICITY and VERTEX
 !
 !  multiplicity: vol. defs of support structures
 !  for rings
 !       name  shape mat. r_i      r_o     lz/2  # par
 GS VOLU RRRR  'TUBE'   61 12.500   16.400    0.250    3 ! ring sup.
 GS VOLU RRTT  'TUBE'   6   1.2      1.6     16.5      3 ! ring sup. alu. tube
 GS VOLU RRTR  'TUBE'   6   0.0     10.0      3.0      3 ! ring sup. alu. tube
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU RRTB  'BOX '   6   9.5      1.5      2.0      3 ! ring sup. alu. box
 GS VOLU RRAL  'BOX '   6   4.52     0.1      1.6      3 ! ring sup. alu. plate
 GS VOLU RRCE  'BOX '  13   4.52     0.03     1.09     3 ! ring sup. alu. plate
 !  for octagon
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR1  'BOX '   6   0.750    2.950    0.100    3 ! rib's part
 GS VOLU ROR2  'BOX '   6   4.400    0.900    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR3  'TRAP'   6   1.4060  26.5651   0.0000   0.1000   0.5500   0.5500   0.0000   0.1000   1.9560   1.9560   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR4  'BOX '   6   0.550    1.988    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR5  'TRAP'   3   0.550    0.0000   0.0000   0.1000   1.9880   1.9880   0.0000   0.1000   2.4440   2.4440   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR6  'BOX '   3   0.200    1.800    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR7  'TRAP'   6   1.1810  26.5651   0.0000   0.1000   0.5500   0.5500   0.0000   0.1000   1.7310   1.7310   0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROR8  'BOX '   6   0.807    0.425    0.100    3 ! rib's part
 GS VOLU ROR9  'BOX '   3   0.250    4.356    0.100    3 ! rib's part
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU ROR0  'TRAP'   6   0.900    0.000    0.0000   0.1000   1.988    1.988    0.0000   0.1000   2.7335   2.7335   0.0000   11
 GS VOLU RORA  'TRAP'   6   0.900    0.000    0.0000   0.1000   1.988    1.988    0.0000   0.1000   2.7335   2.7335   0.0000   11
 GS VOLU RORB  'TRAP'   3   0.350   16.325  180.0000   0.1000   0.495    0.495    0.0000   0.1000   0.0      0.0      0.0000   11
 GS VOLU RORC  'TRAP'   6   0.550    0.0000   0.0000   0.1000   1.9880   1.9880   0.0000   0.1000   2.4440   2.4440   0.0000   11
 !
 GS VOLU RORD  'TRAP'   6  11.500   35.655    0.0000   0.1000  13.500   13.500    0.0000   0.1000  30.0000  30.000    0.0000   11
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU RORE  'BOX '   3  24.000     .100    1.250    3 ! rib's part
 !       name  shape mat.    r_i      r_o     lz/2  # par
 GS VOLU RORF  'TUBE'   3   0.000    6.500    0.100     3 ! ring sup. plane
 GS VOLU RORG  'TUBE'   3   0.000    4.500    0.100     3 ! ring sup. plane
 GS VOLU RORH  'TUBE'   3   0.000    3.200    0.100     3 ! ring sup. plane
 GS VOLU RORI  'TUBE'   6   0.000    0.300    7.075     3 ! ring sup. plane
 !
 !       name  shape mat.    r_i      r_o     lz/2  # par
 GS VOLU ROT1  'TUBE'   6   0.000    0.400   57.000     3 ! ring sup. plane
 GS VOLU ROT2  'TUBE'  12   0.000    0.300   57.000     3 ! ring sup. plane
 GS VOLU ROT3  'TUBE'   6   0.000    0.400   35.000     3 ! ring sup. plane
 GS VOLU ROT4  'TUBE'  12   0.000    0.300   35.000     3 ! ring sup. plane
 GS VOLU ROT5  'TUBE'   3   0.000    0.300   12.665     3 ! ring sup. plane
 GS VOLU ROT6  'TUBE'   6   0.000    0.400    1.79      3 ! ring sup. plane
 GS VOLU ROT7  'TUBE'  12   0.000    0.300    1.79      3 ! ring sup. plane
 GS VOLU ROT8  'TUBE'   6   0.000    0.400    5.40      3 ! ring sup. plane
 GS VOLU ROT9  'TUBE'  12   0.000    0.300    5.40      3 ! ring sup. plane
 GS VOLU ROT0  'TUBE'   6   0.000    0.400   35.00      3 ! ring sup. plane
 GS VOLU ROTA  'TUBE'  12   0.000    0.300   35.00      3 ! ring sup. plane
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU ROB1  'BOX '   6   1.000    0.400   12.665     3 ! cooling box
 !
 ! cables
 GS VOLU ROCB  'BOX '  14   1.100   29.985    0.0275   3 ! 10-14
 GS VOLU ROCA  'BOX '  14   1.100   25.73     0.0275   3 ! 10-14
 GS VOLU ROC0  'BOX '  14   1.100   21.475    0.0275   3 ! 10-14
 GS VOLU ROC1  'BOX '  14   1.100   17.220    0.0275   3 ! 10-14
 GS VOLU ROC2  'BOX '  14   1.100   12.965    0.0275   3 ! 11-14
 GS VOLU ROC3  'BOX '  14   1.100    8.710    0.0275   3 ! 12-14
 GS VOLU ROC4  'BOX '  14   1.100    4.455    0.0275   3 ! 13-14
 GS VOLU ROC5  'BOX '  14   1.100   29.338    0.5225   3 ! 14-OUT
 GS VOLU ROCC  'BOX '  14  14.050    1.100    1.045    3 ! 14-OUT
 GS VOLU ROC6  'BOX '  14   1.100    0.0275  30.84125  3 ! O-VERT-1
 GS VOLU ROC7  'BOX '  14   1.100    0.0275  27.7575   3 ! O-VERT-1
 GS VOLU ROC8  'BOX '  14   1.100    0.0275  24.67375  3 ! O-VERT-1
 GS VOLU ROC9  'BOX '  14   1.100    0.0275  21.59     3 ! O-VERT-1
 !
 GS VOLU ROCD  'BOX '  14  30.000    1.100    0.220    3 ! 14-OUT
 !
 ! ceramics and its aluminium support
 GS VOLU ROCE  'BOX '  13   1.090   0.0300    12.335       3
 GS VOLU ROA1  'BOX '   6   1.090   0.1000    12.335       3
 ! electonics boxes and table
 GS VOLU EKAS  'BOX '  41  10.0    13.000     20.000       3
 GS VOLU EPLA  'BOX '   6  31.5     0.250     27.50        3
 GS VOLU CARM  'BOX '   6   1.34    1.34      32.75        3



 !
 !  Multiplicity: vol. defs of silicon planes
 !  rings
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MNC1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNC8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MNB1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNB8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MNA1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MNA8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 ! Cont. of rings
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MPA1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPA8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MPB1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPB8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !       name  shape  mat.  lz/2      th       phi      h1       lb1      lh1      th1      h2       lb2      lh2      th2   # par
 GS VOLU MPC1  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC2  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC3  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC4  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC5  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC6  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC7  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 GS VOLU MPC8  'TRAP'   4   3.223    0.000    0.0000   0.0150   1.850    1.850    0.0000   0.0150   4.520    4.520    0.0000   11
 !
 !  Multiplicity: vol. defs of silicon octagon -
 !                detectors are 8 slabs of silicons
 !                described in letter from Russell Betts Fri, 11 Jun 1993
 !
 !       name  shape   mat. lx/2     ly/2     lz/2    # par
 GS VOLU MOA1  'BOX '   4   1.755   16.970    0.0150   3
 GS VOLU MOA2  'BOX '   4   1.755   21.225    0.0150   3
 GS VOLU MOB1  'BOX '   4   1.755   55.265    0.0150   3
 GS VOLU MOC1  'BOX '   4   1.755   21.225    0.0150   3
 GS VOLU MOC2  'BOX '   4   1.755   21.225    0.0150   3
 GS VOLU MOD1  'BOX '   4   1.755   55.265    0.0150   3
 GS VOLU MOE1  'BOX '   4   1.755   16.970    0.0150   3
 GS VOLU MOE2  'BOX '   4   1.755   21.225    0.0150   3
 GS VOLU MOF1  'BOX '   4   1.755   55.265    0.0150   3
 GS VOLU MOG1  'BOX '   4   1.755   21.225    0.0150   3
 GS VOLU MOG2  'BOX '   4   1.755   21.225    0.0150   3
 GS VOLU MOH1  'BOX '   4   1.755   55.265    0.0150   3
 !
 !  vertex: vol. defs of silicon planes
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 GS VOLU VPA1  'BOX '   4   2.3275  12.335    0.0150   3
 GS VOLU VPB1  'BOX '   4   4.655   12.335    0.0150   3
 GS VOLU VNA1  'BOX '   4   2.3275  12.335    0.0150   3
 GS VOLU VNB1  'BOX '   4   4.655   12.335    0.0150   3
 !
 !  Multiplicity: vol. defs of  electronics for octagon
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 !
 !  Vertex: vol. defs of electronics for vertex
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 !
 ! Rdiator: vol. defs of radiator
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
 !GS VOLU RADI  'BOX '   4   1.8      0.25    12.715    3
 !
 !  Multiplicity: rot. defs of ring support structures
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 500   90.      0.    180.      0.     90.     90.  !  for each RRTT
 GS ROTM 501   90.    270.     90.      0.      0.      0.  !  rotm for RPUX no 2
 GS ROTM 502   90.     90.     90.    180.      0.      0.  !  rotm for RPUX no 4
 !
 !  Multiplicity: rot. defs of octagon planes.
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 503   90.0    90.0     0.      0.     90.0     0.0    ! MOA1
 GS ROTM 504   90.0   135.0     0.      0.     90.0    45.0    ! MOB1
 GS ROTM 505   90.0   180.0     0.      0.     90.0    90.0    ! MOC1
 GS ROTM 506   90.0   225.0     0.      0.     90.0   135.0    ! MOD1
 GS ROTM 507   90.0   270.0     0.      0.     90.0   180.0    ! MOE1
 GS ROTM 508   90.0   315.0     0.      0.     90.0   225.0    ! MOF1
 GS ROTM 509   90.0     0.0     0.      0.     90.0   270.0    ! MOG1
 GS ROTM 510   90.0    45.0     0.      0.     90.0   315.0    ! MOH1
 !
 !  Multiplicity: rot. defs of octagon support parts.
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 511   90.0     0.0   180.      0.     90.0    90.0    ! ROR3 cp.1
 GS ROTM 512   90.0    90.0     0.      0.     90.0   180.0    ! ROR5 cp.1
 GS ROTM 513   90.0   180.0     0.      0.     90.0    90.0    ! ROR3 cp.2
 GS ROTM 514   90.0    90.0     0.    180.     90.0     0.0    ! ROR5 cp.2
 GS ROTM 515   90.0     0.0     0.      0.     90.0   270.0    ! ROR3 cp.3
 GS ROTM 516   90.0   180.0     0.    180.     90.0   270.0    ! ROR3 cp.4
 GS ROTM 517   90.0     0.0   180.      0.     90.0    90.0    ! ROR0 cp.1
 GS ROTM 518   90.0     0.0   180.      0.     90.0    90.0    ! ROR0 cp.1
 GS ROTM 519   90.0   180.0     0.      0.     90.0   270.0    ! ROR0 cp.2
 GS ROTM 520   90.     45.0   180.      0.     90.0   135.0    ! RORA cp.1
 GS ROTM 521   90.    135.0     0.      0.     90.0    45.0    ! RORA cp.2
 GS ROTM 522   90.    225.0   180.      0.     90.0   315.0    ! RORA cp.3
 GS ROTM 523   90.    315.      0.      0.     90.0   225.0    ! RORA cp.4
 GS ROTM 524   45.0     0.0    90.     90.     45.0   180.0    ! RORB cp.1
 !
 !  Multiplicity: rot. defs of rings parts.
 !
 !        no    th_x   phi_x    th_y   phi_y    th_z    phi_z volum rot.
 GS ROTM 525   90.0   292.5   180.0     0.      90.0    22.5    ! MXX1
 GS ROTM 526   90.0   337.5   180.0     0.      90.0    67.5    ! MXX2
 GS ROTM 527   90.0    22.5   180.0     0.      90.0   112.5    ! MXX3
 GS ROTM 528   90.0    67.5   180.0     0.      90.0   157.5    ! MXX4
 GS ROTM 529   90.0   112.5   180.0     0.      90.0   202.5    ! MXX5
 GS ROTM 530   90.0   157.5   180.0     0.      90.0   247.5    ! MXX6
 GS ROTM 531   90.0   202.5   180.0     0.      90.0   292.5    ! MXX7
 GS ROTM 532   90.0   247.5   180.0     0.      90.0   337.5    ! MXX8
 !
 GS ROTM 533   90.0     0.0     0.0     0.0     90.0   270.0    ! ROR-FGH
 GS ROTM 534   90.0    90.0    10.408   0.0    100.408   0.0    ! ROC5
 GS ROTM 535   90.0    90.0    10.408 180.0     79.592   0.0    ! ROC5
 GS ROTM 536   90.0    45.0   180.0     0.0     90.0   135.0    ! ROT6
 GS ROTM 537   90.0   135.0   180.0     0.0     90.0   225.0    ! ROT6
 GS ROTM 538   90.0    90.0   180.0     0.0     90.0   180.0    ! ROT8
 GS ROTM 539   90.0    90.0    90.0   180.0      0.0     0.0    ! ROC6-9
 GS ROTM 540    0.0     0.0    90.0     0.0     90.0    90.0    ! ROCD
 GS ROTM 541   45.0     0.0    90.0   270.0    135.0     0.0    ! ROC0
 GS ROTM 542   45.0   180.0    90.0    90.0    135.0   180.0    ! ROC0
 !
 !  Multiplicity: pos. of rings and their support parts.
 !
 !  RING  A NEGATIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MNA1   1  OUTS    7.297     3.022  -112.800  525  ONLY
 GS POS MNA2   1  OUTS    3.022     7.297  -112.800  526  ONLY
 GS POS MNA3   1  OUTS   -3.022     7.297  -112.800  527  ONLY
 GS POS MNA4   1  OUTS   -7.297     3.022  -112.800  528  ONLY
 GS POS MNA5   1  OUTS   -7.297    -3.022  -112.800  529  ONLY
 GS POS MNA6   1  OUTS   -3.022    -7.297  -112.800  530  ONLY
 GS POS MNA7   1  OUTS    3.022    -7.297  -112.800  531  ONLY
 GS POS MNA8   1  OUTS    7.297    -3.022  -112.800  532  ONLY
 !
 GS POS RRRR   1  OUTS    0.         0.     -113.325    0  ONLY
 GS POS ROCD   1  OUTS   46.4        0.     -113.325    0  ONLY
 ! alum. plate
 GS POS RRAL   1  OUTS   11.706     4.849  -112.975  525  ONLY
 GS POS RRAL   2  OUTS    4.849    11.706  -112.975  526  ONLY
 GS POS RRAL   3  OUTS   -4.849    11.706  -112.975  527  ONLY
 GS POS RRAL   4  OUTS  -11.706     4.849  -112.975  528  ONLY
 GS POS RRAL   5  OUTS  -11.706    -4.849  -112.975  529  ONLY
 GS POS RRAL   6  OUTS   -4.849   -11.706  -112.975  530  ONLY
 GS POS RRAL   7  OUTS    4.849   -11.706  -112.975  531  ONLY
 GS POS RRAL   8  OUTS   11.706    -4.849  -112.975  532  ONLY
 ! ceramics
 GS POS RRCE   1  OUTS   11.235     4.654  -112.845  525  ONLY
 GS POS RRCE   2  OUTS    4.654    11.235  -112.845  526  ONLY
 GS POS RRCE   3  OUTS   -4.654    11.235  -112.845  527  ONLY
 GS POS RRCE   4  OUTS  -11.235     4.654  -112.845  528  ONLY
 GS POS RRCE   5  OUTS  -11.235    -4.654  -112.845  529  ONLY
 GS POS RRCE   6  OUTS   -4.654   -11.235  -112.845  530  ONLY
 GS POS RRCE   7  OUTS    4.654   -11.235  -112.845  531  ONLY
 GS POS RRCE   8  OUTS   11.235    -4.654  -112.845  532  ONLY
 ! leg
 GS POS RRTT   1  OUTS    0.      -30.5    -113.325  500  MANY
 GS POS RRTB   1  OUTS    0.      -48.5    -113.325    0  ONLY
 GS POS RRTR   1  OUTS    0.      -53.0    -113.325  500  ONLY
 !  RING  B NEGATIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MNB1   1  OUTS    7.297     3.022  -234.900  525  ONLY
 GS POS MNB2   1  OUTS    3.022     7.297  -234.900  526  ONLY
 GS POS MNB3   1  OUTS   -3.022     7.297  -234.900  527  ONLY
 GS POS MNB4   1  OUTS   -7.297     3.022  -234.900  528  ONLY
 GS POS MNB5   1  OUTS   -7.297    -3.022  -234.900  529  ONLY
 GS POS MNB6   1  OUTS   -3.022    -7.297  -234.900  530  ONLY
 GS POS MNB7   1  OUTS    3.022    -7.297  -234.900  531  ONLY
 GS POS MNB8   1  OUTS    7.297    -3.022  -234.900  532  ONLY
 !
 GS POS RRRR   2  OUTS    0.        0.     -235.425    0  ONLY
 GS POS ROCD   2  OUTS   46.4       0.     -235.425    0  ONLY
 ! alum. plate
 GS POS RRAL   9  OUTS   11.706     4.849  -235.075  525  ONLY
 GS POS RRAL  10  OUTS    4.849    11.706  -235.075  526  ONLY
 GS POS RRAL  11  OUTS   -4.849    11.706  -235.075  527  ONLY
 GS POS RRAL  12  OUTS  -11.706     4.849  -235.075  528  ONLY
 GS POS RRAL  13  OUTS  -11.706    -4.849  -235.075  529  ONLY
 GS POS RRAL  14  OUTS   -4.849   -11.706  -235.075  530  ONLY
 GS POS RRAL  15  OUTS    4.849   -11.706  -235.075  531  ONLY
 GS POS RRAL  16  OUTS   11.706    -4.849  -235.075  532  ONLY
 ! ceramics
 GS POS RRCE   9  OUTS   11.235     4.654  -234.945  525  ONLY
 GS POS RRCE  10  OUTS    4.654    11.235  -234.945  526  ONLY
 GS POS RRCE  11  OUTS   -4.654    11.235  -234.945  527  ONLY
 GS POS RRCE  12  OUTS  -11.235     4.654  -234.945  528  ONLY
 GS POS RRCE  13  OUTS  -11.235    -4.654  -234.945  529  ONLY
 GS POS RRCE  14  OUTS   -4.654   -11.235  -234.945  530  ONLY
 GS POS RRCE  15  OUTS    4.654   -11.235  -234.945  531  ONLY
 GS POS RRCE  16  OUTS   11.235    -4.654  -234.945  532  ONLY
 ! leg
 GS POS RRTT   2  OUTS    0.      -30.5    -235.425  500  MANY
 GS POS RRTB   2  OUTS    0.      -48.5    -235.425    0  ONLY
 GS POS RRTR   2  OUTS    0.      -53.0    -235.425  500  ONLY
 !  RING  C NEGATIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MNC1   1  OUTS    7.297     3.022  -504.800  525  ONLY
 GS POS MNC2   1  OUTS    3.022     7.297  -504.800  526  ONLY
 GS POS MNC3   1  OUTS   -3.022     7.297  -504.800  527  ONLY
 GS POS MNC4   1  OUTS   -7.297     3.022  -504.800  528  ONLY
 GS POS MNC5   1  OUTS   -7.297    -3.022  -504.800  529  ONLY
 GS POS MNC6   1  OUTS   -3.022    -7.297  -504.800  530  ONLY
 GS POS MNC7   1  OUTS    3.022    -7.297  -504.800  531  ONLY
 GS POS MNC8   1  OUTS    7.297    -3.022  -504.800  532  ONLY
 !
 GS POS RRRR   3  OUTS    0.        0.     -505.325    0  ONLY
 GS POS ROCD   3  OUTS   46.4       0.     -505.325    0  ONLY
 ! alum. plate
 GS POS RRAL  17  OUTS   11.706     4.849  -504.975  525  ONLY
 GS POS RRAL  18  OUTS    4.849    11.706  -504.975  526  ONLY
 GS POS RRAL  19  OUTS   -4.849    11.706  -504.975  527  ONLY
 GS POS RRAL  20  OUTS  -11.706     4.849  -504.975  528  ONLY
 GS POS RRAL  21  OUTS  -11.706    -4.849  -504.975  529  ONLY
 GS POS RRAL  22  OUTS   -4.849   -11.706  -504.975  530  ONLY
 GS POS RRAL  23  OUTS    4.849   -11.706  -504.975  531  ONLY
 GS POS RRAL  24  OUTS   11.706    -4.849  -504.975  532  ONLY
 ! ceramics
 GS POS RRCE  17  OUTS   11.235     4.654  -504.845  525  ONLY
 GS POS RRCE  18  OUTS    4.654    11.235  -504.845  526  ONLY
 GS POS RRCE  19  OUTS   -4.654    11.235  -504.845  527  ONLY
 GS POS RRCE  20  OUTS  -11.235     4.654  -504.845  528  ONLY
 GS POS RRCE  21  OUTS  -11.235    -4.654  -504.845  529  ONLY
 GS POS RRCE  22  OUTS   -4.654   -11.235  -504.845  530  ONLY
 GS POS RRCE  23  OUTS    4.654   -11.235  -504.845  531  ONLY
 GS POS RRCE  24  OUTS   11.235    -4.654  -504.845  532  ONLY
 ! leg
 GS POS RRTT   3  OUTS    0.      -30.5    -505.325  500  MANY
 GS POS RRTB   3  OUTS    0.      -48.5    -505.325    0  ONLY
 GS POS RRTR   3  OUTS    0.      -53.0    -505.325  500  ONLY
 !  RING  A POSITIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MPA1   1  OUTS    7.297     3.022   112.800  525  ONLY
 GS POS MPA2   1  OUTS    3.022     7.297   112.800  526  ONLY
 GS POS MPA3   1  OUTS   -3.022     7.297   112.800  527  ONLY
 GS POS MPA4   1  OUTS   -7.297     3.022   112.800  528  ONLY
 GS POS MPA5   1  OUTS   -7.297    -3.022   112.800  529  ONLY
 GS POS MPA6   1  OUTS   -3.022    -7.297   112.800  530  ONLY
 GS POS MPA7   1  OUTS    3.022    -7.297   112.800  531  ONLY
 GS POS MPA8   1  OUTS    7.297    -3.022   112.800  532  ONLY
 !
 GS POS RRRR   4  OUTS    0.        0.      113.325    0  ONLY
 ! alum. plate
 GS POS RRAL  25  OUTS   11.706     4.849   112.975  525  ONLY
 GS POS RRAL  26  OUTS    4.849    11.706   112.975  526  ONLY
 GS POS RRAL  27  OUTS   -4.849    11.706   112.975  527  ONLY
 GS POS RRAL  28  OUTS  -11.706     4.849   112.975  528  ONLY
 GS POS RRAL  29  OUTS  -11.706    -4.849   112.975  529  ONLY
 GS POS RRAL  30  OUTS   -4.849   -11.706   112.975  530  ONLY
 GS POS RRAL  31  OUTS    4.849   -11.706   112.975  531  ONLY
 GS POS RRAL  32  OUTS   11.706    -4.849   112.975  532  ONLY
 ! ceramics
 GS POS RRCE  25  OUTS   11.235     4.654   112.845  525  ONLY
 GS POS RRCE  26  OUTS    4.654    11.235   112.845  526  ONLY
 GS POS RRCE  27  OUTS   -4.654    11.235   112.845  527  ONLY
 GS POS RRCE  28  OUTS  -11.235     4.654   112.845  528  ONLY
 GS POS RRCE  29  OUTS  -11.235    -4.654   112.845  529  ONLY
 GS POS RRCE  30  OUTS   -4.654   -11.235   112.845  530  ONLY
 GS POS RRCE  31  OUTS    4.654   -11.235   112.845  531  ONLY
 GS POS RRCE  32  OUTS   11.235    -4.654   112.845  532  ONLY
 ! leg
 GS POS RRTT   4  OUTS    0.      -30.5     113.325  500  MANY
 GS POS RRTB   4  OUTS    0.      -48.5     113.325    0  ONLY
 GS POS RRTR   4  OUTS    0.      -53.0     113.325  500  ONLY
 !  RING  B POSITIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MPB1   1  OUTS    7.297     3.022   234.900  525  ONLY
 GS POS MPB2   1  OUTS    3.022     7.297   234.900  526  ONLY
 GS POS MPB3   1  OUTS   -3.022     7.297   234.900  527  ONLY
 GS POS MPB4   1  OUTS   -7.297     3.022   234.900  528  ONLY
 GS POS MPB5   1  OUTS   -7.297    -3.022   234.900  529  ONLY
 GS POS MPB6   1  OUTS   -3.022    -7.297   234.900  530  ONLY
 GS POS MPB7   1  OUTS    3.022    -7.297   234.900  531  ONLY
 GS POS MPB8   1  OUTS    7.297    -3.022   234.900  532  ONLY
 !
 GS POS RRRR   5  OUTS    0.        0.      235.425    0  ONLY
 GS POS ROCD   5  OUTS   46.4       0.      235.425    0  ONLY
 ! alum. plate
 GS POS RRAL  33  OUTS   11.706     4.849   235.075  525  ONLY
 GS POS RRAL  34  OUTS    4.849    11.706   235.075  526  ONLY
 GS POS RRAL  35  OUTS   -4.849    11.706   235.075  527  ONLY
 GS POS RRAL  36  OUTS  -11.706     4.849   235.075  528  ONLY
 GS POS RRAL  37  OUTS  -11.706    -4.849   235.075  529  ONLY
 GS POS RRAL  38  OUTS   -4.849   -11.706   235.075  530  ONLY
 GS POS RRAL  39  OUTS    4.849   -11.706   235.075  531  ONLY
 GS POS RRAL  40  OUTS   11.706    -4.849   235.075  532  ONLY
 ! ceramics
 GS POS RRCE  33  OUTS   11.235     4.654   234.945  525  ONLY
 GS POS RRCE  34  OUTS    4.654    11.235   234.945  526  ONLY
 GS POS RRCE  35  OUTS   -4.654    11.235   234.945  527  ONLY
 GS POS RRCE  36  OUTS  -11.235     4.654   234.945  528  ONLY
 GS POS RRCE  37  OUTS  -11.235    -4.654   234.945  529  ONLY
 GS POS RRCE  38  OUTS   -4.654   -11.235   234.945  530  ONLY
 GS POS RRCE  39  OUTS    4.654   -11.235   234.945  531  ONLY
 GS POS RRCE  40  OUTS   11.235    -4.654   234.945  532  ONLY
 ! leg
 GS POS RRTT   5  OUTS    0.      -30.5     235.425  500  MANY
 GS POS RRTB   5  OUTS    0.      -48.5     235.425    0  ONLY
 GS POS RRTR   5  OUTS    0.      -53.0     235.425  500  ONLY
 !  RING  C POSITIVE SIDE:
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MPC1   1  OUTS    7.297     3.022   504.800  525  ONLY
 GS POS MPC2   1  OUTS    3.022     7.297   504.800  526  ONLY
 GS POS MPC3   1  OUTS   -3.022     7.297   504.800  527  ONLY
 GS POS MPC4   1  OUTS   -7.297     3.022   504.800  528  ONLY
 GS POS MPC5   1  OUTS   -7.297    -3.022   504.800  529  ONLY
 GS POS MPC6   1  OUTS   -3.022    -7.297   504.800  530  ONLY
 GS POS MPC7   1  OUTS    3.022    -7.297   504.800  531  ONLY
 GS POS MPC8   1  OUTS    7.297    -3.022   504.800  532  ONLY
 !
 GS POS RRRR   6  OUTS    0.        0.      505.325    0  ONLY
 GS POS ROCD   6  OUTS   46.4       0.      505.325    0  ONLY
 ! alum. plate
 GS POS RRAL  41  OUTS   11.706     4.849   504.975  525  ONLY
 GS POS RRAL  42  OUTS    4.849    11.706   504.975  526  ONLY
 GS POS RRAL  43  OUTS   -4.849    11.706   504.975  527  ONLY
 GS POS RRAL  44  OUTS  -11.706     4.849   504.975  528  ONLY
 GS POS RRAL  45  OUTS  -11.706    -4.849   504.975  529  ONLY
 GS POS RRAL  46  OUTS   -4.849   -11.706   504.975  530  ONLY
 GS POS RRAL  47  OUTS    4.849   -11.706   504.975  531  ONLY
 GS POS RRAL  48  OUTS   11.706    -4.849   504.975  532  ONLY
 ! ceramics
 GS POS RRCE  41  OUTS   11.235     4.654   504.845  525  ONLY
 GS POS RRCE  42  OUTS    4.654    11.235   504.845  526  ONLY
 GS POS RRCE  43  OUTS   -4.654    11.235   504.845  527  ONLY
 GS POS RRCE  44  OUTS  -11.235     4.654   504.845  528  ONLY
 GS POS RRCE  45  OUTS  -11.235    -4.654   504.845  529  ONLY
 GS POS RRCE  46  OUTS   -4.654   -11.235   504.845  530  ONLY
 GS POS RRCE  47  OUTS    4.654   -11.235   504.845  531  ONLY
 GS POS RRCE  48  OUTS   11.235    -4.654   504.845  532  ONLY
 ! leg
 GS POS RRTT   6  OUTS    0.      -30.5     505.325  500  MANY
 GS POS RRTB   6  OUTS    0.      -48.7     505.325    0  ONLY
 GS POS RRTR   6  OUTS    0.      -53.0     505.325  500  ONLY
 !
 !  Multiplicity: positions of octagon planes.
 !                The o - detectors ARE symetric around the nominal
 !                vertex and at  the  distance  4.5cm +0.015cm from
 !                the beam axis except for the  sides  where  there
 !                are windows for two spetrometer arms -4.3cm < z <
 !                21.3cm.
 !                The VERTEX - detectors are located 5.5cm -0.015cm
 !                and 11cm -0.015cm from the beam axis and centered
 !                at z =0.
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS MOA1   1  OUTS    4.515     0.0      38.295  503  ONLY
 GS POS MOA2   1  OUTS    4.515     0.0     -34.040  503  ONLY
 GS POS MOB1   1  OUTS    3.193     3.193     0.000  504  ONLY
 GS POS MOC1   1  OUTS    0.0       4.515    34.040  505  ONLY
 GS POS MOC2   1  OUTS    0.0       4.515   -34.040  505  ONLY
 GS POS MOD1   1  OUTS   -3.193     3.193     0.000  506  ONLY
 GS POS MOE1   1  OUTS   -4.515     0.0      38.295  507  ONLY
 GS POS MOE2   1  OUTS   -4.515     0.0     -34.040  507  ONLY
 GS POS MOF1   1  OUTS   -3.193    -3.193     0.000  508  ONLY
 GS POS MOG1   1  OUTS    0.0      -4.515    34.040  509  ONLY
 GS POS MOG2   1  OUTS    0.0      -4.515   -34.040  509  ONLY
 GS POS MOH1   1  OUTS    3.193    -3.193     0.000  510  ONLY
 !
 !  Vertex: positions of vertex planes.
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS VPA1   1  OUTS    0.0       5.640     0.0    509  ONLY
 GS POS VPB1   1  OUTS    0.0      11.785     0.0    505  ONLY
 GS POS VNA1   1  OUTS    0.0      -5.640     0.0    509  ONLY
 GS POS VNB1   1  OUTS    0.0     -11.785     0.0    505  ONLY
 !
 !  Multiplicity: positions of electronics for mult in octagon.
 !
 !  Multiplicity: positions of electronics for electeronics at 12-CM
 !
 !  Multiplicity octagon  and vertex: positions of supports
 !                                    for vertex and octagon -
 !
 ! alum. plate
 GS POS RORE   1  RORD    4.250     0.0      10.25     0  ONLY
 GS POS RORF   1  RORD   -7.600     0.0       0.0    533  ONLY
 GS POS RORG   1  RORD    9.500     0.0       1.5    533  ONLY
 GS POS RORH   1  RORD   20.000     0.0       4.0    533  ONLY
 GS POS RORD   1  OUTS    7.175   -21.400   -34.165  540  ONLY
 GS POS RORD   2  OUTS   -7.175   -21.400   -34.165  540  ONLY
 !
 GS POS RORI   1  OUTS    0.0     -14.500   -51.600  538  ONLY
 GS POS RORI   2  OUTS    0.0     -14.500   -31.000  538  ONLY
 GS POS RORI   3  OUTS    0.0     -14.500   -17.600  538  ONLY
 GS POS RORI   4  OUTS    0.0     -14.500    -4.200  538  ONLY
 GS POS RORI   5  OUTS    0.0     -22.000   -51.600  538  ONLY
 GS POS RORI   6  OUTS    0.0     -22.000   -31.000  538  ONLY
 GS POS RORI   7  OUTS    0.0     -24.000   -17.600  538  ONLY
 GS POS RORI   8  OUTS    0.0     -30.000   -51.600  538  ONLY
 GS POS RORI   9  OUTS    0.0     -30.000   -31.000  538  ONLY
 !
 ! cables - part I
 GS POS ROCB   1  OUTS    5.8575    7.0     -25.63   503  ONLY
 GS POS ROCB   2  OUTS   -5.8575    7.0     -25.63   503  ONLY
 GS POS ROCB   3  OUTS   -5.8575   -7.0     -25.63   503  ONLY
 GS POS ROCB   4  OUTS    5.8575   -7.0     -25.63   503  ONLY
 !
 GS POS ROCA   1  OUTS    5.8025    7.0     -29.885  503  ONLY
 GS POS ROCA   2  OUTS   -5.8025    7.0     -29.885  503  ONLY
 GS POS ROCA   3  OUTS   -5.8025   -7.0     -29.885  503  ONLY
 GS POS ROCA   4  OUTS    5.8025   -7.0     -29.885  503  ONLY
 !
 GS POS ROC0   1  OUTS    5.7475    7.0     -34.14   503  ONLY
 GS POS ROC0   2  OUTS   -5.7475    7.0     -34.14   503  ONLY
 GS POS ROC0   3  OUTS   -5.7475   -7.0     -34.14   503  ONLY
 GS POS ROC0   4  OUTS    5.7475   -7.0     -34.14   503  ONLY
 !
 GS POS ROC1   7  OUTS    5.6925     7.0    -38.395  503  ONLY
 GS POS ROC1   8  OUTS    6.0925     0.0    -38.395  507  ONLY
 GS POS ROC1   9  OUTS   -5.6925     7.0    -38.395  503  ONLY
 GS POS ROC1  10  OUTS    0.0        6.7925 -38.395  505  ONLY
 GS POS ROC1  11  OUTS   -5.6925    -7.0    -38.395  503  ONLY
 GS POS ROC1  12  OUTS   -6.0925     0.0    -38.395  507  ONLY
 GS POS ROC1  13  OUTS    5.6925    -7.0    -38.395  503  ONLY
 GS POS ROC1  14  OUTS    0.0       -6.7925 -38.395  509  ONLY
 !
 GS POS ROC2   9  OUTS    5.6375     7.0    -42.65   503  ONLY
 GS POS ROC2  10  OUTS    6.0375     0.0    -42.65   503  ONLY
 GS POS ROC2  11  OUTS   -5.6375     7.0    -42.65   503  ONLY
 GS POS ROC2  12  OUTS    0.0        6.7375 -42.65   505  ONLY
 GS POS ROC2  13  OUTS   -5.6375    -7.0    -42.65   503  ONLY
 GS POS ROC2  14  OUTS   -6.0375     0.0    -42.65   507  ONLY
 GS POS ROC2  15  OUTS    5.6375    -7.0    -42.65   503  ONLY
 GS POS ROC2  16  OUTS    0.0       -6.7375 -42.65   509  ONLY
 !
 GS POS ROC3   9  OUTS    5.5825     7.0    -46.905  503  ONLY
 GS POS ROC3  10  OUTS    5.9825     0.0    -46.905  503  ONLY
 GS POS ROC3  11  OUTS   -5.5825     7.0    -46.905  503  ONLY
 GS POS ROC3  12  OUTS    0.0        6.6825 -46.905  505  ONLY
 GS POS ROC3  13  OUTS   -5.5825    -7.0    -46.905  503  ONLY
 GS POS ROC3  14  OUTS   -5.9825     0.0    -46.905  507  ONLY
 GS POS ROC3  15  OUTS    5.5825    -7.0    -46.905  503  ONLY
 GS POS ROC3  16  OUTS    0.0       -6.6825 -46.905  509  ONLY
 !
 GS POS ROC4   9  OUTS    5.5275     7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  10  OUTS    5.9275     0.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  11  OUTS   -5.5275     7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  12  OUTS    0.0        6.6275 -51.16  505  ONLY
 GS POS ROC4  13  OUTS   -5.5275    -7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  14  OUTS   -5.9275     0.0    -51.16  507  ONLY
 GS POS ROC4  15  OUTS    5.5275    -7.0    -51.16  503  ONLY   ! 10-14
 GS POS ROC4  16  OUTS    0.0       -6.6275 -51.16  509  ONLY

 ! the rib no 1 - 0.4cm thick
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 GS POS ROR1   1  OUTS   -5.150     7.750   -55.315    0  MANY
 GS POS ROR1   2  OUTS    5.150     7.750   -55.315    0  MANY
 GS POS ROR1   3  OUTS   -5.150    -7.750   -55.315    0  MANY
 GS POS ROR1   4  OUTS    5.150    -7.750   -55.315    0  MANY
 GS POS ROR2   1  OUTS    0.000     5.700   -55.315    0  MANY
 GS POS ROR2   2  OUTS    0.000    -5.700   -55.315    0  MANY
 GS POS ROR3   1  OUTS   -4.647     3.394   -55.315  511  MANY
 GS POS ROR3   2  OUTS    4.647     3.394   -55.315  513  MANY
 GS POS ROR3   3  OUTS   -4.647    -3.394   -55.315  515  MANY
 GS POS ROR3   4  OUTS    4.647    -3.394   -55.315  516  MANY
 GS POS ROR4   1  OUTS   -5.350     0.000   -55.315    0  ONLY
 GS POS ROR4   2  OUTS    5.350     0.000   -55.315    0  ONLY
 GS POS ROR6   1  OUTS   -5.700     7.680   -55.315    0  ONLY
 GS POS ROR6   2  OUTS    5.700     7.000   -55.315    0  ONLY
 GS POS ROR6   3  OUTS   -5.700    -7.000   -55.315    0  ONLY
 GS POS ROR6   4  OUTS    5.700    -7.000   -55.315    0  ONLY
 !
 GS POS ROR1   5  OUTS   -5.150     7.750   -55.515    0  MANY
 GS POS ROR1   6  OUTS    5.150     7.750   -55.515    0  MANY
 GS POS ROR1   7  OUTS   -5.150    -7.750   -55.515    0  MANY
 GS POS ROR1   8  OUTS    5.150    -7.750   -55.515    0  MANY
 GS POS ROR2   3  OUTS    0.000     5.700   -55.515    0  MANY
 GS POS ROR2   4  OUTS    0.000    -5.700   -55.515    0  MANY
 GS POS ROR3   5  OUTS   -4.647     3.394   -55.515  511  MANY
 GS POS ROR3   6  OUTS    4.647     3.394   -55.515  513  MANY
 GS POS ROR3   7  OUTS   -4.647    -3.394   -55.515  515  MANY
 GS POS ROR3   8  OUTS    4.647    -3.394   -55.515  516  MANY
 GS POS ROR4   3  OUTS   -5.350     0.000   -55.515    0  ONLY
 GS POS ROR4   4  OUTS    5.350     0.000   -55.515    0  ONLY
 GS POS ROR6   5  OUTS   -5.700     7.000   -55.515    0  ONLY
 GS POS ROR6   6  OUTS    5.700     7.000   -55.515    0  ONLY
 GS POS ROR6   7  OUTS   -5.700    -7.000   -55.515    0  ONLY
 GS POS ROR6   8  OUTS    5.700    -7.000   -55.515    0  ONLY
 ! the rib no 2
 GS POS ROR1  13  OUTS   -5.150     7.750   -46.805    0  MANY
 GS POS ROR1  14  OUTS    5.150     7.750   -46.805    0  MANY
 GS POS ROR1  15  OUTS   -5.150    -7.750   -46.805    0  MANY
 GS POS ROR1  16  OUTS    5.150    -7.750   -46.805    0  MANY
 GS POS ROR2   7  OUTS    0.000     5.700   -46.805    0  MANY
 GS POS ROR2   8  OUTS    0.000    -5.700   -46.805    0  MANY
 GS POS ROR3  13  OUTS   -4.647     3.394   -46.805  511  MANY
 GS POS ROR3  14  OUTS    4.647     3.394   -46.805  513  MANY
 GS POS ROR3  15  OUTS   -4.647    -3.394   -46.805  515  MANY
 GS POS ROR3  16  OUTS    4.647    -3.394   -46.805  516  MANY
 GS POS ROR4   7  OUTS   -5.350     0.000   -46.805    0  ONLY
 GS POS ROR4   8  OUTS    5.350     0.000   -46.805    0  ONLY
 GS POS ROR6  13  OUTS   -5.700     7.000   -46.805    0  ONLY
 GS POS ROR6  14  OUTS    5.700     7.000   -46.805    0  ONLY
 GS POS ROR6  15  OUTS   -5.700    -7.000   -46.805    0  ONLY
 GS POS ROR6  16  OUTS    5.700    -7.000   -46.805    0  ONLY
 !
 ! the rib no 3
 GS POS ROR1  17  OUTS   -5.150     7.750   -38.295    0  MANY
 GS POS ROR1  18  OUTS    5.150     7.750   -38.295    0  MANY
 GS POS ROR1  19  OUTS   -5.150    -7.750   -38.295    0  MANY
 GS POS ROR1  20  OUTS    5.150    -7.750   -38.295    0  MANY
 GS POS ROR2   9  OUTS    0.000     5.700   -38.295    0  MANY
 GS POS ROR2  10  OUTS    0.000    -5.700   -38.295    0  MANY
 GS POS ROR3  17  OUTS   -4.647     3.394   -38.295  511  MANY
 GS POS ROR3  18  OUTS    4.647     3.394   -38.295  513  MANY
 GS POS ROR3  19  OUTS   -4.647    -3.394   -38.295  515  MANY
 GS POS ROR3  20  OUTS    4.647    -3.394   -38.295  516  MANY
 GS POS ROR4   9  OUTS   -5.350     0.000   -38.295    0  ONLY
 GS POS ROR4  10  OUTS    5.350     0.000   -38.295    0  ONLY
 GS POS ROR6  17  OUTS   -5.700     7.000   -38.295    0  ONLY
 GS POS ROR6  18  OUTS    5.700     7.000   -38.295    0  ONLY
 GS POS ROR6  19  OUTS   -5.700    -7.000   -38.295    0  ONLY
 GS POS ROR6  20  OUTS    5.700    -7.000   -38.295    0  ONLY
 ! the rib no 4
 GS POS ROR1  21  OUTS   -5.150     7.750   -29.785    0  MANY
 GS POS ROR1  22  OUTS    5.150     7.750   -29.785    0  MANY
 GS POS ROR1  23  OUTS   -5.150    -7.750   -29.785    0  MANY
 GS POS ROR1  24  OUTS    5.150    -7.750   -29.785    0  MANY
 GS POS ROR2  11  OUTS    0.000     5.700   -29.785    0  MANY
 GS POS ROR2  12  OUTS    0.000    -5.700   -29.785    0  MANY
 GS POS ROR3  21  OUTS   -4.647     3.394   -29.785  511  MANY
 GS POS ROR3  22  OUTS    4.647     3.394   -29.785  513  MANY
 GS POS ROR3  23  OUTS   -4.647    -3.394   -29.785  515  MANY
 GS POS ROR3  24  OUTS    4.647    -3.394   -29.785  516  MANY
 GS POS ROR4  11  OUTS   -5.350     0.000   -29.785    0  ONLY
 GS POS ROR4  12  OUTS    5.350     0.000   -29.785    0  ONLY
 GS POS ROR6  21  OUTS   -5.700     7.000   -29.785    0  ONLY
 GS POS ROR6  22  OUTS    5.700     7.000   -29.785    0  ONLY
 GS POS ROR6  23  OUTS   -5.700    -7.000   -29.785    0  ONLY
 GS POS ROR6  24  OUTS    5.700    -7.000   -29.785    0  ONLY
 ! the rib no 5
 GS POS ROR1  25  OUTS   -5.150     7.750   -21.275    0  MANY
 GS POS ROR1  26  OUTS    5.150     7.750   -21.275    0  MANY
 GS POS ROR1  27  OUTS   -5.150    -7.750   -21.275    0  MANY
 GS POS ROR1  28  OUTS    5.150    -7.750   -21.275    0  MANY
 GS POS ROR2  13  OUTS    0.000     5.700   -21.275    0  MANY
 GS POS ROR2  14  OUTS    0.000    -5.700   -21.275    0  MANY
 GS POS ROR3  25  OUTS   -4.647     3.394   -21.275  511  MANY
 GS POS ROR3  26  OUTS    4.647     3.394   -21.275  513  MANY
 GS POS ROR3  27  OUTS   -4.647    -3.394   -21.275  515  MANY
 GS POS ROR3  28  OUTS    4.647    -3.394   -21.275  516  MANY
 GS POS ROR4  13  OUTS   -5.350     0.000   -21.275    0  ONLY
 GS POS ROR4  14  OUTS    5.350     0.000   -21.275    0  ONLY
 GS POS ROR6  25  OUTS   -5.700     7.000   -21.275    0  ONLY
 GS POS ROR6  26  OUTS    5.700     7.000   -21.275    0  ONLY
 GS POS ROR6  27  OUTS   -5.700    -7.000   -21.275    0  ONLY
 GS POS ROR6  28  OUTS    5.700    -7.000   -21.275    0  ONLY
 ! the rib no 6
 GS POS ROR1  29  OUTS   -5.150     7.750   -12.765    0  MANY
 GS POS ROR1  30  OUTS    5.150     7.750   -12.765    0  MANY
 GS POS ROR1  31  OUTS   -5.150    -7.750   -12.765    0  MANY
 GS POS ROR1  32  OUTS    5.150    -7.750   -12.765    0  MANY
 GS POS ROR2  15  OUTS    0.000     5.700   -12.765    0  MANY
 GS POS ROR2  16  OUTS    0.000    -5.700   -12.765    0  MANY
 GS POS ROR3  29  OUTS   -4.647     3.394   -12.765  511  MANY
 GS POS ROR3  30  OUTS    4.647     3.394   -12.765  513  MANY
 GS POS ROR3  31  OUTS   -4.647    -3.394   -12.765  515  MANY
 GS POS ROR3  32  OUTS    4.647    -3.394   -12.765  516  MANY
 GS POS ROR5   1  OUTS   -5.350     0.000   -12.765  512  ONLY
 GS POS ROR5   2  OUTS    5.350     0.000   -12.765  514  ONLY
 GS POS ROR6  29  OUTS   -5.700     7.000   -12.765    0  ONLY
 GS POS ROR6  30  OUTS    5.700     7.000   -12.765    0  ONLY
 GS POS ROR6  31  OUTS   -5.700    -7.000   -12.765    0  ONLY
 GS POS ROR6  32  OUTS    5.700    -7.000   -12.765    0  ONLY
 !
 ! the rib no 7
 GS POS ROR7   1  OUTS   -4.7595    3.169    -4.255  511  MANY
 GS POS ROR7   2  OUTS    4.7595    3.169    -4.255  513  MANY
 GS POS ROR7   3  OUTS   -4.7595   -3.169    -4.255  515  MANY
 GS POS ROR7   4  OUTS    4.7595   -3.169    -4.255  516  MANY
 GS POS ROR8   1  OUTS   -5.093     4.775    -4.255    0  MANY
 GS POS ROR8   2  OUTS    5.093     4.775    -4.255    0  MANY
 GS POS ROR8   3  OUTS   -5.093    -4.775    -4.255    0  MANY
 GS POS ROR8   4  OUTS    5.093    -4.775    -4.255    0  MANY
 GS POS ROR5   3  OUTS   -5.350     0.000    -4.255  512  ONLY
 GS POS ROR5   4  OUTS    5.350     0.000    -4.225  514  ONLY
 !
 ! the rib no 8
 GS POS ROR7   5  OUTS   -4.7595    3.169     4.255  511  MANY
 GS POS ROR7   6  OUTS    4.7595    3.169     4.255  513  MANY
 GS POS ROR7   7  OUTS   -4.7595   -3.169     4.255  515  MANY
 GS POS ROR7   8  OUTS    4.7595   -3.169     4.255  516  MANY
 GS POS ROR8   5  OUTS   -5.093     4.775     4.255    0  ONLY
 GS POS ROR8   6  OUTS    5.093     4.775     4.255    0  ONLY
 GS POS ROR8   7  OUTS   -5.093    -4.775     4.255    0  ONLY
 GS POS ROR8   8  OUTS    5.093    -4.775     4.255    0  ONLY
 GS POS ROR5   5  OUTS   -5.350     0.000     4.255  512  ONLY
 GS POS ROR5   6  OUTS    5.350     0.000     4.225  514  ONLY
 ! the rib no 9
 GS POS ROR1  33  OUTS   -5.150     7.750    12.765    0  MANY
 GS POS ROR1  34  OUTS    5.150     7.750    12.765    0  MANY
 GS POS ROR1  35  OUTS   -5.150    -7.750    12.765    0  MANY
 GS POS ROR1  36  OUTS    5.150    -7.750    12.765    0  MANY
 GS POS ROR2  17  OUTS    0.000     5.700    12.765    0  MANY
 GS POS ROR2  18  OUTS    0.000    -5.700    12.765    0  MANY
 GS POS ROR3  33  OUTS   -4.647     3.394    12.765  511  MANY
 GS POS ROR3  34  OUTS    4.647     3.394    12.765  513  MANY
 GS POS ROR3  35  OUTS   -4.647    -3.394    12.765  515  MANY
 GS POS ROR3  36  OUTS    4.647    -3.394    12.765  516  MANY
 GS POS ROR5   7  OUTS   -5.350     0.000    12.765  512  ONLY
 GS POS ROR5   8  OUTS    5.350     0.000    12.765  514  ONLY
 GS POS ROR9   1  OUTS   -5.650     5.349    12.765    0  ONLY
 GS POS ROR9   2  OUTS    5.650     5.349    12.765    0  ONLY
 GS POS ROR9   3  OUTS   -5.650    -5.349    12.765    0  ONLY
 GS POS ROR9   4  OUTS    5.650    -5.349    12.765    0  ONLY
 ! the rib no 10
 GS POS ROR0   1  OUTS    0.0       5.7000   21.275  518  ONLY
 GS POS ROR0   2  OUTS    0.0      -5.7000   21.275  519  ONLY
 GS POS RORB   1  RORA   -2.41353   0.0       0.725  524  ONLY
 GS POS RORA   1  OUTS   -4.0305    4.0305   21.275  520  MANY
 GS POS RORA   2  OUTS    4.0305    4.0305   21.275  521  MANY
 GS POS RORA   3  OUTS    4.0305   -4.0305   21.275  522  MANY
 GS POS RORA   4  OUTS   -4.0305   -4.0305   21.275  523  MANY
 ! the rib no 11
 GS POS ROR0   3  OUTS    0.0       5.7000   29.785  518  ONLY
 GS POS ROR0   4  OUTS    0.0      -5.7000   29.785  519  ONLY
 GS POS RORA   5  OUTS   -4.0305    4.0305   29.785  520  MANT
 GS POS RORA   6  OUTS    4.0305    4.0305   29.785  521  MANY
 GS POS RORA   7  OUTS    4.0305   -4.0305   29.785  522  MANY
 GS POS RORA   8  OUTS   -4.0305   -4.0305   29.785  523  MANY
 GS POS RORC   1  OUTS   -5.350     0.000    29.785  512  ONLY
 GS POS RORC   2  OUTS    5.350     0.000    29.785  514  ONLY
 ! the rib no 12
 GS POS ROR0   5  OUTS    0.0       5.7000   38.295  518  ONLY
 GS POS ROR0   6  OUTS    0.0      -5.7000   38.295  519  ONLY
 GS POS RORA   9  OUTS   -4.0305    4.0305   38.295  520  MANY
 GS POS RORA  10  OUTS    4.0305    4.0305   38.295  521  MANY
 GS POS RORA  11  OUTS    4.0305   -4.0305   38.295  522  MANY
 GS POS RORA  12  OUTS   -4.0305   -4.0305   38.295  523  MANY
 GS POS RORC   3  OUTS   -5.350     0.000    38.295  512  ONLY
 GS POS RORC   4  OUTS    5.350     0.000    38.295  514  ONLY
 ! the rib no 13
 GS POS ROR0   7  OUTS    0.0       5.7000   46.805  518  ONLY
 GS POS ROR0   8  OUTS    0.0      -5.7000   46.805  519  ONLY
 GS POS RORA  13  OUTS   -4.0305    4.0305   46.805  520  MANY
 GS POS RORA  14  OUTS    4.0305    4.0305   46.805  521  MANY
 GS POS RORA  15  OUTS    4.0305   -4.0305   46.805  522  MANY
 GS POS RORA  16  OUTS   -4.0305   -4.0305   46.805  523  MANY
 GS POS RORC   5  OUTS   -5.350     0.000    46.805  512  ONLY
 GS POS RORC   6  OUTS    5.350     0.000    46.805  514  ONLY
 ! the rib no 14
 GS POS ROR0   9  OUTS    0.0       5.7000   55.315  518  ONLY
 GS POS ROR0  10  OUTS    0.0      -5.7000   55.315  519  ONLY
 GS POS RORA  17  OUTS   -4.0305    4.0305   55.315  520  MANY
 GS POS RORA  18  OUTS    4.0305    4.0305   55.315  521  MANY
 GS POS RORA  19  OUTS    4.0305   -4.0305   55.315  522  MANY
 GS POS RORA  20  OUTS   -4.0305   -4.0305   55.315  523  MANY
 GS POS RORC   7  OUTS   -5.350     0.000    55.315  512  ONLY
 GS POS RORC   8  OUTS    5.350     0.000    55.315  514  ONLY
 !
 GS POS ROR0  11  OUTS    0.0       5.7000   55.515  518  ONLY
 GS POS ROR0  12  OUTS    0.0      -5.7000   55.515  519  ONLY
 GS POS RORA  21  OUTS   -4.0305    4.0305   55.515  520  MANY
 GS POS RORA  22  OUTS    4.0305    4.0305   55.515  521  MANY
 GS POS RORA  23  OUTS    4.0305   -4.0305   55.515  522  MANY
 GS POS RORA  24  OUTS   -4.0305   -4.0305   55.515  523  MANY
 GS POS RORC   9  OUTS   -5.350     0.000    55.515  512  ONLY
 GS POS RORC  10  OUTS    5.350     0.000    55.515  514  ONLY
 ! rurki chlodzace
 GS POS ROT2   1  ROT1    0.000     0.000     0.000    0  ONLY
 GS POS ROT1   1  OUTS   -4.798     2.836     0.000    0  ONLY
 GS POS ROT1   2  OUTS   -2.836     4.798     0.000    0  ONLY
 GS POS ROT1   3  OUTS    2.836     4.798     0.000    0  ONLY
 GS POS ROT1   4  OUTS    4.798    -2.836     0.000    0  ONLY
 GS POS ROT1   5  OUTS    4.798     2.836     0.000    0  ONLY
 GS POS ROT1   6  OUTS    2.836    -4.798     0.000    0  ONLY
 GS POS ROT1   7  OUTS   -2.836    -4.798     0.000    0  ONLY
 GS POS ROT1   8  OUTS   -4.798    -2.836     0.000    0  ONLY
 !
 GS POS ROT4   1  ROT3    0.000     0.000     0.000    0  ONLY
 GS POS ROT3   1  OUTS   -5.000    10.300   -21.425    0  ONLY
 GS POS ROT3   2  OUTS    5.000    10.300   -21.425    0  ONLY
 GS POS ROT3   3  OUTS    5.000   -10.300   -21.425    0  ONLY
 GS POS ROT3   4  OUTS   -5.000   -10.300   -21.425    0  ONLY
 ! ramki
 GS POS ROB1   1  OUTS   -3.286     4.798     0.000    0  MANY
 GS POS ROB1   2  OUTS    3.286     4.798     0.000    0  MANY
 GS POS ROB1   3  OUTS    3.286    -4.798     0.000    0  MANY
 GS POS ROB1   4  OUTS   -3.286    -4.798     0.000    0  MANY
 GS POS ROB1   5  OUTS   -5.400    10.300     0.000    0  MANY
 GS POS ROB1   6  OUTS    5.400    10.300     0.000    0  MANY
 GS POS ROB1   7  OUTS    5.400   -10.300     0.000    0  MANY
 GS POS ROB1   8  OUTS   -5.400   -10.300     0.000    0  MANY
 !
 GS POS ROT5   1  OUTS   -3.786     4.798     0.000    0  ONLY
 GS POS ROT5   2  OUTS    3.786     4.798     0.000    0  ONLY
 GS POS ROT5   3  OUTS    3.786    -4.798     0.000    0  OMLY
 GS POS ROT5   4  OUTS   -3.786    -4.798     0.000    0  ONLY
 GS POS ROT5   5  OUTS   -5.900    10.300     0.000    0  ONLY
 GS POS ROT5   6  OUTS    5.900    10.300     0.000    0  ONLY
 GS POS ROT5   7  OUTS    5.900   -10.300     0.000    0  ONLY
 GS POS ROT5   8  OUTS   -5.900   -10.300     0.000    0  ONLY
 !
 GS POS ROT7   1  ROT6    0.000     0.000     0.000    0  ONLY
 GS POS ROT6   1  OUTS    3.818     3.818    57.400  536  ONLY
 GS POS ROT6   2  OUTS   -3.818     3.818    57.400  537  ONLY
 GS POS ROT6   3  OUTS   -3.818    -3.818    57.400  536  ONLY
 GS POS ROT6   4  OUTS    3.818    -3.818    57.400  537  ONLY
 !
 GS POS ROT9   1  ROT8    0.000     0.000     0.000    0  ONLY
 GS POS ROT8   1  OUTS    0.000    10.300    13.975  538  ONLY
 GS POS ROT8   2  OUTS    0.000   -10.300    13.975  538  ONLY
 !
 GS POS ROTA   1  ROT0    0.000     0.000     0.000    0  ONLY
 GS POS ROT0   1  OUTS   29.2       2.836   -82.2    541  ONLY
 GS POS ROT0   2  OUTS  -29.2       2.836   -82.2    542  ONLY
 GS POS ROT0   3  OUTS   29.2      -2.836   -82.2    541  ONLY
 GS POS ROT0   4  OUTS  -29.2      -2.836   -82.2    542  ONLY
 GS POS ROT0   5  OUTS   27.2       4.798   -82.2    541  ONLY
 GS POS ROT0   6  OUTS  -27.2       4.798   -82.2    542  ONLY
 GS POS ROT0   7  OUTS   27.2      -4.798   -82.2    541  ONLY
 GS POS ROT0   8  OUTS  -27.2      -4.798   -82.2    542  ONLY
 GS POS ROT0   9  OUTS   29.4      10.300   -82.6    541  ONLY
 GS POS ROT0  10  OUTS  -29.4      10.300   -82.6    542  ONLY
 GS POS ROT0  11  OUTS   29.4     -10.300   -82.6    541  ONLY
 GS POS ROT0  12  OUTS  -29.4     -10.300   -82.6    542  ONLY
 !
 !cables continuation
 !
 GS POS ROC1   1  OUTS    4.803      4.803    38.395  504  ONLY
 GS POS ROC1   2  OUTS    0.0        6.7925   38.395  505  ONLY
 GS POS ROC1   3  OUTS   -4.803      4.803    38.395  506  ONLY
 GS POS ROC1   4  OUTS   -4.803     -4.803    38.395  508  ONLY
 GS POS ROC1   5  OUTS    0.0       -6.7925   38.395  509  ONLY
 GS POS ROC1   6  OUTS    4.803     -4.803    38.395  510  ONLY
 !
 GS POS ROC2   1  OUTS    6.0375     0.0      42.65   503  ONLY
 GS POS ROC2   2  OUTS    4.764      4.764    42.65   504  ONLY
 GS POS ROC2   3  OUTS    0.0        6.7375   42.65   505  ONLY
 GS POS ROC2   4  OUTS   -4.764      4.764    42.65   506  ONLY
 GS POS ROC2   5  OUTS   -6.0375     0.0      42.65   507  ONLY
 GS POS ROC2   6  OUTS   -4.764     -4.764    42.65   508  ONLY
 GS POS ROC2   7  OUTS    0.0       -6.7375   42.65   509  ONLY
 GS POS ROC2   8  OUTS    4.764     -4.764    42.65   510  ONLY
 !
 GS POS ROC3   1  OUTS    5.9825     0.0      46.905  503  ONLY
 GS POS ROC3   2  OUTS    4.725      4.725    46.905  504  ONLY
 GS POS ROC3   3  OUTS    0.0        6.6825   46.905  505  ONLY
 GS POS ROC3   4  OUTS   -4.725      4.725    46.905  506  ONLY
 GS POS ROC3   5  OUTS   -5.9825     0.0      46.905  507  ONLY
 GS POS ROC3   6  OUTS   -4.725     -4.725    46.905  508  ONLY
 GS POS ROC3   7  OUTS    0.0       -6.6825   46.905  509  ONLY
 GS POS ROC3   8  OUTS    4.725     -4.725    46.905  510  ONLY
 !
 GS POS ROC4   1  OUTS    5.9275     0.0      51.16  503  ONLY   ! 10-14
 GS POS ROC4   2  OUTS    4.686      4.686    51.16  504  ONLY
 GS POS ROC4   3  OUTS    0.0        6.6275   51.16  505  ONLY
 GS POS ROC4   4  OUTS   -4.686      4.686    51.16  506  ONLY
 GS POS ROC4   5  OUTS   -5.9275     0.0      51.16  507  ONLY
 GS POS ROC4   6  OUTS   -4.686     -4.686    51.16  508  ONLY
 GS POS ROC4   7  OUTS    0.0       -6.6275   51.16  509  ONLY
 GS POS ROC4   8  OUTS    4.686     -4.686    51.16  510  ONLY
 !
 GS POS ROC5   1  OUTS   11.3        0.0      84.48  534  ONLY   ! 14-OUT
 GS POS ROC5   2  OUTS  -11.3        0.0      84.48  535  ONLY   ! 14-OUT
 GS POS ROCC   3  OUTS   18.95       0.0     -56.66    0  ONLY   !  1-OUT
 GS POS ROCC   4  OUTS  -18.95       0.0     -56.66    0  ONLY   !  1-OUT
 !
 !CABLE FOR O-VERTEX
 GS POS ROC6   1  OUTS    5.975     11.9625  -24.67375 0  ONLY   !  1-O-V
 GS POS ROC6   2  OUTS   -5.975     11.9625  -24.67375 0  ONLY   !  1-O-V
 GS POS ROC6   3  OUTS    5.975    -11.9625  -24.67375 0  ONLY   !  1-O-V
 GS POS ROC6   4  OUTS   -5.975    -11.9625  -24.67375 0  ONLY   !  1-O-V
 !
 GS POS ROC7   1  OUTS    5.975     11.9075  -27.7575  0  ONLY   !  1-O-V
 GS POS ROC7   2  OUTS   -5.975     11.9075  -27.7575  0  ONLY   !  1-O-V
 GS POS ROC7   3  OUTS    5.975    -11.9075  -27.7575  0  ONLY   !  1-O-V
 GS POS ROC7   4  OUTS   -5.975    -11.9075  -27.7575  0  ONLY   !  1-O-V
 !
 GS POS ROC8   1  OUTS    5.975     11.8525  -30.84125 0  ONLY   !  1-O-V
 GS POS ROC8   2  OUTS   -5.975     11.8525  -30.84125 0  ONLY   !  1-O-V
 GS POS ROC8   3  OUTS    5.975    -11.8525  -30.84125 0  ONLY   !  1-O-V
 GS POS ROC8   4  OUTS   -5.975    -11.8525  -30.84125 0  ONLY   !  1-O-V
 !
 GS POS ROC9   1  OUTS    5.975     11.7975  -33.925   0  ONLY   !  1-O-V
 GS POS ROC9   2  OUTS   -5.975     11.7975  -33.925   0  ONLY   !  1-O-V
 GS POS ROC9   3  OUTS    5.975    -11.7975  -33.925   0  ONLY   !  1-O-V
 GS POS ROC9   4  OUTS   -5.975    -11.7975  -33.925   0  ONLY   !  1-O-V
 !
 !CABLES FOR I-VERTEX
 GS POS ROC6   5  OUTS    4.3725     7.7000  -24.67375 539  ONLY   !  1-I-VI
 GS POS ROC6   6  OUTS   -4.3725    -7.7000  -24.67375 539  ONLY   !  1-I-VI
 GS POS ROC7   5  OUTS    4.3175     7.7000  -27.7575  539  ONLY   !  1-I-VI
 GS POS ROC7   6  OUTS   -4.3175    -7.7000  -27.7575  539  ONLY   !  1-I-VI
 GS POS ROC8   5  OUTS    4.2625     7.7000  -30.84125 539  ONLY   !  1-I-VI
 GS POS ROC8   6  OUTS   -4.2625    -7.7000  -30.84125 539  ONLY   !  1-I-VI
 GS POS ROC9   5  OUTS    4.2075     7.7000  -33.925   539  ONLY   !  1-I-VI
 GS POS ROC9   6  OUTS   -4.2075    -7.7000  -33.925   539  ONLY   !  1-I-VI
 !
 ! ceramics and its aluminium support
 GS POS ROCE   1  OUTS    3.42      5.5950    0.0      0  ONLY
 GS POS ROCE   2  OUTS   -3.42      5.5950    0.0      0  ONLY
 GS POS ROCE   3  OUTS    3.42     -5.5950    0.0      0  ONLY
 GS POS ROCE   4  OUTS   -3.42     -5.5950    0.0      0  ONLY
 GS POS ROCE   5  OUTS    5.965    11.7400    0.0      0  ONLY
 GS POS ROCE   6  OUTS   -5.965    11.7400    0.0      0  ONLY
 GS POS ROCE   7  OUTS    5.965   -11.7400    0.0      0  ONLY
 GS POS ROCE   8  OUTS   -5.965   -11.7400    0.0      0  ONLY
 !
 GS POS ROA1   1  OUTS    3.42      5.4650    0.0      0  ONLY
 GS POS ROA1   2  OUTS   -3.42      5.4650    0.0      0  ONLY
 GS POS ROA1   3  OUTS    3.42     -5.4650    0.0      0  ONLY
 GS POS ROA1   4  OUTS   -3.42     -5.4650    0.0      0  ONLY
 GS POS ROA1   5  OUTS    5.965    11.6400    0.0      0  ONLY
 GS POS ROA1   6  OUTS   -5.965    11.6400    0.0      0  ONLY
 GS POS ROA1   7  OUTS    5.965   -11.6400    0.0      0  ONLY
 GS POS ROA1   8  OUTS   -5.965   -11.6400    0.0      0  ONLY
 !
 GS POS EKAS   1  OUTS   43.00      7.00    -55.5      0  ONLY
 GS POS EKAS   2  OUTS  -43.00      7.00    -55.5      0  ONLY
 GS POS EKAS   3  OUTS   43.00    -19.50    -55.5      0  ONLY
 GS POS EKAS   4  OUTS  -43.00    -19.50    -55.5      0  ONLY
 GS POS EPLA   1  OUTS  -48.50     -6.25    -57.5      0  ONLY
 GS POS EPLA   2  OUTS   48.50     -6.25    -57.5      0  ONLY
 GS POS CARM   1  OUTS   17.46    -10.50    -19.75     0  ONLY
 GS POS CARM   2  OUTS  -17.46    -10.50    -19.75     0  ONLY
 !
 !
 ! Radiator: position
 !
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
 !
 ! THE END of GEOMETRICAL DESCRIPTION of ALL SYSTEMS
 !
 !
 !  9) EXPERIMENTAL AREA (COMMENTED)
 !
 !       name  shape  mat.  lx/2     ly/2     lz/2    # par
!GS VOLU OUTS  'BOX '   3 500.4    457.2    800.0      3
!GS VOLU OUTS  'BOX '   3 183.0     36.8    800.0      3
!GS VOLU HFLO  'BOX '  11 457.2      5.0    800.0      3
!GS VOLU HSUM  'BOX '  11   7.5     52.7    800.0      3
!GS VOLU HSUY  'BOX '  11 109.0     20.2     70.0      3
 !       name  shape  mat. r_i      r_o     lz/2    phi1     phi1   # par
!GS VOLU HTUN 'TUBS'    5 395.0    396.2    800.0  -21.1    201.1     5
!GS VOLU HSOI 'TUBS'   20 396.2    457.2    800.0  -21.0    201.0     5
 !      daug. cp  moth.   x_c       y_c       z_c    rot. flag
!GS POS HFLO   1  OUTS   43.2    -147.2       0.0      0  ONLY
!GS POS HSUM   1  OUTS    0.0     -89.5       0.0      0  MANY
!GS POS HSUY   1  OUTS    0.0    -122.0      42.4      0  ONLY
!GS POS HTUN   1  OUTS   43.18      0.0       0.0      0  MANY
!GS POS HSOI   1  OUTS   43.18      0.0       0.0      0  MANY
 !
 ! 10)Recording parameters
 !
 !
 GS SET NPLANES 146
 !
 ! Silicon plane pixels parameters. Setting  pixels automaticly
 ! sets this volume as sensitive.
 !
 ! Spectrometer:
 !--------------
 ! 31+31 = 62 sensitive planes
 !
 !             <Dname> <Padflag> <Pad1>  <Pad2>  <Pad3>  <Pad4>
 GS SET PADS  SPA1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SPB1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SPC1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SPD1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SPE1 1  0.0427 0.60 0.0  0.0
 GS SET PADS  SPF1 1  0.0427 0.60 0.0  0.0
 GS SET PADS  SPH1 1  0.0427 0.60 0.0  0.0
 GS SET PADS  SPI1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SPI2 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SPJ1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SPJ2 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SPK1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SPK2 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SPK3 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SPK4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SPL1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SPL3 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SPL4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SPM1 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPM2 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPM3 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPM4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SPN2 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPN4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SPO1 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPO2 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPO3 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPO4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SPP1 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPP3 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SPP4 1  0.0667 0.75 0.0  0.0
 !
 !             <Dname> <Padflag> <Pad1>  <Pad2>  <Pad3>  <Pad4>
 GS SET PADS  SNA1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SNB1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SNC1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SND1 1  0.1    0.10 0.0  0.0
 GS SET PADS  SNE1 1  0.0427 0.60 0.0  0.0
 GS SET PADS  SNF1 1  0.0427 0.60 0.0  0.0
 GS SET PADS  SNH1 1  0.0427 0.60 0.0  0.0
 GS SET PADS  SNI1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SNI2 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SNJ1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SNJ2 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SNK1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SNK2 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SNK3 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SNK4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SNL1 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SNL3 1  0.0667 1.50 0.0  0.0
 GS SET PADS  SNL4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SNM1 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNM2 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNM3 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNM4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SNN2 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNN4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SNO1 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNO2 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNO3 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNO4 1  0.0667 0.75 0.0  0.0
 GS SET PADS  SNP1 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNP3 1  0.0667 1.90 0.0  0.0
 GS SET PADS  SNP4 1  0.0667 0.75 0.0  0.0
 !
 ! Octagon:
 ! --------
 ! 12 planes
 !             <Dname> <Padflag> <Pad1>  <Pad2>  <Pad3>  <Pad4>
 GS SET PADS  MOA1 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOA2 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOB1 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOC1 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOC2 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOD1 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOE1 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOE2 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOF1 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOG1 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOG2 1  1.7550  0.2455  0.  0.
 GS SET PADS  MOH1 1  1.7550  0.2455  0.  0.
 !
 ! Rings:
 ! ------
 ! 6*8 = 48 planes
 !
 !
 !          (deta corresopnds to radii(cm):
 !           5.51789,6.08942,6.72014,7.41620,8.18435,9.03206,9.96758)
 !         Pl#  r_i   deta   r_o      dphi    Thk  D2IP  Hoff  Angl
 !GS SET SLP  1  5.0    .1    11.0    5.6250    0.    0.    0.    0.   !
 !GS SET SLP  2  5.0    .1    11.0    5.6250    0.    0.    0.    0.   !
 !GS SET SLP  3  5.0    .1    11.0    5.6250    0.    0.    0.    0.   !
 !         Pl#  r_i   deta   r_o      dphi    Thk  D2IP  Hoff  Angl
 !GS SET SLP  1  5.0    .1    11.0    5.6250    0.    0.    0.    0.   !
 !GS SET SLP  2  5.0    .1    11.0    5.6250    0.    0.    0.    0.   !
 !GS SET SLP  3  5.0    .1    11.0    5.6250    0.    0.    0.    0.   !
 !             <Dname> <Padflag> <Pad1>  <Pad2>  <Pad3>  <Pad4>
 GS SET PADS  MPA1  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB1  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC1  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA1  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB1  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC1  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPA2  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB2  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC2  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA2  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB2  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC2  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPA3  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB3  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC3  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA3  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB3  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC3  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPA4  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB4  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC4  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA4  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB4  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC4  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPA5  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB5  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC5  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA5  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB5  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC5  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPA6  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB6  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC6  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA6  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB6  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC6  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPA7  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB7  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC7  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA7  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB7  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC7  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPA8  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPB8  0 0.0 0.0 0.0 0.0
 GS SET PADS  MPC8  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNA8  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNB8  0 0.0 0.0 0.0 0.0
 GS SET PADS  MNC8  0 0.0 0.0 0.0 0.0
 !
 ! Vertex:
 ! -------
 ! 2 + 2 = 4 planes
 GS SET PADS  VPA1  1 2.3275  0.0315  0.0   0.0
 GS SET PADS  VPB1  1 4.655   0.0315  0.0   0.0
 GS SET PADS  VNA1  1 2.3275  0.0315  0.0   0.0
 GS SET PADS  VNB1  1 4.655   0.0315  0.0   0.0
 !
 ! TOF:
 ! ----
 ! 10 + 10 = 20 planes
 GS SET PADS TPA1   0 0.0 0.0 0.0 0.0
 GS SET PADS TPA2   0 0.0 0.0 0.0 0.0
 GS SET PADS TPA3   0 0.0 0.0 0.0 0.0
 GS SET PADS TPA4   0 0.0 0.0 0.0 0.0
 GS SET PADS TPB1   0 0.0 0.0 0.0 0.0
 GS SET PADS TPB2   0 0.0 0.0 0.0 0.0
 GS SET PADS TPB3   0 0.0 0.0 0.0 0.0
 GS SET PADS TPB4   0 0.0 0.0 0.0 0.0
 GS SET PADS TPC1   0 0.0 0.0 0.0 0.0
 GS SET PADS TPC2   0 0.0 0.0 0.0 0.0
 GS SET PADS TNA1   0 0.0 0.0 0.0 0.0
 GS SET PADS TNA2   0 0.0 0.0 0.0 0.0
 GS SET PADS TNA3   0 0.0 0.0 0.0 0.0
 GS SET PADS TNA4   0 0.0 0.0 0.0 0.0
 GS SET PADS TNB1   0 0.0 0.0 0.0 0.0
 GS SET PADS TNB2   0 0.0 0.0 0.0 0.0
 GS SET PADS TNB3   0 0.0 0.0 0.0 0.0
 GS SET PADS TNB4   0 0.0 0.0 0.0 0.0
 GS SET PADS TNC1   0 0.0 0.0 0.0 0.0
 GS SET PADS TNC2   0 0.0 0.0 0.0 0.0
 !
 ! Bit packing:
 ! Each value in the hits bank is saved as an positive integer NBITSH bits long
 ! thus real numbers have to be rescaled:
 ! int = FACT * (real + ORIG) has to be positive
 ! Scale defined the accuracy of the saved number,
 ! Offsets should be defined as the lowest possible value of the real variable
 GS SET NBITSH  32   32   32   32   32   32   32   32  32  32  32   ! # bits
 GS SET FACT  1.e5 1.e5 1.e5 1.e7 1.e5 1.e5 1.e5 1.e4 1.e11 1.  1.  ! Scales
 GS SET ORIG  1.e3 1.e3 1.e3 0.   1.e3 1.e3 1.e3   0.   0.  0.  0.  ! Offsets
 GS SET NAMESH  'X   Y   Z   DE  DX  DY  DZ  EFINTOF ITRKVSEQ'      ! Pnames
 ! X Y Z - the position of the hit (the midpoint between entrance and exit)
 !         (in the master reference system)
 ! DE  -  energy lost by the particle in the silicon
 ! DX DY DZ  -  the difference of coordinates of exit and entrance
 ! EFIN - energy of the particle at exit
 ! TOF -  time of flight of the ptl to the plane hit in secs
 ! ITRK - track number (in the event)
 ! VSEQ - combined info VSEQ = IVOL + 1000 * ISEQ where
 !        ISEQ - the sequential number of the hit for this particle
 !        IVOL - the number of the plane hit
 !
 ! Set classifications:
 ! The vector indices after ISET and IDET specify the elements into which
 ! the values returned by GSDET are to be stored; a future syntax may
 ! reference the vector elements directly
 !
 ! Set classifications:
 ! The vector indices after ISET and IDET specify the elements into which
 ! the values returned by GSDET are to be stored; a future syntax may
 ! reference the vector elements directly
 !
 GS DETV  SPEC  SPA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  SPEC  SPB1   1  12000  1000  ISET  2  IDET  2
 GS DETV  SPEC  SPC1   1  12000  1000  ISET  3  IDET  3
 GS DETV  SPEC  SPD1   1  12000  1000  ISET  4  IDET  4
 GS DETV  SPEC  SPE1   1  12000  1000  ISET  5  IDET  5
 GS DETV  SPEC  SPF1   1  12000  1000  ISET  6  IDET  6
 GS DETV  SPEC  SPH1   1  12000  1000  ISET  7  IDET  7
 GS DETV  SPEC  SPI1   1  12000  1000  ISET  8  IDET  8
 GS DETV  SPEC  SPI2   1  12000  1000  ISET  9  IDET  9
 GS DETV  SPEC  SPJ1   1  12000  1000  ISET 10  IDET 10
 GS DETV  SPEC  SPJ2   1  12000  1000  ISET 11  IDET 11
 GS DETV  SPEC  SPK1   1  12000  1000  ISET 12  IDET 12
 GS DETV  SPEC  SPK2   1  12000  1000  ISET 13  IDET 13
 GS DETV  SPEC  SPK3   1  12000  1000  ISET 14  IDET 14
 GS DETV  SPEC  SPK4   1  12000  1000  ISET 15  IDET 15
 GS DETV  SPEC  SPL1   1  12000  1000  ISET 16  IDET 16
 GS DETV  SPEC  SPL3   1  12000  1000  ISET 17  IDET 17
 GS DETV  SPEC  SPL4   1  12000  1000  ISET 18  IDET 18
 GS DETV  SPEC  SPM1   1  12000  1000  ISET 19  IDET 19
 GS DETV  SPEC  SPM2   1  12000  1000  ISET 20  IDET 20
 GS DETV  SPEC  SPM3   1  12000  1000  ISET 21  IDET 21
 GS DETV  SPEC  SPM4   1  12000  1000  ISET 22  IDET 22
 GS DETV  SPEC  SPN2   1  12000  1000  ISET 23  IDET 23
 GS DETV  SPEC  SPN4   1  12000  1000  ISET 24  IDET 24
 GS DETV  SPEC  SPO1   1  12000  1000  ISET 25  IDET 25
 GS DETV  SPEC  SPO2   1  12000  1000  ISET 26  IDET 26
 GS DETV  SPEC  SPO3   1  12000  1000  ISET 27  IDET 27
 GS DETV  SPEC  SPO4   1  12000  1000  ISET 28  IDET 28
 GS DETV  SPEC  SPP1   1  12000  1000  ISET 29  IDET 29
 GS DETV  SPEC  SPP3   1  12000  1000  ISET 30  IDET 30
 GS DETV  SPEC  SPP4   1  12000  1000  ISET 31  IDET 31
 !
 GS DETV  SPEC  SNA1   1  12000  1000  ISET 32  IDET 32
 GS DETV  SPEC  SNB1   1  12000  1000  ISET 33  IDET 33
 GS DETV  SPEC  SNC1   1  12000  1000  ISET 34  IDET 34
 GS DETV  SPEC  SND1   1  12000  1000  ISET 35  IDET 35
 GS DETV  SPEC  SNE1   1  12000  1000  ISET 36  IDET 36
 GS DETV  SPEC  SNF1   1  12000  1000  ISET 37  IDET 37
 GS DETV  SPEC  SNH1   1  12000  1000  ISET 38  IDET 38
 GS DETV  SPEC  SNI1   1  12000  1000  ISET 39  IDET 39
 GS DETV  SPEC  SNI2   1  12000  1000  ISET 40  IDET 40
 GS DETV  SPEC  SNJ1   1  12000  1000  ISET 41  IDET 41
 GS DETV  SPEC  SNJ2   1  12000  1000  ISET 42  IDET 42
 GS DETV  SPEC  SNK1   1  12000  1000  ISET 43  IDET 43
 GS DETV  SPEC  SNK2   1  12000  1000  ISET 44  IDET 44
 GS DETV  SPEC  SNK3   1  12000  1000  ISET 45  IDET 45
 GS DETV  SPEC  SNK4   1  12000  1000  ISET 46  IDET 46
 GS DETV  SPEC  SNL1   1  12000  1000  ISET 47  IDET 47
 GS DETV  SPEC  SNL3   1  12000  1000  ISET 48  IDET 48
 GS DETV  SPEC  SNL4   1  12000  1000  ISET 49  IDET 49
 GS DETV  SPEC  SNM1   1  12000  1000  ISET 50  IDET 50
 GS DETV  SPEC  SNM2   1  12000  1000  ISET 51  IDET 51
 GS DETV  SPEC  SNM3   1  12000  1000  ISET 52  IDET 52
 GS DETV  SPEC  SNM4   1  12000  1000  ISET 53  IDET 53
 GS DETV  SPEC  SNN2   1  12000  1000  ISET 54  IDET 54
 GS DETV  SPEC  SNN4   1  12000  1000  ISET 55  IDET 55
 GS DETV  SPEC  SNO1   1  12000  1000  ISET 56  IDET 56
 GS DETV  SPEC  SNO2   1  12000  1000  ISET 57  IDET 57
 GS DETV  SPEC  SNO3   1  12000  1000  ISET 58  IDET 58
 GS DETV  SPEC  SNO4   1  12000  1000  ISET 59  IDET 59
 GS DETV  SPEC  SNP1   1  12000  1000  ISET 60  IDET 60
 GS DETV  SPEC  SNP3   1  12000  1000  ISET 61  IDET 61
 GS DETV  SPEC  SNP4   1  12000  1000  ISET 62  IDET 62
 !
 GS DETV  RING  MNC1   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC2   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC3   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC4   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC5   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC6   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC7   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNC8   1  12000  1000  ISET  1  IDET  1
 GS DETV  RING  MNB1   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB2   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB3   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB4   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB5   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB6   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB7   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNB8   1  12000  1000  ISET  2  IDET  2
 GS DETV  RING  MNA1   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA2   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA3   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA4   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA5   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA6   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA7   1  12000  1000  ISET  3  IDET  3
 GS DETV  RING  MNA8   1  12000  1000  ISET  3  IDET  3
 !
 GS DETV  BARR  MOA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  BARR  MOA2   1  12000  1000  ISET  2  IDET  2
 GS DETV  BARR  MOB1   1  12000  1000  ISET  3  IDET  3
 GS DETV  BARR  MOC1   1  12000  1000  ISET  4  IDET  4
 GS DETV  BARR  MOC2   1  12000  1000  ISET  5  IDET  5
 GS DETV  BARR  MOD1   1  12000  1000  ISET  6  IDET  6
 GS DETV  BARR  MOE1   1  12000  1000  ISET  7  IDET  7
 GS DETV  BARR  MOE2   1  12000  1000  ISET  8  IDET  8
 GS DETV  BARR  MOF1   1  12000  1000  ISET  9  IDET  9
 GS DETV  BARR  MOG1   1  12000  1000  ISET 10  IDET 10
 GS DETV  BARR  MOG2   1  12000  1000  ISET 11  IDET 11
 GS DETV  BARR  MOH1   1  12000  1000  ISET 12  IDET 12
 !
 GS DETV  RING  MPA1   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA2   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA3   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA4   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA5   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA6   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA7   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPA8   1  12000  1000  ISET  4  IDET  4
 GS DETV  RING  MPB1   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB2   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB3   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB4   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB5   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB6   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB7   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPB8   1  12000  1000  ISET  5  IDET  5
 GS DETV  RING  MPC1   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC2   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC3   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC4   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC5   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC6   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC7   1  12000  1000  ISET  6  IDET  6
 GS DETV  RING  MPC8   1  12000  1000  ISET  6  IDET  6
 !
 GS DETV  VERT  VNA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  VERT  VNB1   1  12000  1000  ISET  2  IDET  2
 GS DETV  VERT  VPA1   1  12000  1000  ISET  3  IDET  3
 GS DETV  VERT  VPB1   1  12000  1000  ISET  4  IDET  4
 !
 GS DETV  TOFC   TPA1   1  12000  1000  ISET  1  IDET  1
 GS DETV  TOFC   TPA2   1  12000  1000  ISET  2  IDET  2
 GS DETV  TOFC   TPA3   1  12000  1000  ISET  3  IDET  3
 GS DETV  TOFC   TPA4   1  12000  1000  ISET  4  IDET  4
 GS DETV  TOFC   TPB1   1  12000  1000  ISET  5  IDET  5
 GS DETV  TOFC   TPB2   1  12000  1000  ISET  6  IDET  6
 GS DETV  TOFC   TPB3   1  12000  1000  ISET  7  IDET  7
 GS DETV  TOFC   TPB4   1  12000  1000  ISET  8  IDET  8
 GS DETV  TOFC   TPC1   1  12000  1000  ISET  9  IDET  9
 GS DETV  TOFC   TPC2   1  12000  1000  ISET 10  IDET 10
 !
 GS DETV  TOFC   TNA1   1  12000  1000  ISET 11  IDET 11
 GS DETV  TOFC   TNA2   1  12000  1000  ISET 12  IDET 12
 GS DETV  TOFC   TNA3   1  12000  1000  ISET 13  IDET 13
 GS DETV  TOFC   TNA4   1  12000  1000  ISET 14  IDET 14
 GS DETV  TOFC   TNB1   1  12000  1000  ISET 15  IDET 15
 GS DETV  TOFC   TNB2   1  12000  1000  ISET 16  IDET 16
 GS DETV  TOFC   TNB3   1  12000  1000  ISET 17  IDET 17
 GS DETV  TOFC   TNB4   1  12000  1000  ISET 18  IDET 18
 GS DETV  TOFC   TNC1   1  12000  1000  ISET 19  IDET 19
 GS DETV  TOFC   TNC2   1  12000  1000  ISET 20  IDET 20
 !
 GS DETH  SPEC  SPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPD1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPE1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPF1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPH1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPI1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPI2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPJ1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPJ2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPK4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPL1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPL3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPL4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPM4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPN2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPN4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPO4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPP1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPP3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SPP4  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  SPEC  SNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SND1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNE1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNF1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNH1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNI1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNI2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNJ1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNJ2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNK4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNL1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNL3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNL4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNM4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNN2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNN4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNO4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNP1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNP3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  SPEC  SNP4  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  RING  MNC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNC8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNB8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MNA8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOC2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOD1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOE1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOE2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOF1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOG1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOG2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  BARR  MOH1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPA8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPB8  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC5  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC6  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC7  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  RING  MPC8  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  VERT  VNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  VERT  VNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  VERT  VPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  VERT  VPB1  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  TOFC   TPA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TPC2  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS DETH  TOFC   TNA1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNA2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNA3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNA4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB2  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB3  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNB4  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNC1  11  NAMESH  NBITSH  ORIG  FACT
 GS DETH  TOFC   TNC2  11  NAMESH  NBITSH  ORIG  FACT
 !
 GS CLOS
+PATCH,UNIX.
*CMZU:  2.00/13 17/11/96  18.25.24  by  Phobos (R. Verdier)
+DECK,COMPHO  ,T=DATA.
*CMZU:  2.02/01 14/05/97  13.29.08  by  Phobos (R. Verdier)
*-- Author :
# compho: Compile Phobos MC source programs into libraries under unix
# Use: compho [SrcFiles] [SrcDir] [ObjDir] [Lib] [DbgLib]
# ex:
#  compho 1 $pr/srcgen $pr/scr $pr/libaix/libpmc.a $pr/libaix/libpmc_dbg.a
#  or, if $pr is standardly defined, more simply, compho 1 1 1 1 1
# SrcFiles is the name of a single file to be compiled, or:
#   = 0 to quit, to avoid files not present errors;
#   = 1 to compile all the standard source files, assumed to be in SrcDir;
#   = 2 to compile all the os-specific source files, assumed to be in SrcDir;
#       At present, this only includes the AIX version of ufile.
#   = 3 to compile all the server source files, assumed to be in SrcDir;
#   = 4 to compile all the server versions of the standard source files,
#       assumed to be in SrcDir; do this ONLY if you will link the server
#       version.
# SrcDir is the directory containing the source files, or:
#   = 0 for the current working directory;
#   = 1 for the standard source files for this platform;
#   = 2 for the os-specific source files for this platform.
#   = 3 for the server source files for this platform.
# ObjDir is the work area for created object files, or:
#   = 0 for the current default directory;
#   = 1 for the standard scratch area for this platform.
#   ALL EXISTING *.o FILES IN THIS AREA WILL BE DELETED
# Lib is the archive library for the non-debug object files, or:
#   = 0 not to compile these files;
#   = 1 for the standard library for this platform;
#   = 2 for the server library for this platform;
#   = 3 to leave the object files in ObjDir instead of compiling them.
# DbgLib is the archive library for the debug-version object files, or:
#   = 0 not to compile these files;
#   = 1 for the standard debug library for this platform;
#   = 2 for the server debug library for this platform;
#   = 3 to leave the object files in ObjDir instead of compiling them.
# 06-May-97: Add flags -K +ppu for hp-ux (RV)
# 18-Mar-97: Add ph_geom and stoper, remove ugeom (RV)
# 06-Dec-96: Interactive version with new directory structure
# 17-Aug-96: Creation (Robin Verdier)
#
# Define the operating system: osf1 (DEC), aix (IBM), hp-ux (HP),
# irix (SGI), or sola (SUN?) as reported by the gnu uname function
# but converted to lower case as in other directory structures and
# the CMZ default:
set os = {`uname`}
set osdec = osf1
set osibm = aix
set oshp = hp-ux
set ossgi = irix
if ($os == OSF1) then
  set os = $osdec
else
  if ($os == AIX) then
    set os = $osibm
  else
    if ($os == HP-UX) then
      set os = $oshp
    else
      if ($os == IRIX) then
        set os = $ossgi
      else
        echo "Unknown operating system $os. Please enter operating "
        echo -n "system (aix | hp-ux | osf1 | sgi | sol): "
        set os = $<
      endif
    endif
  endif
endif
echo Compiling for the $os operating system
#
# Set standard choices for quick entry:
if ($os == $osdec) then
  set pr = /scratchp/phobos/sim/pro  # At MIT/LNS on Ralph2
else
  set pr = /phobos/u/phobos/sim/pro  # At BNL
endif
#
# Define the name of a file to compile, or 1-4 to compile all files
# in particular directories.  Eventually we should be able to specify
# an arbitrary set of files, but in the absence of lexical functions in
# unix I have not been able to do this.
set srcfiles = "1"
if ($1 == "") then
  echo "Enter the name (without directory) of a single source file, or"
  echo "  0 to quit,"
  echo "  1 or cr to compile all standard source files,"
  echo "  2 to compile all os-specific source files;"
  echo "  3 to compile all server source files,"
  echo "  4 to compile server versions of the standard files; do this"
  echo "    ONLY if you plan to link the server version."
  echo -n "  Files: "
  set rep = $<
  if ($rep != "") then
    set srcfiles = $rep
  endif
else
  set srcfiles = $1
endif
if ($srcfiles == "0") then
  goto END
endif
#
# Define directories containing .f source files with includes expanded:
# General PMC:
set srcdir_pmc = $pr/srcgen
# MC server:
set srcdir_srv = $pr/srcsrv
# Operating-system specific, only for IBM [aix] at present:
set srcdir_oss = $pr/src$os
set srcdir = $srcdir_pmc
if ($srcfiles == "2" && $os == $osibm)  then
  set srcdir = $srcdir_oss
else
  if ($srcfiles == "3") then
    set srcdir = $srcdir_srv
  endif
endif
if ($2 == "") then
  echo "Enter directory containing source files, or"
  echo "  0 for current working directory,"
  echo "  1 for $srcdir_pmc,"
  echo "  2 for $srcdir_oss, or"
  echo "  3 for $srcdir_srv, or"
  echo "  cr for "$srcdir":"
  echo -n "  Directory: "
  set rep = $<
  if ($rep != "") then
    set srcdir = $rep
  endif
else
  set srcdir = $2
endif
if ($srcdir == "0") then
  set srcdir = "`pwd`"
else
  if ($srcdir == "1") then
    set srcdir = $srcdir_pmc
  else
    if ($srcdir == "2") then
      set srcdir = $srcdir_oss
    else
      if ($srcdir == "3") then
        set srcdir = $srcdir_srv
      endif
    endif
  endif
endif
# echo srcdir = $srcdir
#
# Define a work directory for the created temporary .o files:
set objdir = $pr/scr
if ($3 == "") then
  echo "Enter work directory for temporary object files, or"
  echo "  0 for current working directory,"
  echo "  1 or cr for "$objdir": "
  echo "  ALL EXISTING *.o FILES IN THIS DIRECTORY WILL BE DELETED."
  echo -n "  Work directory: "
  set rep = $<
  if ($rep != "") then
    set objdir = $rep
  endif
else
  set objdir = $3
endif
if ($objdir == "0") then
  set objdir = "`pwd`"
else
  if ($objdir == "1") then
    set objdir = $pr/scr
  endif
endif
# echo objdir = $objdir
#
# Define the normal non-debug object library:
set pmclib = $pr/lib$os/libpmc.a
set srvlib = $pr/lib$os/libserver.a
set objlib = $pmclib
if ($srcfiles == "3")  then
  set objlib = $srvlib
endif
if ($4 == "") then
  echo "Enter name of object library for non-debug-compiled files, or"
  echo "  0 not to compile these files in non-debug mode,"
  echo "  1 for $pmclib,"
  echo "  2 for $srvlib,"
  echo "  3 to save the object files in $objdir "
  echo "    instead of archiving them, OVERWRITING existing files, or"
  echo "  cr for "$objlib":"
  echo -n "  Object library: "
  set rep = $<
  if ($rep != "") then
    set objlib = $rep
  endif
else
  set objlib = $4
endif
if ($objlib == "1") then
  set objlib = $pmclib
else
  if ($objlib == "2") then
    set objlib = $srvlib
  endif
endif
#
# Define the debug object library:
set dbgpmclib = $pr/lib$os/libpmc_dbg.a
set dbgsrvlib = $pr/lib$os/libserver_dbg.a
set dbgobjlib = $dbgpmclib
if ($srcfiles == "3")  then
  set dbgobjlib = $dbgsrvlib
endif
if ($5 == "") then
  echo "Enter name of object library for debug-compiled files, or"
  echo "  0 not to compile these files in debug mode,"
  echo "  1 for $dbgpmclib,"
  echo "  2 for $dbgsrvlib,"
  echo "  3 to save the object files in $objdir "
  echo "    instead of archiving them, OVERWRITING existing files, or"
  echo "  cr for "$dbgobjlib":"
  echo -n "  Debug library: "
  set rep = $<
  if ($rep != "") then
    set dbgobjlib = $rep
  endif
else
  set dbgobjlib = $5
endif
if ($dbgobjlib == "1") then
  set dbgobjlib = $dbgpmclib
else
  if ($dbgobjlib == "2") then
    set dbgobjlib = $dbgsrvlib
  endif
endif
#
# Compiler flags:
set cflags = "-c "
if ($os == $osibm) then
  set cflags = "-c -qextname"
endif
if ($os == $oshp) then
  set cflags = "-c -K +ppu"
endif
#
echo "Please ignore 'No match' warnings."
#
# Loop compiling normal and debug versions as requested:
set nn = 1
#
COMPLOOP:
#
if ($nn == 2) then
  set cflags = "$cflags -g"
  set objlib = $dbgobjlib
endif
if ($objlib != "0") then
# Delete existing object files; -f should suppress a no-files warning
  rm -f $objdir/*.o
  if ($nn == 1) then
    echo "Compiling normal version..."
  else
    echo "Compiling debug version..."
  endif
# Compile the file "srcfiles":
# Note that -o $objdir/*.o $src... would use any existing *.o
  if ($srcfiles != "0" && $srcfiles != "1" && $srcfiles != "2" && \
      $srcfiles != "3" && $srcfiles != "4") then
    f77 $cflags -o $objdir/$srcfiles.o  $srcdir/$srcfiles.f
  endif
#
# Compile standard files:
  if ($srcfiles == "1") then
    f77 $cflags -o $objdir/accchk.o    $srcdir/accchk.f
    f77 $cflags -o $objdir/bang.o      $srcdir/bang.f
    f77 $cflags -o $objdir/blockdata.o $srcdir/blockdata.f
    f77 $cflags -o $objdir/cyfld.o     $srcdir/cyfld.f
    f77 $cflags -o $objdir/ezylink.o   $srcdir/ezylink.f
    f77 $cflags -o $objdir/gephob.o    $srcdir/gephob.f
    f77 $cflags -o $objdir/grun.o      $srcdir/grun.f
    f77 $cflags -o $objdir/gufld.o     $srcdir/gufld.f
    f77 $cflags -o $objdir/gukine.o    $srcdir/gukine.f
    f77 $cflags -o $objdir/guout.o     $srcdir/guout.f
    f77 $cflags -o $objdir/gustep.o    $srcdir/gustep.f
    f77 $cflags -o $objdir/gutrev.o    $srcdir/gutrev.f
    f77 $cflags -o $objdir/gxcont.o    $srcdir/gxcont.f
    f77 $cflags -o $objdir/ph_geom.o   $srcdir/ph_geom.f
    f77 $cflags -o $objdir/ph_hit.o    $srcdir/ph_hit.f
    f77 $cflags -o $objdir/ph_init.o   $srcdir/ph_init.f
    f77 $cflags -o $objdir/ph_last.o   $srcdir/ph_last.f
    f77 $cflags -o $objdir/ph_out.o    $srcdir/ph_out.f
    f77 $cflags -o $objdir/phcomis.o   $srcdir/phcomis.f
    f77 $cflags -o $objdir/prntup.o    $srcdir/prntup.f
    f77 $cflags -o $objdir/psking.o    $srcdir/psking.f
    f77 $cflags -o $objdir/setbatch.o  $srcdir/setbatch.f
    f77 $cflags -o $objdir/stend.o     $srcdir/stend.f
    f77 $cflags -o $objdir/stlen.o     $srcdir/stlen.f
    f77 $cflags -o $objdir/stoper.o    $srcdir/stoper.f
    f77 $cflags -o $objdir/stpars.o    $srcdir/stpars.f
    f77 $cflags -o $objdir/ststr.o     $srcdir/ststr.f
    f77 $cflags -o $objdir/sttoin.o    $srcdir/sttoin.f
    f77 $cflags -o $objdir/sttorl.o    $srcdir/sttorl.f
# Compile ufile unless platform is ibm
    if ($os != $osibm) then
      f77 $cflags -o $objdir/ufile.o     $srcdir/ufile.f
    endif
    f77 $cflags -o $objdir/ugcdef.o    $srcdir/ugcdef.f
    f77 $cflags -o $objdir/ugcget.o    $srcdir/ugcget.f
    f77 $cflags -o $objdir/ugcin.o     $srcdir/ugcin.f
    f77 $cflags -o $objdir/ugconb.o    $srcdir/ugconb.f
    f77 $cflags -o $objdir/ugcons.o    $srcdir/ugcons.f
    f77 $cflags -o $objdir/ugcset.o    $srcdir/ugcset.f
    f77 $cflags -o $objdir/ugcval.o    $srcdir/ugcval.f
    f77 $cflags -o $objdir/uginit.o    $srcdir/uginit.f
    f77 $cflags -o $objdir/uglast.o    $srcdir/uglast.f
    f77 $cflags -o $objdir/uhitsout.o  $srcdir/uhitsout.f
    f77 $cflags -o $objdir/unsatrefs.o $srcdir/unsatrefs.f
    f77 $cflags -o $objdir/usanal.o    $srcdir/usanal.f
    f77 $cflags -o $objdir/uscom.o     $srcdir/uscom.f
    f77 $cflags -o $objdir/usinit.o    $srcdir/usinit.f
    f77 $cflags -o $objdir/uslast.o    $srcdir/uslast.f
    f77 $cflags -o $objdir/usout.o     $srcdir/usout.f
    f77 $cflags -o $objdir/usstep.o    $srcdir/usstep.f
    f77 $cflags -o $objdir/zabend.o    $srcdir/zabend.f
    f77 $cflags -o $objdir/zend.o      $srcdir/zend.f
  endif
#
# Compile platform-specific versions of source files
# - ufile uses "action=read" on aix (ibm), "readonly" otherwise
  if ($srcfiles == "2") then
    f77 $cflags -o $objdir/ufile.o     $srcdir/ufile.f
  endif
#
# Compile server source files:
  if ($srcfiles == "3") then
    f77 $cflags -o $objdir/blkdat_serv.o $srcdir/blkdat_serv.f
    f77 $cflags -o $objdir/ioserv.o    $srcdir/ioserv.f
    f77 $cflags -o $objdir/ipsproc.o   $srcdir/ipsproc.f
    f77 $cflags -o $objdir/opncon.o    $srcdir/opncon.f
    f77 $cflags -o $objdir/opnfil.o    $srcdir/opnfil.f
    f77 $cflags -o $objdir/opnzdk.o    $srcdir/opnzdk.f
    f77 $cflags -o $objdir/servad.o    $srcdir/servad.f
    f77 $cflags -o $objdir/server.o    $srcdir/server.f
    f77 $cflags -o $objdir/servin.o    $srcdir/servin.f
    f77 $cflags -o $objdir/servpr.o    $srcdir/servpr.f
    f77 $cflags -o $objdir/servrf.o    $srcdir/servrf.f
    f77 $cflags -o $objdir/servrq.o    $srcdir/servrq.f
    f77 $cflags -o $objdir/svralc.o    $srcdir/svralc.f
    f77 $cflags -o $objdir/svrcls.o    $srcdir/svrcls.f
    f77 $cflags -o $objdir/svrfcl.o    $srcdir/svrfcl.f
    f77 $cflags -o $objdir/svrfop.o    $srcdir/svrfop.f
    f77 $cflags -o $objdir/svroth.o    $srcdir/svroth.f
    f77 $cflags -o $objdir/ugserv.o    $srcdir/ugserv.f
  endif
#
# Compile server versions of standard source files
  if ($srcfiles == "4") then
    f77 $cflags -o $objdir/gephob.o   $srcdir/gephob.f
    f77 $cflags -o $objdir/gukine.o   $srcdir/gukine.f
    f77 $cflags -o $objdir/ph_init.o  $srcdir/ph_init.f
    f77 $cflags -o $objdir/uginit.o   $srcdir/uginit.f
    f77 $cflags -o $objdir/uglast.o   $srcdir/uglast.f
    f77 $cflags -o $objdir/uhitsout.o $srcdir/uhitsout.f
  endif
#
# Insert object files into the archive library
  if ($objlib != "3") then
    ar -r $objlib $objdir/*.o
# List library contents
    ar -t $objlib
# Delete existing object modules
    rm $objdir/*.o
  endif
#
# End of compile loop
endif
@ nn = $nn + 1
if ($nn <= 2) then
  goto COMPLOOP
endif
#
END:
exit
+DECK,CLEANRMC  ,T=DATA.
*CMZU:  2.00/13 17/11/96  18.27.43  by  Phobos (R. Verdier)
*-- Author :
# Cleanup soft links after aborted RMC execution
rm FLDASC GCDEFS GENEVS HITSOUT mcntu RHAOU RHASC
rm RHDATA RHHST rhntu RHZEB
# for server:
rm FLDASC.dat GCDEFS.dat GENEVS.dat HITSOUT.dat mcntu.dat RHAOU.dat RHASC.dat
rm RHDATA.dat RHHST.dat rhntu.dat RHZEB.dat
+DECK,LINKMC  ,T=DATA.
*CMZU:  2.03/00 23/07/97  11.07.05  by  Phobos (R. Verdier)
*-- Author :
# linkmc: shell script template to link the Phobos MC under unix
# Use: linkmc [ver] [dbg] [uds]
# where
#   [ver] = n to link normal version, or s to link server version.
#   [dbg] = n for normal, d for debug version
#   [uds] = the name of a user definitions script than may override
#           default names.  It need not contain any executable statements.
#   NOTE THAT UNDER UNIX, IF UDS REDEFINES A VARIABLE SUCH AS pr,
#   IT MUST ALSO REDEFINE ANY OTHER VARIABLE THAT REFERENCES $pr.
#   This is unnecessary in VMS where the translation is done at need.
#
# Linkmc uses the f77 compiler to link the PMC from archive
# libraries libpmc.a and, optionally, libserver.a
# The login for the system on which this is executed on will define
# the environment variable "cern" correctly for linking.
# At present, linkmc gives the following error warnings on ibm:
# ld: 0711-224 WARNING: Duplicate symbol: signgam
# ld: 0711-341 WARNING: Replaced XTY_CM symbol signgam requires an
#        alignment more strict than the alignment of the symbol that rplcs it.
# ld: 0711-345 Use the -bloadmap or -bnoquiet option to obt. more information.
# and the following warning on hp:
# ld: Duplicate symbol "_start (OUTER BLOCK)", files ...
#   (rest of message overwrites)
# 22-Jul-97  Extract and load gufld.o and ezylink.o for DEC Unix (RV)
# 06-May-97  Added load for hp-ux using ezylink.o (RV)
# 19-Mar-97  Reordered for non-server library default.
#  The link on non-ibm platforms still loads dummy versions of UGINIT/
#  GUKINE/GUFLD/USSTEP.
# 21-Nov-96  R. Verdier
#
# Define the operating system os as osf1 (DEC), aix (IBM), hp-ux (HP),
# irix (SGI), or sola (SUN?) as reported by the gnu uname function
# but converted to lower case as in other directory structures and
# the CMZ default:
set os = {`uname`}
set osdec = osf1
set osibm = aix
set oshp = hp-ux
set ossgi = irix
if ($os == OSF1) then
  set os = $osdec
else
  if ($os == AIX) then
    set os = $osibm
  else
    if ($os == HP-UX) then
      set os = $oshp
    else
      if ($os == IRIX) then
        set os = $ossgi
      else
        echo "Unknown operating system $os. Please enter operating "
        echo -n "system (aix | hp-ux | osf1 | sgi | sol): "
        set os = $<
      endif
    endif
  endif
endif
# echo Linking for the $os operating system
#
# Define the version
if ($1 != "") then
  set vers = $1
else
  set vers = "n"
  echo -n \
  "Link normal or server version (n | s) ["$vers"]? "
  set rep = $<
  if ($rep != "") then
    set vers = $rep
  endif
endif
#
# Define the normal / debug version
if ($2 != "") then
  set dbg = $2
else
  set dbg = "n"
  echo -n \
  "Link normal or debug version (n | d) ["$dbg"]? "
  set rep = $<
  if ($rep != "") then
    set dbg = $rep
  endif
endif
if ($dbg != "n" && $dbg != "N") then
  set dbg = "_dbg"
else
  set dbg = ""
endif
#
# Define the user definitions script
if ($3 != "") then
  set uds = $3
else
  set uds = lmcdefs
  echo -n \
    "Name of executable user definitions script [$uds]? "
  set rep = $<
  if ($rep != "") then
    set uds = $rep
  endif
endif
#
# Define the directory containing the main program, gephob.f:
set pmcsrc = "/phobos/u/phobos/sim/pro/srcgen"
#
# Define the directory containing the normal library libpmc.a:
set pmcdir = "/phobos/u/phobos/sim/pro/lib$os"
#
# Define the directory containing the server library libserver.a:
# This can be removed from the link if the server is unused.
set srvdir = "/phobos/u/phobos/sim/pro/lib$os"
#
# Define the libraries for the loader:
if ($vers != "s" && $vers != "S") then
  set pmclibs = "-Wl,-L$pmcdir -lpmc$dbg"
else
  set pmclibs = "-Wl,-L$srvdir -Wl,-L$pmcdir -lserver$dbg -lpmc$dbg"
endif
#
# Define the directory for the CERN libraries:
set cerndir = "/cern/97a/lib"
#
# Define the directory to contain the created executable:
# Don't create a public executables directly; link it on scratch
# and copy it to the public area.
# set exedir = "/phobos/u/phobos/sim/pro/exe"
set exedir = /scr01/rhphobos/$USER
#
# Define the name of the created executable:
set exenam = mcx$dbg.exe
if ($vers == "s") then
  set exenam = mcxs$dbg.exe
endif
#
# Define the directory for test files
# set testlib = ~/sim/...
# Modified versions for testing:
# $testlib/xxx.f ... \
#
# Execute the user definitions script to allow overriding of
# cerndir, exedir, exenam, pmcdir, pmclibs, and srvdir
source $uds
#
switch ($os)
case $osibm:   # ibm link
  f77 -v -qextname -o $exedir/$exenam \
    -Wl,-ugephob -Wl,-egephob \
    $pmclibs \
    -Wl,-L$cerndir -lgeant321 -lpawlib -lgraflib -lpacklib \
    -lgrafX11 -lkernlib -lmathlib \
     /lib/libX11.a /lib/crt0.o
  # The following are used only if doing a direct ld link:
  #  -lm -lcl -lU77 -lX11 -lc -ldld
breaksw
#
case $oshp:    # hp load
  ld -o $exedir/$exenam \
    $pmcdir/ezylink.o \
    -L$pmcdir -lpmc /lib/crt0.o \
    -L/cern/pro/lib -lgeant321 -lpawlib -lgraflib -lpacklib \
    -lgrafX11 -lkernlib -lmathlib \
    -lm -lcl -lU77 -lX11 -lc -ldld
breaksw
#
case $osdec:   # dec link
# -Ugephob -Uezylink does not work, so extract and load them
  set defdir = $PWD
  cd $exedir
  ar x $pmcdir/libpmc$dbg.a gephob.o ezylink.o
  f77 -v -o $exedir/$exenam \
    gephob.o ezylink.o $pmclibs \
    -Wl,-L$cerndir -lgeant321 -lpawlib -lgraflib -lpacklib \
    -lgrafX11 -lkernlib -lmathlib \
    -ldnet_stub  /lib/libX11.a
  rm gephob.o ezylink.o
  cd $defdir
breaksw
#
default:       # all others
#
  f77 -v -o $exedir/$exenam \
    $pmcsrc/gephob.f \
    $pmclibs \
    -Wl,-L$cerndir -lgeant321 -lpawlib -lgraflib -lpacklib \
    -lgrafX11 -lkernlib -lmathlib \
    -ldnet_stub  /lib/libX11.a
endsw
#
echo Linked the Phobos MC executable $exedir/$exenam
exit
+DECK,RMC  ,T=DATA.
*CMZU:  2.03/01 27/07/97  11.10.06  by  Phobos (R. Verdier)
*-- Author :
# rmc: Script to run the Phobos MC
# Use: rmc label udefs [env] [vers]
# Ex: rmc hijet mcx
# label  is the output file base name, producing files like <label>.ntu;
#          it defaults to "temp"
# udefs  is the name of a script that assigns the actual names of the
#          input and output files; it defaults to "rmcdefs"
#          NOTE THAT IF UDEFS REDEFINES A VARIABLE SUCH AS pr, IT MUST
#          ALSO REDEFINE EVERY OTHER VARIABLE THAT REFERENCES $pr.  This
#          is unnecessary in VMS, where the translation is done at need.
# env    is e to use environment variables for filenames, anything else
#          to use symbolic links; it defaults to "e" without a prompt
# vers   is the version to be run, n for normal, s for server;
#          it defaults to "n" without a prompt
# Notes:
# (1) the X-display device must be defined first, for example by
#     > setenv DISPLAY <display IP name or address>:0
#     The workstation type is 1.  Alternatively, you can specify 0
#     for no graphics, or 7878 for a bad Tektronix 4105 emulation.
# (2) The run procedure will fail with continual read or write error
#     messages if an input file does not exist or an output file already
#     exists.  Typing control-C will usually not interrupt the job;
#     control-Z will sometimes suspend it so you can KILL it.
#     If this happens, check the files assignments in your udefs script,
#     use a different label for each run, and, if all else fails, name
#     every input or output file defined below explicitly (no $'s).
# (3) The environment variables specifying the names of files do not
#     affect and are not affected by the user's external environment
#     or by other simultaneous MC runs.  Symbolic file links do affect
#     simultaneous runs, and therefore should be submitted from different
#     work directories.  A script, .../unix/cleanrmc, will delete the
#     symbolic links that remain when you abort a run.
# (4) The default output is to your area on scratch disk scr01.
#
# 25-Jul-97: Optionally specify filenames as environment variables
# 22-Mar-97: Update default field and geometry file
# 4-Sep-96: Creation  (R. Verdier)
#
# Definitions:
#
# Operating system name for default executable directory
set os = {`uname`}
if ($os == OSF1) then
  set os = osf1
else
  if ($os == AIX) then
    set os = aix
  else
    if ($os == HP-UX) then
      set os = hp-ux
    else
      if ($os == IRIX) then
        set os = irix
      else
        echo "Unknown operating system $os. Please enter operating system,"
        echo -n "such as aix, for default executable dir .../exe[os]: "
        set os = $<
      endif
    endif
  endif
endif
#
# Phobos root directory:
# set pr = /scratchp/phobos/sim/pro  # pierre or Ralph2 at MIT/LNS
# set pr = /scr01/rhphobos/$USER # BNL test version
 set pr = /u3/phobos/sim/pro # BNL standard version
#
# Output file directory:
# set scr = /scratch/$USER
set scr = /scr01/rhphobos/$USER
#
# Output file base name:
set label = temp
if ($1 == "") then
  echo -n \
  "Output file base name ["$label"]? "
  set rep = $<
  if ($rep != "") then
    set label = $rep
  endif
else
  set label = $1
endif
#
# User definitions script file:
set udefs = "rmcdefs"
if ($2 == "") then
  echo -n \
  "User definitions file ["$udefs"]? "
  set rep = $<
  if ($rep != "") then
    set udefs = $rep
  endif
else
  set udefs = $2
endif
#
# Environment variables | soft links:
setenv env "e"
if ($3 != "") then
  setenv env $3
endif
#
# Version = normal | server:
set vers = "n"
if ($4 != "") then
  set vers = $4
endif
# Force version to null or s
if ($vers != "s" && $vers != "S") then
  set vers = ""
endif
#
# Define the soft links with ".dat" for the server version
set slex = ""
if ($vers != "") then
  set slex = ".dat"
endif
#
# Executable image:
set exe = $pr/exe$os/mcx$vers.exe
#
# Standard directory for data files
set pmc_dat = $pr/dat
#
if ($env == "e") then
# Input files specified by environment variables:
# Control options:
  setenv RHDATA $pmc_dat/control.txt
# Geometry definitions:
  setenv GCDEFS $pmc_dat/ugcdata_v37.txt
# Magnetic field map:
  setenv FLDASC $pmc_dat/phomagv108.txt
# Tracks:
  setenv GENEVS $pmc_dat/auau_hijet_centr_100.adat
else
# Input files specified by symbolic links:
  ln -f -s $pmc_dat/control.txt  RHDATA$slex
  ln -f -s $pmc_dat/ugcdata_v37.txt  GCDEFS$slex
  ln -f -s $pmc_dat/phomagv108.txt  FLDASC$slex
  ln -f -s $pmc_dat/auau_hijet_centr_100.adat  GENEVS$slex
endif
#
if ($env == "e") then
# Output files specified by symbolic links:
# Ascii output:
  setenv RHAOU $scr/$label\aou.txt
# Histograms:
  setenv RHHST $scr/$label.hst
# Messages:
  setenv RHASC $scr/$label.lis
# Ntuples:
# Under Unix, hropen translates the logical names to lower case:
  setenv rhntu $scr/$label.ntu
  setenv mcntu $scr/$label\mc.ntu
# Zebra banks:
  setenv RHZEB $scr/$label.fz
else
# Output files specified by environment variables:
  ln -f -s $scr/$label\aou.txt   RHAOU$slex
  ln -f -s $scr/$label.hst       RHHST$slex
  ln -f -s $scr/$label.lis       RHASC$slex
  ln -f -s $scr/$label.ntu       rhntu$slex
  ln -f -s $scr/$label\mc.ntu    mcntu$slex
  ln -f -s $scr/$label.fz        RHZEB$slex
endif
#
# Execute the user definitions script:
if ($udefs != "") then
  source $udefs
endif
#
# Execute the MC
$exe
#
if ($env != "e") then
# Remove the symbolic links.  The  cleanrmc  script can be executed to
# do this if the run aborts or is aborted.
  rm GENEVS$slex
  rm GCDEFS$slex
  rm FLDASC$slex
  # rm HITSOUT$slex
  rm RHDATA$slex
  rm RHHST$slex
  rm RHAOU$slex
  rm RHASC$slex
  rm rhntu$slex
  rm mcntu$slex
  rm RHZEB$slex
endif
exit
+DECK,RMCDEFS  ,T=DATA.
*CMZU:  2.03/01 27/07/97  11.10.15  by  Phobos (R. Verdier)
*-- Author :
# rmcdefs: Udefs script sourced by rmc to define Phobos MC user files
# Use: copy and edit as required.
#
#   NOTE THAT UNDER UNIX, IF UDEFS REDEFINES A VARIABLE SUCH AS pr,
#   IT MUST ALSO REDEFINE ANY OTHER VARIABLE THAT REFERENCES $pr.
#   This is unnecessary in VMS where the translation is done at need.
#
# 25-Jul-97: Optionally use environment variables for filenames
# 22-Mar-97: Update default geometry file, add warnings
# 04-Sep-96: Creation  (R. Verdier)
#
# Phobos root directory:
# set pr = /scratch/$USER  # Ralph2 test version
# set pr = /scratchp/phobos/sim/pro  # Ralph2 test version
# set pr = /scr01/rhphobos/$USER/test  # BNL test version
# set pr = /u3/phobos/sim/pro  # BNL standard version
#
# Output file directory:
# set scr = /scr01/rhphobos/$USER
#
# Define the soft links with ".dat" for the server version
# set slex = ""
# if ($vers == "") then
#   set slex = ".dat"
# endif
#
# Executable image:
# set exe = $pr/exe$os/mcx$vers.exe
#
# Directory for data files:
# set pmc_dat = $pr/dat
#
if ($env == "e") then
# Environment variables specifying input files:
# Control options:
#  setenv RHDATA $pmc_dat/control.txt
# Geometry definitions:
#  setenv GCDEFS $pmc_dat/ugcdata_v37.txt
# Magnetic field map:
#  setenv FLDASC $pmc_dat/phomagv108.txt
# Tracks:
#  setenv GENEVS $pmc_dat/auau_hijet_centr_100.adat
# Environment variables specifying output files:
# Ascii output:
#  setenv RHAOU $scr/$label\aou.txt
# Histograms:
#  setenv RHHST $scr/$label.hst
# Messages:
#  setenv RHASC $scr/$label.lis
# Ntuples:
# Under Unix, hropen translates the logical names to lower case:
#  setenv rhntu $scr/$label.ntu
#  setenv mcntu $scr/$label\mc.ntu
# Zebra banks:
#  setenv RHZEB $scr/$label.fz
else
# Soft links for input files:
#  ln -f -s $pmc_dat/control.txt  RHDATA$slex
#  ln -f -s $pmc_dat/ugcdata_v37.txt  GCDEFS$slex
#  ln -f -s $pmc_dat/phomagv108.txt  FLDASC$slex
#  ln -f -s $pmc_dat/auau_hijet_centr_100.adat  GENEVS$slex
# Soft links for output files:
#  ln -f -s $scr/$label\aou.txt   RHAOU$slex
#  ln -f -s $scr/$label.hst       RHHST$slex
#  ln -f -s $scr/$label.lis       RHASC$slex
#  ln -f -s $scr/$label.ntu       rhntu$slex
#  ln -f -s $scr/$label\mc.ntu    mcntu$slex
#  ln -f -s $scr/$label.fz        RHZEB$slex
endif

+DECK,LMCDEFS  ,T=DATA.
*CMZU:  2.03/00 23/07/97  11.07.06  by  Phobos (R. Verdier)
*-- Author :
# lmcdefs: user definition script template for phobos linkmc
# Use: copy to your work area, uncomment and changed the listed
# default values if required to override exedir, exenam, pmcdir,
# pmclibs, and srvdir.  The linkmc script requires lmcdefs, but
# it does not have to have any executable statements.
# You MUST use chmod +x <lmcdefs file> to make it executable
# itself; otherwise you'll get a "permission denied" error.
#   NOTE THAT UNDER UNIX, IF UDS REDEFINES A VARIABLE SUCH AS pr,
#   IT MUST ALSO REDEFINE ANY OTHER VARIABLE THAT REFERENCES $pr.
#   This is unnecessary in VMS where the translation is done at need.
#
# 06-May-97  Added pmcsrc (RV)
# 19-Mar-97  Reorder for non-server default
# 21-Nov-96  R. Verdier
#
# System and version are set on the command line or interactively:
# System (aix, osf1, hp-ux, irix, sola?:
# set os = "aix"
# Version: n for normal, s for server:
# set vers = "n"
# debug option: "" or "_dbg"
# set dbg = ""
# Directory to contain the created executable:
# set exedir = /scr01/rhphobos/$USER
# Name of the created executable:
# set exenam = mcx$dbg.exe
# if ($vers == "s" | $vers == "S") then
#   set exenam = mcxs$dbg.exe
# endif
# Define the directory containing the main program, gephob.f:
# set pmcsrc = "/phobos/u/phobos/sim/pro/srcgen"
# Directory containing the normal library libpmc.a:
# set pmcdir = "/phobos/u/phobos/sim/pro/lib$os"
# Directory containing the server library libserver.a:
# This is unnecessary unless the server version is being used.
# set srvdir = "/phobos/u/phobos/sim/pro/lib$os"
# PMC libraries:
# set pmclibs = "-Wl,-L$pmcdir -lpmc$dbg"
# if ($vers == "s" | $vers == "S") then
#   set pmclibs = "-Wl,-L$srvdir -Wl,-L$pmcdir -lserver$dbg -lpmc$dbg"
# endif
# Define the directory for the CERN libraries:
# set cerndir = "/cern/97a/lib"
# End of lmcdefs
+PATCH,AWK.
*CMZU:  2.00/13 17/11/96  18.29.52  by  Phobos (R. Verdier)
+DECK,TOFPP  ,T=DATA.
*CMZU:  2.00/15 08/01/97  12.13.45  by  Phobos (R. Verdier)
*-- Author :
# tofpp.awk: script to convert fortran files extracted from a
# CMZ library to Unix f77 preprocessor form
# Use:  awk -f tofpp.awk [-v outdir=...] [-v outext=...] [-v incext=...] \
#         [-v inccmd=...] [-v report=...]] filename[s]
# Ex:   awk -f tofpp.awk -v outdir=/u3/phobos/sim/new/incpp/ \
#         -v inccmd='      include "/u3/phobos/sim/new/incpp/' \
#         -v incext='.inc"' -v outext=.inc  /scr01/rhphobos/$USER/*.inc
#       awk -f tofpp.awk -v outdir=/u3/phobos/sim/new/srcpp/ \
#         -v inccmd='      include "/u3/phobos/sim/new/incpp/' \
#         -v incext='.inc"' -v outext=.F    /scr01/rhphobos/$USER/*.f
# where
# outdir is the directory for created files, with a terminal "/".
#   If outdir is not specified, no files will actually be created.
#   Thus to create files in the default directory, use outdir=$cwd.
#   Note: awk fails if outdir begins with "~".
# outext is the filename extension for the created output files after
#   stripping the original extension, if any; the default, ".F", is
#   correct for OSF Fortran to do c-preprocessing.
#   THIS MUST BE DIFFERENT FROM THE SOURCE'S EXTENSION IF SOURCE AND
#   CREATED FILES ARE IN THE SAME DIRECTORY, TO AVOID A POTENTIAL
#   INFINITE WRITE LOOP.
# incext is the filename extension for the include-files; the default
#   is .inc".  Note the terminal ".
# inccmd is the string to replace "+SEQ," for included files: the
#   default '#include "$pmc_inc/' with incext = '.inc"' is for the
#   c-preprocessor, invoked by f77 if the filename extension is .F
#   or if the -cpp switch is invoked.
#   The form "      include '$pmc_inc/" with incext = ".inc'" lets
#   f77 do the including, but the included files will not be preprocessed.
# report = 0 for no diagnostic printout, 1 for a summary [default],
#   2 to add a list of created files, 3 to add a list of converted lines,
#   4 to list all output lines.
# To extract the files from the CMZ library, first execute the CMZ commands
#   file $pr/sim/pro/cmz/phosim -r
#   cd for
#   set *.f -f text
#   ctot *
#   cd ../inc
#   set *.inc -f text
#   ctot *
#   exit
# and then run awk using tofpp as above on the extracted .f and .inc files.
# Include -cpp in the f77 compile to preprocess the #if statements.
# To include " in an argument, surround the argument with ' ';
# to include ', surround it with " ".
# This procedure handles the cmz SELF, IF= ... SELF, IF=-... used in
# the CMZ files by inserting an #endif if required, assuming there are
# no second level SELF nests.
# To define a variable for conditional compilation, use -D<name>,
# for example -DEUCARD to define EUCARD to be 1.
#
# Status on Ralph2:
# The f77 compiler preprocesses files if they have extension .F or if
# you specify -cpp in the f77 command.  The f77 INCLUDE statement does
# not preprocess the included files, so since some .inc files include
# other files, we have to use the #include "filename" form.
# The preprocessor substitutes blank lines for unused lines of code.
# $pmc_inc or any other substitutable variable is NOT substituted
# by the c-preprocessor, though $cwd works in the command line.
# 8-Jan-97: Run on RHPX00; comments updated.
# 25-Sep-96: Original, R. Verdier
#
BEGIN \
{ # Set and optionally override defaults:
  outd = ""
  if (outdir != "") outd = outdir;
  outx = ".F"; # OSF form
  if (outext != "") outx = outext;
  incc = "#include \"$pmc_inc/"
  if (inccmd != "") incc = inccmd;
  incx = ".inc\"";
  if (incext != "") incx = incext;
  rep = 0;
  if (report != "") rep = report;
  # End of options
  # Remind user if no files are to be created
  if (outd == "" && rep > 0)
    print "No output directory was specified, so no files will be created.";
  nmods = 0;
  iflev = 0; # Depth of CMZ IF= statements
  prevfile = ""
}
{ if (FILENAME != prevfile && outd != "")
  { infile = FILENAME;
    while (index(infile, "/") != 0)
      infile = substr(infile, index(infile, "/") + 1);
    if (index(infile, ".") > 0)
      infile = substr(infile, 1, index(infile, ".") - 1);
    outfile = outd""infile""outx;
    if (rep >= 2) print "Converting "FILENAME" to "outfile;
    prevfile = FILENAME
  }
  orig = $0;
  if (index($0,"+SEQ, ") == 1)
    $0 = incc""tolower(substr($0,7,length($0)-7))incx;
  else
  { if (index($0,"+SEQ,") == 1)
    $0 = incc""tolower(substr($0,6,length($0)-6))incx;
    else
    { if (index($0,"+SELF,IF=-") > 0)
      { $0 = "#ifndef "substr($0,11,length()-11);
        iflev++;
      }
      else
      { if (index($0,"+SELF,IF=") > 0)
        { $0 = "#ifdef "substr($0,10,length()-10);
          iflev++;
        }
        else
        { if (index($0,"+SELF") > 0)
          { $0 = "#endif";
            iflev--;
          }
        }
      }
    }
  }
  if ($0 != orig)
  { if (iflev > 1)
    { if (outfile != "") print "#endif" > outfile;
      if (rep == 3) print FILENAME, " line ", FNR-1, " inserted #endif";
      if (rep == 4) print "#endif";
      iflev--
    }
    if (rep == 3) print FILENAME, " line ", FNR, ": ", orig, "==>", $0;
    nmods++
  }
  if (outfile != "") print $0 > outfile;
  if (rep == 4) print $0;
}
END { if (rep >= 1) print nmods, " out of ", NR, " lines changed." }
+PATCH,$D020015GUK.
*CMZ :  2.01/00 12/03/97  22.28.32  by  Phobos (R. Verdier)
+DECK,INFO.                      Updates version:  2.00/15  to   2.01/00
*CMZU:  2.01/00 12/03/97  22.28.32  by  Phobos (R. Verdier)
*-- Author :
* GUKINE: correct phi selection criterion
* PH_OUT: add end of header line in AOU file
* UGINIT: update version # SIMVER = 2.16
* UGLAST: include GCNUM to define an undefined variable,
* RHSIL: increase storage limit on # of detector planes to 180 (KW)
+PATCH,$D020100GEP.
*CMZ :  2.01/01 12/03/97  22.29.40  by  Phobos (R. Verdier)
+DECK,INFO.                      Updates version:  2.01/00
*CMZU:  2.01/01 12/03/97  22.29.40  by  Phobos (R. Verdier)
*-- Author :
* GEPHOB: Change NWGEAN from 3.0 to 3.2 M, NWPAW from .5 to .4 M;
* STOPER added, with formatting error fixed (RV)
* LINKMC, LMCDEFS, MCG, MCGD, MCX, MCXD, RMC, RMCDEFS: update
* defaults for pmc_exe and gcdefs
* The installer UPDATE20.KUMAC also clears some obsolete files
* and includes the geometry file UGCDATA_V35.TXT
+PATCH,$D020101PRO.
*CMZ :  2.01/02 14/03/97  17.11.16  by  Phobos (R. Verdier)
+DECK,INFO.                      Updates version:  2.01/01
*CMZU:  2.01/02 14/03/97  17.11.16  by  Phobos (R. Verdier)
*-- Author :
* Command procedures: change default version to PRO
* RMC.COM: refer to NEW for magnetic field
* LINKMC.COM: set UserLib = " "
+PATCH,$D020102BAN.
*CMZ :  2.02/00 30/03/97  10.01.48  by  Phobos (R. Verdier)
+DECK,INFO.                      Updates version:  2.01/02
*CMZU:  2.02/00 30/03/97  10.01.48  by  Phobos (R. Verdier)
*-- Author :
* BANG.FOR: STOP -> call STOPER (KW)
* EZYLINK.FOR: removed unused references (RV)
* PH_GEOM.FOR: New subroutine to enter geometry data into AOU file (KW)
* PH_HIT.FOR: removed pixelization code and UHITSOUT call (KW)
* PH_OUT.FOR: replaced AOU plane names by indices; removed UHITSOUT call (KW)
* UFILE.FOR: Status new -> unknown for OSF1; add error reporting (RV)
* UGCDEF.FOR: compensate for overflows in reading UGCDATA (KW)
* UGCSET.FOR: changed GS SET SLP and IUDET; added GS SET PADS (KW)
* UGINIT.FOR: vers 2.02: removed unused commands SILD and SILP (KW)
* UHITSOUT.FOR: REMOVED ALL CODE (KW)
* RMC.INC: Update default UGCDATA filename (RV)
* RHSIL.INC:  removed SPL, added PADS data (KW)
* UJKBUF.INC: added comment (KW)
* COMPHO.: add ph_geom and stoper, remove ugeom (RV)
* LINKMC.: reorder for normal (non-server) version (RV)
* LMCDEFS.: reorder for normal (non-server) version (RV)
* RMC.: Update default FLDASC and UGCDATA filenames (RV)
* RMCDEFS.: Update default FLDASC and UGCDATA filenames (RV)
+PATCH,$D020201EXP.
*CMZ :  2.02/01 16/07/97  15.00.20  by  Phobos (R. Verdier)
+DECK,INFO.                      Updates version:  2.02/00
*CMZU:  2.02/01 16/07/97  15.00.20  by  Phobos (R. Verdier)
*-- Author :
* COMPHO.: Add flags -K +ppu for hp-ux (RV)
* CONTROL.TXT: Add TLIM (see GRUN)
* EXPHO.KUMAC: Change selectors to aix, hp-ux, osf1, ... (RV)
* GRUN.FOR: Control time limit response by new variable TLIM (KW)
* INSTALL.DOC: Unix installation instructions added (RV)
* LINKMC.COM: Provide for GXINT as main to create PostScript output (AT);
*   add load for hp-ux using ezylink.o (RV)
* LMCDEFS.COM: Provide for GXINT as main to create PostScript output (AT);
*   add pmcsrc (RV)
* MC*.COM: Version NEW (RV)
* RHSIL.INC: Increased NSLPM to 500 (KW)
* RMC.COM: Version NEW; geometry file V3.7 (RV)
* RMCDEFS.COM: (see RMC)
* PH_GEOM.FOR: Correct error when no rotation matrices are defined (KW)
* PH_OUT.FOR: Expand write fieldwidths, add IOSTAT (KW)
* SMC.COM: Version NEW (RV)
* TLIMIT.INC: New common (KW)
* UFILE.FOR: Change selectors to AIX, HP-UX, OSF1, and VMS (RV)
* UGCDATA_V36.TXT: Correct pad sizes (KW)
* UGCDATA_V37.TXT: Many corrections including Al plate density (AT)
*   note that version 3.6 should NOT be used.
* UGINIT.FOR: Read TLIMIT (KW)
+PATCH,$D020201GUF.
*CMZ :  2.03/00 04/08/97  17.01.34  by  Phobos (R. Verdier)
+DECK,INFO.                      Updates version:  2.02/01
*CMZU:  2.03/00 04/08/97  17.01.34  by  Phobos (R. Verdier)
*-- Author :
* GUFLD.FOR: modified code to enable magnetic field maps with
*            large number of submaps;
*            additional parameter in the map  PHOIND  informs
*            that a map can be moved (or can not be moved)
*            using  MOFF  parameter (KW)
* PH_GEOM.FOR: added code to test consistency of pixel and planes sizes
*              with number of divisions (KW)
* UGCDEF.FOR: added code to handle new command GS DVN (KW)
* UGCSET.FOR: added initialization for GS DVN (KW)
* UGINIT.FOR: increased PMC version number to  2.03 (KW)
* $RHSIL.INC: added tables for division numbers of silicon detectors (KW)
* RMC.COM: Default magnetic field file -> PHOMAGV108.TXT (RV)
* RMCDEFS.COM: Default magnetic field file -> PHOMAGV108.TXT
* EXPHO.KUMAC: .TXT -> .DOC for documents;
*   correct Ralph2 default directory (RV)
* TOPVIEW.KUMAC: Remove volumes not in UGCDATA v. 3.7 (RV)
* LINKMC. Extract and load gufld.o and ezylink.o for DEC Unix;
*   use CERN 97a libraries (RV)
* LMCDEFS.: use CERN 97a libraries (RV)
* RMC. and RMCDEFS.: Default magnetic field file -> PHOMAGV108.TXT;
*   default geometry file -> UGCDATA_V37.TXT (RV)
* INSTALL.DOC: Unix installation instructions added (RV)
+PATCH,$D020300UFI.
*CMZ :  2.03/01 04/08/97  17.04.20  by  Phobos (R. Verdier)
+DECK,INFO.                      Updates version:  2.03/00
*CMZU:  2.03/01 04/08/97  17.04.20  by  Phobos (R. Verdier)
*-- Author :
* PH_INIT.FOR: give translated filename to HROPEN if available (RV)
* UFILE.FOR: modified to use environment variables, if defined, for
*   filenames (DMcL)
* INSTALL.DOC: update documentation to include environment variables
*   and server version status. (RV)
* RMC: modified to use either environment variables or symbolic links (RV)
* RMCDEFS: modified to use either environment variables or symbolic links (RV)