// Numerical Recipes CONST MaxStatPts = 300; MDIAN2nonFatal = 472; calcltThreshold = 3; // NumVal threshold to enable calculation bTlen = 30; // Fundamental Units (pass as Char) DIMlngth = 'L'; DIMmass = 'm'; DIMtime = 't'; DIMtemp = 'T'; // Temperature DIMeltrcChrg = 'Q'; // Electric Charge DIMlumnsFlux = 'J'; // Luminous flux; Luminous energy per unit time // Derived Units (may be added to) DIMforce = 'F'; DIMenergy = 'E'; DIMpower = 'P'; DIMpressure = 'p'; // also stress DIMmomInrtia = 'I'; // Moment of Inertia DIMviscosity = Chr (230); DIMentrpy = 'S'; DIMheatCpcty = 'c'; // Heat Capacity DIMthermlCnd = 'k'; // Thermal Conductivity DIMheatTrnsfr = 'q'; // Heat Transfer Rate DIMheatTrnCf = 'U'; // Heat Transfer Coefficient DIMcurrent = 'i'; // avoid conflict w/ Moment of Inertia DIMresistnc = 'R'; // Electrical Resistance DIMvoltage = 'V'; DIMcapactnc = 'C'; // Capacitance DIMindctnc = 'l'; // avoid conflict w/ Length; Inductance DIMmagFlux = Chr (237); DIMdielectrc = Chr (238); // Dielectric Constant DIMpermablty = 'u'; // Permeability; avoid conflict w/ viscosity DIMelctrcFld = 'E'; // Electric Field Strength DIMInductn = 'B'; DIMmagIntsty = 'H'; // Magnetic Intensity TYPE m50X50 = array[1..50,1..50] of single; iDataPtsTyp = array [1..MaxStatPts] of smallint; dataPtsTyp = array [1..MaxStatPts] of single; rXYZ = array [1..NRI] of single; resistance = ARRAY [1..50] of single; bText = ARRAY [1..bTlen] of AnsiChar;