Lines Matching refs:l1
408 double l1, l2, l3, d1, d2, value;
423 l1 = F[0] * mr[i3] + F[1] * mr[i3 + 1] + F[2];
427 d1 = (l1 * ml[i3] + l2 * ml[i3 + 1] + l3) / sqrt( l1 * l1 + l2 * l2 );
429 l1 = F[0] * ml[i3] + F[3] * ml[i3 + 1] + F[6];
433 d2 = (l1 * mr[i3] + l2 * mr[i3 + 1] + l3) / sqrt( l1 * l1 + l2 * l2 );
491 double l1, l2, l3, d1, d2, sigma;
509 l1 = F[0] * mr[i] + F[1] * mr[i + 1] + F[2];
513 d1 = (l1 * ml[i] + l2 * ml[i + 1] + l3) / sqrt( l1 * l1 + l2 * l2 );
515 l1 = F[0] * ml[i] + F[3] * ml[i + 1] + F[6];
519 d2 = (l1 * mr[i] + l2 * mr[i + 1] + l3) / sqrt( l1 * l1 + l2 * l2 );
584 double l1, l2, w, old_norm = -1, new_norm = -2, summ;
612 l1 = F[0] * mr[i3] + F[1] * mr[i3 + 1] + F[2];
615 if( REAL_ZERO( l1 ) && REAL_ZERO( l2 ))
622 w = 1 / (l1 * l1 + l2 * l2);
624 l1 = F[0] * ml[i3] + F[3] * ml[i3 + 1] + F[6];
627 if( REAL_ZERO( l1 ) && REAL_ZERO( l2 ))
634 w += 1 / (l1 * l1 + l2 * l2);
935 int i = 0, j, k, l = 0, i1, k1, l1 = 0;
1191 l1 = l - 1;
1193 if( REAL_ZERO( rv1[l] ) || REAL_ZERO( W[l1] ))
1200 /* W[l1] = 0, matrix possible to fission
1241 y = U[jN + l1];
1243 U[jN + l1] = y * c + z * s;
