Commit dfcb8217 authored by Rolf Bork's avatar Rolf Bork
Browse files

Updated with previous fix to Bit2Word.pm

Bug fix for MATH.pm.


git-svn-id: https://redoubt.ligo-wa.caltech.edu/svn/advLigoRTS/branches/branch-3.2@4821 6dcd42c9-f523-4c6d-aada-af552506706e
parent b0ae4a64
==================================================================================================
Changes for 3.2.4
- Bug Fix for MATH.pm: improper case when EPICS part is used as input ie produced plocalepics
instead of proper pLocalEpics variable.
==================================================================================================
==================================================================================================
Changes for 3.2.3
==================================================================================================
- Bug Fix for FRS ticket 11066: Bit2Word.pm
==================================================================================================
Changes for 3.2.2
==================================================================================================
- Bug Fixes:
......
......@@ -75,7 +75,7 @@ sub frontEndCode {
for (0 .. $::partInCnt[$i]-2) {
$calcExp .= "\t$::fromExp[$_],\n";
}
$calcExp .= "\t$::fromExp[$partInCnt[$i]-1]\n";
$calcExp .= "\t$::fromExp[$::partInCnt[$i]-1]\n";
$calcExp .= "};\n";
$calcExp .= "\L$::xpartName[$i] = 0;\n";
$calcExp .= "for (ii = 0; ii < $::partInCnt[$i]; ii++)\n{\n";
......
......@@ -77,7 +77,7 @@ sub frontEndCode {
if ($op eq "square") {
return <<SQEND;
// MATH FUNCTION - SQUARE
\L$::xpartName[$i] = $::fromExp[0] * $::fromExp[0];
\L$::xpartName[$i] \E= $::fromExp[0] * $::fromExp[0];
SQEND
}
......@@ -85,7 +85,7 @@ SQEND
return <<SQRTEND;
// MATH FUNCTION - SQUARE ROOT
if ($::fromExp[0] > 0.0) {
\L$::xpartName[$i] = lsqrt($::fromExp[0]);
\L$::xpartName[$i] \E= lsqrt($::fromExp[0]);
}
else {
\L$::xpartName[$i] = 0.0;
......@@ -97,7 +97,7 @@ SQRTEND
return <<RECEND;
// MATH FUNCTION - RECIPROCAL
if ($::fromExp[0] != 0.0) {
\L$::xpartName[$i] = 1.0/$::fromExp[0];
\L$::xpartName[$i] \E= 1.0/$::fromExp[0];
}
else {
\L$::xpartName[$i] = 0.0;
......@@ -109,7 +109,7 @@ RECEND
return <<MODEND;
// MATH FUNCTION - MODULO
if ((int) $::fromExp[1] != 0) {
\L$::xpartName[$i] = (double) ((int)$::fromExp[0] % (int)$::fromExp[1]);
\L$::xpartName[$i] \E= (double) ((int)$::fromExp[0] % (int)$::fromExp[1]);
}
else {
\L$::xpartName[$i] = 0.0;
......@@ -120,7 +120,7 @@ MODEND
if ($op eq "log10") {
return <<LOGEND;
// MATH FUNCTION - LOG10
\L$::xpartName[$i] = llog10($::fromExp[0]);
\L$::xpartName[$i] \E= llog10($::fromExp[0]);
LOGEND
}
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment