Loading src/libnptm/tra_subs.cpp +1 −2 Original line number Diff line number Diff line Loading @@ -438,7 +438,6 @@ void wamff( un[0] = -sph; un[1] = cph; un[2] = 0.0; // Would call PWMALP(W,UP,UN,YLM,LM) pwmalp(w, up, un, ylm, lm); double apfa = sth * apfafa; if (spd > 0.0) { Loading @@ -446,7 +445,7 @@ void wamff( double cthl = sqrt(1.0 - sthl * sthl); double arg = spd * (z - (r / rir) * cthl); cfam = (tra * std::exp(-apfa * apfa) / sqrt(cthl)) * std::exp(uim * arg); if (lmode == 0) { // CHECK: Computed GO TO, not sure what happens with LMODE = 0 if (lmode == 0) { if (sth == 0.0) { // label 45 ftc1 = ftcn; ftc2 = ftcn; Loading src/trapping/clffft.cpp +0 −1 Original line number Diff line number Diff line Loading @@ -217,7 +217,6 @@ void lffft(string data_file, string output_path) { // label 155 if (!goto160) { if (jss != 1) { // Would open the ITT file. string tlfft_name = output_path + "/c_TLFFT"; tlfft.open(tlfft_name.c_str(), ios::out | ios::binary); if (tlfft.is_open()) { Loading Loading
src/libnptm/tra_subs.cpp +1 −2 Original line number Diff line number Diff line Loading @@ -438,7 +438,6 @@ void wamff( un[0] = -sph; un[1] = cph; un[2] = 0.0; // Would call PWMALP(W,UP,UN,YLM,LM) pwmalp(w, up, un, ylm, lm); double apfa = sth * apfafa; if (spd > 0.0) { Loading @@ -446,7 +445,7 @@ void wamff( double cthl = sqrt(1.0 - sthl * sthl); double arg = spd * (z - (r / rir) * cthl); cfam = (tra * std::exp(-apfa * apfa) / sqrt(cthl)) * std::exp(uim * arg); if (lmode == 0) { // CHECK: Computed GO TO, not sure what happens with LMODE = 0 if (lmode == 0) { if (sth == 0.0) { // label 45 ftc1 = ftcn; ftc2 = ftcn; Loading
src/trapping/clffft.cpp +0 −1 Original line number Diff line number Diff line Loading @@ -217,7 +217,6 @@ void lffft(string data_file, string output_path) { // label 155 if (!goto160) { if (jss != 1) { // Would open the ITT file. string tlfft_name = output_path + "/c_TLFFT"; tlfft.open(tlfft_name.c_str(), ios::out | ios::binary); if (tlfft.is_open()) { Loading