Advertisement
Guest User

Untitled

a guest
Feb 15th, 2017
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. egsnrc.macros:
  2.  
  3. Line 625:
  4. REPLACE {;COMIN/EMF-INPUTS/;} WITH {;
  5.     common/emf_inputs/ExIN,EyIN,EzIN, "E field"
  6.                      BxIN,ByIN,BzIN,
  7.                      EMLMTIN,
  8.                      BxminIN,BxmaxIN,
  9.                      ByminIN,BymaxIN,
  10.                      BzminIN,BzmaxIN;  "B field"
  11.  
  12.    $REAL    ExIN,EyIN,EzIN,
  13.             BxIN,ByIN,BzIN,
  14.             EMLMTIN,
  15.             BxminIN,BxmaxIN,ByminIN,BymaxIN,BzminIN,BzmaxIN;
  16. };
  17.  
  18.  
  19.  
  20. get_inputs.mortan:
  21.  
  22. Line 1170:
  23. $INTEGER  ival,num_ecut,num_pcut,num_smax,num_incoh,num_radc,num_coh,num_relax,
  24.           num_pe_ang,num_brems_ang,num_brems_cs,num_pair_cs,
  25.           num_ffmed,num_ffiles,
  26.           num_pair_ang,num_eii,num_eii_L,num_estepe,num_ximax,num_triplet,
  27.           num_pxsec,num_pxsec_out, num_cxsec,
  28.           num_photonuc, num_photonuc_xsec,"Ali:photonuc, 1 line"
  29.           num_efield, num_bfield, num_emlmt, num_bfieldl, "EMH: EM fields"
  30.           num_spin,num_bca,num_alg,num_skin,itmp,iitmp,i,j,k,istart,iend,
  31.           egs_open_file,lnblnk1;
  32.  
  33.  
  34. Line 1491:
  35. " B-Field-Limits "
  36. ival                = ival + 1;
  37. num_bfieldl         = ival;                     "Set the variable pointer"
  38. values_sought(ival) = $B_FIELD_LIMITS;           "The code word"
  39. nvalue(ival)        = 6;                        "6 inputs"
  40. type(ival)          = 1;                        "A real number"
  41. value_min(ival)     = -500;                    "Define the allowed range"
  42. value_max(ival)     =  500;
  43. default(ival)       =  0;
  44.  
  45. Line 1619:
  46. IF( error_flags(num_bfieldl) = 0 ) [
  47.     BxminIN = value(num_bfieldl,1);
  48.     BxmaxIN = value(num_bfieldl,2);
  49.     ByminIN = value(num_bfieldl,3);
  50.     BymaxIN = value(num_bfieldl,4);
  51.     BzminIN = value(num_bfieldl,5);
  52.     BzmaxIN = value(num_bfieldl,6);
  53. ]
  54.  
  55.  
  56.  
  57. transportp.macros:
  58.  
  59. Line 79:
  60. REPLACE {$B_FIELD_LIMITS} WITH {'Magnetic Field Limits'}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement