Lines Matching refs:cdelsq1
942 & nsons, ifath, x, cdelsq1) argument
959 & strnrm(nshg), cdelsq1(nfath),
1236 cdelsq1(i) = xnuder(i,1)
1245 cdelsq1(i) = xnude(i,1)
1263 if (cdelsq1(i) .lt. zero) then
1264 cdelsq1(i) = zero
2110 & nsons, ifath, x, cdelsq1, fwr4, argument
2128 & strnrm(nshg), cdelsq1(nfath),
2351 xa(i,1) = two*cdelsq1(i)*xnuder(i,1) +
2353 xa(i,2) = four*cdelsq1(i)*xnuder(i,3) +
2355 xa(i,3) = two*cdelsq1(i)*xnuder(i,5)
2374 xa(i,1) = two*cdelsq1(i)*xnude(i,1) +
2376 xa(i,2) = four*cdelsq1(i)*xnude(i,3) +
2378 xa(i,3) = two*cdelsq1(i)*xnude(i,5)
2434 xkap(i) = cdelsq1(i) / xlamb2(i)