*---------------------------------------------------------------------* * Include File fields.inc * * * *---------------------------------------------------------------------* * * C DELTA_Z(RHO)_FIELD - STEP IN Z (R) DIRECTION * C Z_MIN(MAX)_FILED - BEGINING(END) OF FIELD MAP (Z) * C RHO_MIN(MAX)_FIELD - BEGINING (END) OF FIELD MAP (RHO) * C DELTA_PHI_GAP - GAP AZIMUTHAL REGION * C DELTA_PHI_FIELD - STEP IN AZIMUTHAL DIRECTION * C * C last modified on 11/2/98 by R.Holzmann * *********************************************************************** integer*4 n_phi_max,no_of_phi_cuts,no_of_coils,n_z_max,n_rho_max Parameter (no_of_phi_cuts=13,no_of_coils=6) Parameter (n_z_max=150,n_rho_max=170) Parameter (N_PHI_MAX=no_of_phi_cuts-1) REAL*4 FX1(no_of_phi_cuts,n_z_max,n_rho_max), 1 FY1(no_of_phi_cuts,n_z_max,n_rho_max), 1 FZ1(no_of_phi_cuts,n_z_max,n_rho_max) * PARAMETRES FOR FIELD INTERPOLATION REAL*4 DELTA_Z_FIELD1, Z_MIN_FIELD1, Z_MAX_FIELD1, + DELTA_RHO_FIELD1, RHO_MIN_FIELD1, RHO_MAX_FIELD1, + DELTA_PHI_GAP1, DELTA_PHI_FIELD1, DELTA_PHI2_GAP1 COMMON /FIELD1/ FX1, FY1, FZ1, + DELTA_Z_FIELD1, Z_MIN_FIELD1, Z_MAX_FIELD1, + DELTA_RHO_FIELD1, RHO_MIN_FIELD1, RHO_MAX_FIELD1, + DELTA_PHI_GAP1, DELTA_PHI_FIELD1, DELTA_PHI2_GAP1 REAL*4 BFIELD COMMON /HADES_BFIELD/ BFIELD