Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- egsnrc.macros:
- Line 625:
- REPLACE {;COMIN/EMF-INPUTS/;} WITH {;
- common/emf_inputs/ExIN,EyIN,EzIN, "E field"
- BxIN,ByIN,BzIN,
- EMLMTIN,
- BxminIN,BxmaxIN,
- ByminIN,BymaxIN,
- BzminIN,BzmaxIN; "B field"
- $REAL ExIN,EyIN,EzIN,
- BxIN,ByIN,BzIN,
- EMLMTIN,
- BxminIN,BxmaxIN,ByminIN,BymaxIN,BzminIN,BzmaxIN;
- };
- get_inputs.mortan:
- Line 1170:
- $INTEGER ival,num_ecut,num_pcut,num_smax,num_incoh,num_radc,num_coh,num_relax,
- num_pe_ang,num_brems_ang,num_brems_cs,num_pair_cs,
- num_ffmed,num_ffiles,
- num_pair_ang,num_eii,num_eii_L,num_estepe,num_ximax,num_triplet,
- num_pxsec,num_pxsec_out, num_cxsec,
- num_photonuc, num_photonuc_xsec,"Ali:photonuc, 1 line"
- num_efield, num_bfield, num_emlmt, num_bfieldl, "EMH: EM fields"
- num_spin,num_bca,num_alg,num_skin,itmp,iitmp,i,j,k,istart,iend,
- egs_open_file,lnblnk1;
- Line 1491:
- " B-Field-Limits "
- ival = ival + 1;
- num_bfieldl = ival; "Set the variable pointer"
- values_sought(ival) = $B_FIELD_LIMITS; "The code word"
- nvalue(ival) = 6; "6 inputs"
- type(ival) = 1; "A real number"
- value_min(ival) = -500; "Define the allowed range"
- value_max(ival) = 500;
- default(ival) = 0;
- Line 1619:
- IF( error_flags(num_bfieldl) = 0 ) [
- BxminIN = value(num_bfieldl,1);
- BxmaxIN = value(num_bfieldl,2);
- ByminIN = value(num_bfieldl,3);
- BymaxIN = value(num_bfieldl,4);
- BzminIN = value(num_bfieldl,5);
- BzmaxIN = value(num_bfieldl,6);
- ]
- transportp.macros:
- Line 79:
- REPLACE {$B_FIELD_LIMITS} WITH {'Magnetic Field Limits'}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement