Index: mttroot/mtt/bin/trans/m/equation.m ================================================================== --- mttroot/mtt/bin/trans/m/equation.m +++ mttroot/mtt/bin/trans/m/equation.m @@ -28,15 +28,12 @@ ## constitutive relationship. ## ## Revision 1.1 1996/09/10 11:11:11peter ## ## Initial revision ## ## ############################################################### - inbonds - incauses - ## Find the number of inports - nports = length(inbonds) + nports = length(inbonds); ## Check some arguments if length(incauses) ~= nports error("equation.m: incauses inconsistent with inbonds"); endif