get_inputs.mortran:
Added:

ival                = ival + 1;
num_bfieldlimits    = 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;

IF( error_flags(num_bfieldlimits) = 0 ) [
    BxminIN = value(num_bfieldlimits,1);
    BxmaxIN = value(num_bfieldlimits,2);
    ByminIN = value(num_bfieldlimits,3);
    BymaxIN = value(num_bfieldlimits,4);
    BzminIN = value(num_bfieldlimits,5);
    BzmaxIN = value(num_bfieldlimits,6);
]

transportp.macros:
Added:
REPLACE {$B_FIELD_LIMITS} WITH {'Magnetic Field Limits'}

egsnrc.macros:
Edited:
REPLACE {;COMIN/EMF-INPUTS/;} WITH {;
    common/emf_inputs/ExIN,EyIN,EzIN, "E field"
                     BxIN,ByIN,BzIN,
                     BxminIN,BxmaxIN,
                     ByminIN,BymaxIN,
                     BzminIN,BzmaxIN,  "B field"
                     EMLMTIN;         "Ekin, u, E fractional maximum change"
   $REAL    ExIN,EyIN,EzIN,
            BxIN,ByIN,BzIN,BxminIN,BxmaxIN,ByminIN,BymaxIN,BzminIN,BzmaxIN,
            EMLMTIN;
};