Lines Matching refs:intp
276 DC(:,intp)=max(zero,(fact*sqrt(raLS*gnorm))-(rtLS*gnorm))
298 DC(:,intp) = two * rtLS * gnorm
324 DC(:,intp) = min( max(zero,fact * sqrt(raLS * gnorm)-
343 ri ( :,1) = ri ( :,1) + DC(:,intp) * gAgyi( :,1)
344 rmi( :,1) = rmi( :,1) + DC(:,intp) * gAgyi( :,1)
345 ri ( :,2) = ri ( :,2) + DC(:,intp) * gAgyi( :,2)
346 rmi( :,2) = rmi( :,2) + DC(:,intp) * gAgyi( :,2)
347 ri ( :,3) = ri ( :,3) + DC(:,intp) * gAgyi( :,3)
348 rmi( :,3) = rmi( :,3) + DC(:,intp) * gAgyi( :,3)
349 ri ( :,4) = ri ( :,4) + DC(:,intp) * gAgyi( :,4)
350 rmi( :,4) = rmi( :,4) + DC(:,intp) * gAgyi( :,4)
351 ri ( :,5) = ri ( :,5) + DC(:,intp) * gAgyi( :,5)
352 rmi( :,5) = rmi( :,5) + DC(:,intp) * gAgyi( :,5)
354 ri ( :,6) = ri ( :,6) + DC(:,intp) * gAgyi( :,6)
355 rmi( :,6) = rmi( :,6) + DC(:,intp) * gAgyi( :,6)
356 ri ( :,7) = ri ( :,7) + DC(:,intp) * gAgyi( :,7)
357 rmi( :,7) = rmi( :,7) + DC(:,intp) * gAgyi( :,7)
358 ri ( :,8) = ri ( :,8) + DC(:,intp) * gAgyi( :,8)
359 rmi( :,8) = rmi( :,8) + DC(:,intp) * gAgyi( :,8)
360 ri ( :,9) = ri ( :,9) + DC(:,intp) * gAgyi( :,9)
361 rmi( :,9) = rmi( :,9) + DC(:,intp) * gAgyi( :,9)
362 ri (:,10) = ri (:,10) + DC(:,intp) * gAgyi(:,10)
363 rmi(:,10) = rmi(:,10) + DC(:,intp) * gAgyi(:,10)
365 ri (:,11) = ri (:,11) + DC(:,intp) * gAgyi(:,11)
366 rmi(:,11) = rmi(:,12) + DC(:,intp) * gAgyi(:,12)
367 ri (:,12) = ri (:,12) + DC(:,intp) * gAgyi(:,12)
368 rmi(:,12) = rmi(:,12) + DC(:,intp) * gAgyi(:,12)
369 ri (:,13) = ri (:,13) + DC(:,intp) * gAgyi(:,13)
370 rmi(:,13) = rmi(:,13) + DC(:,intp) * gAgyi(:,13)
371 ri (:,14) = ri (:,14) + DC(:,intp) * gAgyi(:,14)
372 rmi(:,14) = rmi(:,14) + DC(:,intp) * gAgyi(:,14)
373 ri (:,15) = ri (:,15) + DC(:,intp) * gAgyi(:,15)
374 rmi(:,15) = rmi(:,15) + DC(:,intp) * gAgyi(:,15)
384 rmi( :,1) = rmi( :,1) + DC(:,intp) * gAgyi( :,1)
385 rmi( :,2) = rmi( :,2) + DC(:,intp) * gAgyi( :,2)
386 rmi( :,3) = rmi( :,3) + DC(:,intp) * gAgyi( :,3)
387 rmi( :,4) = rmi( :,4) + DC(:,intp) * gAgyi( :,4)
388 rmi( :,5) = rmi( :,5) + DC(:,intp) * gAgyi( :,5)
390 rmi( :,6) = rmi( :,6) + DC(:,intp) * gAgyi( :,6)
391 rmi( :,7) = rmi( :,7) + DC(:,intp) * gAgyi( :,7)
392 rmi( :,8) = rmi( :,8) + DC(:,intp) * gAgyi( :,8)
393 rmi( :,9) = rmi( :,9) + DC(:,intp) * gAgyi( :,9)
394 rmi(:,10) = rmi(:,10) + DC(:,intp) * gAgyi(:,10)
396 rmi(:,11) = rmi(:,11) + DC(:,intp) * gAgyi(:,11)
397 rmi(:,12) = rmi(:,12) + DC(:,intp) * gAgyi(:,12)
398 rmi(:,13) = rmi(:,13) + DC(:,intp) * gAgyi(:,13)
399 rmi(:,14) = rmi(:,14) + DC(:,intp) * gAgyi(:,14)
400 rmi(:,15) = rmi(:,15) + DC(:,intp) * gAgyi(:,15)
414 dtmp(:)=A0(:,i,j)*DC(:,intp)
591 DCt(:,intp)=max(zero,(fact*sqrt(raLSt*gnormt))-(rtLSt*gnormt))
613 DCt(:,intp) = two * rtLSt * gnormt
639 DCt(:,intp) = min( max(zero,fact * sqrt(raLSt * gnormt)-
659 rti ( :,1) = rti ( :,1) + DCt(:,intp) * gAgyit( :,1)
660 rmti( :,1) = rmti( :,1) + DCt(:,intp) * gAgyit( :,1)
661 rti ( :,2) = rti ( :,2) + DCt(:,intp) * gAgyit( :,2)
662 rmti( :,2) = rmti( :,2) + DCt(:,intp) * gAgyit( :,2)
663 rti ( :,3) = rti ( :,3) + DCt(:,intp) * gAgyit( :,3)
664 rmti( :,3) = rmti( :,3) + DCt(:,intp) * gAgyit( :,3)
675 rmti( :,1) = rmti( :,1) + DCt(:,intp) * gAgyit( :,1)
676 rmti( :,2) = rmti( :,2) + DCt(:,intp) * gAgyit( :,2)
677 rmti( :,3) = rmti( :,3) + DCt(:,intp) * gAgyit( :,3)
690 dtmp(:)=A0t(:)*DCt(:,intp)