Commit f7704f6a authored by Thomas Planche's avatar Thomas Planche
Browse files

added some missing files

parent a20fe6b0
COMMON/COC/ COLAB(MCOF)
PARAMETER (NHDFL=4) ! Default NH value, case obj3.N w/ N=0
C ZGOUBI, a program for computing the trajectories of charged particles
C in electric and magnetic fields
C Copyright (C) 1988-2007 François Méot
C
C This program is free software; you can redistribute it and/or modify
C it under the terms of the GNU General Public License as published by
C the Free Software Foundation; either version 2 of the License, or
C (at your option) any later version.
C
C This program is distributed in the hope that it will be useful,
C but WITHOUT ANY WARRANTY; without even the implied warranty of
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
C GNU General Public License for more details.
C
C You should have received a copy of the GNU General Public License
C along with this program; if not, write to the Free Software
C Foundation, Inc., 51 Franklin Street, Fifth Floor,
C Boston, MA 02110-1301 USA
C
C François Méot <fmeot@bnl.gov>
C Brookhaven National Laboratory
C C-AD, Bldg 911
C Upton, NY, 11973
C -------
INTEGER MXL, MXD
C Max lmnts in a structure, max data (in zgoubi data list) per lmnt
C For compare tool
PARAMETER (MXL= 8000, MXD=1200)
C ZGOUBI, a program for computing the trajectories of charged particles
C in electric and magnetic fields
C Copyright (C) 1988-2007 François Méot
C
C This program is free software; you can redistribute it and/or modify
C it under the terms of the GNU General Public License as published by
C the Free Software Foundation; either version 2 of the License, or
C (at your option) any later version.
C
C This program is distributed in the hope that it will be useful,
C but WITHOUT ANY WARRANTY; without even the implied warranty of
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
C GNU General Public License for more details.
C
C You should have received a copy of the GNU General Public License
C along with this program; if not, write to the Free Software
C Foundation, Inc., 51 Franklin Street, Fifth Floor,
C Boston, MA 02110-1301 USA
C
C François Méot <fmeot@bnl.gov>
C Brookhaven National Laboratory
C C-AD, Bldg 911
C Upton, NY, 11973
C -------
INTEGER MXL, MXD
C Max lmnts in a structure, max data (in zgoubi data list) per lmnt
C PARAMETER (MXL=3500 , MXD=400)
C PARAMETER (MXL=7800 , MXD=400)
C-- For LHC
C PARAMETER (MXL=15000 , MXD=400)
C
C For eRHIC since [KOBJ].KOBJ2 up to [5.]999 (*11 yields 10989)
PARAMETER (MXL=10000, MXD=1200)
Some of the xxx_2.H or xxx_3.H variants can be easily removed. I found that to be the case for C.CHAVE.H, in toroid, its variables are not used. Then, C.CHAVE_2.H can be renamed to C.CHAVE.H
Some of the xxx_2.H or xxx_3.H variants are easy to change to xxx.H. For instance grep C.RIGID_2.H in [pathTo]/zgoubi/*f: it yields a handful of routines, in which DP can be changed to whatever convenient and then DPPP to DP, and then C.RIGID_2.H to C.RIGID.H.
In some cases, TBD, it may require a little more work to remove, if useful, the xxx_2.C or xxx_3.C variant. It seems it is the case for instance for C.AIM.H.
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment