“…if ( ($max_min eq "max" && $curr_elem_val > $elem_val && $max_dir eq $dir_str) || ($max_min eq "min" && $curr_elem_val < $elem_val && $max_dir eq $dir_str) ) { $result = $i; [2],$node_ids [6],$node_ids [5]); return @facenodes; } if ($fid == 3) { @facenodes=($node_ids [2],$node_ids [3],$node_ids [7],$node_ids [6]); return @facenodes; } if ($fid == 4) { @facenodes=($node_ids[0],$node_ids [4],$node_ids [7],$node_ids [3] [4],$node_ids [5],$node_ids [6],$node_ids [7] [7]]); $diags [2] = point_to_point_SQdistance($nodal_coords[$nod_ids [2]],$nodal_coords[$nod_ids [4]]); $diags [3] = point_to_point_SQdistance($nodal_coords[$nod_ids [3]],$nodal_coords[$nod_ids [5] [2]; } ##print "Element Coordinates:\n"; ##print "x = ".join(', ',@x); ##print "\n"; ##print "y = ".join(', ',@y); ##print "\n"; ##print "z = ".join(', ',@z); ##print "\n"; my @alpha = (-1,1,1,-1,-1,1,1,-1); my @beta = (-1,-1,1,1,-1,-1,1,1); my @gamma = (-1,-1,-1,-1,1,1,1,1 } ##print "Jacobian Elements = "; ##print "$j1,$j2,$j3,$j4,$j5,$j6,$j7,$j8,$j9\n"; ### Jacobian Determinant my $jdet = -$j3*$j5*$j7+$j2*$j6*$j7+$j3*$j4*$j8-$j1*$j6*$j8-$j2*$j4*$j9+$j1*$j5*$j9; ##print "Jacobian Determinant = $jdet\n"; ### Inverse Jacobian my ($jI1,$jI2,$jI3,$jI4,$jI5,$jI6,$jI7,$jI8,$jI9) = (0,0,0,0,0,0,0,0,0); $jI1 = (1/$jdet)*(-$j6*$j8+$j5*$j9); $jI2 = (1/$jdet)*($j3*$j8-$j2*$j9); $jI3 = (1/$jdet)*(-$j3*$j5+$j2*$j6); $jI4 = (1/$jdet)*($j6*$j7-$j4*$j9); $jI5 = (1/$jdet)*(-$j3*$j7+$j1*$j9); $jI6 = (1/$jdet)*($j3*$j4-$j1*$j6); $jI7 = (1/$jdet)*(-$j5*$j7+$j4*$j8); $jI8 = (1/$jdet)*($j2*$j7-$j1*$j8); $jI9 = (1/$jdet)*(-$j2*$j4+$j1*$j5); ##print "Inverse Jacobian Elements = "; ##print "$jI1,$jI2,$jI3,$jI4,$jI5,$jI6,$jI7,$jI8,$jI9\n"; ### Adjust @nc0 …”