src/lucia/lucia_gtbce.F

747       real*8, external :: inprod, inprdd
1240             xnamp = sqrt(inprod(ccvec1,ccvec1,n_cc_amp))
1244             xnamp = sqrt(inprod(ccvec2,ccvec2,namp_packed))
1273           xnamp = sqrt(inprod(work(khvec1),work(khvec1),n_l_amp))
1355               xngrad = sqrt(inprod(work(khvec2),work(khvec2),n_l_amp))
1369               xnom = sqrt(inprod(omgrd,omgrd,4*ntoob**2))
1370               xnur = sqrt(inprod(urgrd,urgrd,4*ntoob**2))
1371               xnui = sqrt(inprod(uigrd,uigrd,4*ntoob**2))
1375               xnom = sqrt(inprod(omvec,omvec,4*ntoob**2))
1376               xnur = sqrt(inprod(urvec,urvec,4*ntoob**2))
1377               xnui = sqrt(inprod(uivec,uivec,4*ntoob**2))
1389                     xnrm = sqrt(inprod(omvec(1,1,jj,ii),
1398                   xnrm = sqrt(inprod(urvec(1,1,ii,ii),
1406                   xnrm = sqrt(inprod(uivec(1,1,ii,ii),
1416                     xnrm = sqrt(inprod(omgrd(1,1,jj,ii),
1425                   xnrm = sqrt(inprod(urgrd(1,1,ii,ii),
1433                   xnrm = sqrt(inprod(uigrd(1,1,ii,ii),
1465               xngrad = sqrt(inprod(ccvec1,ccvec1,namp_packed))
1640           xngrad = sqrt(inprod(ccvec1,ccvec1,n_cc_amp))
2288       real*8 inprod, inprdd
2311         xnorm = sqrt(inprod(ccvec1,ccvec1,n_cc_amp))
2436       real*8 inprod, inprdd
2474       xnomg = sqrt(inprod(omg,omg,n_cc_amp))
2568       real*8 inprod, inprdd
2636       xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp)
2720             xnrm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
2762             xnrm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
2799             xnorm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
2828               xnorm = sqrt(inprod(ccvec3,ccvec3,n_cc_amp))
2876             xnorm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
2906         xngrad = sqrt(inprod(grad,grad,n_cc_amp))
2926           xnorm = sqrt(inprod(grad(ist),grad(ist),len))
2990      &     inprod
3086       xngrad_num = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
3139      &     inprod
3250      &     inprod
3394      &     inprod
3452             xnorm = sqrt(inprod(ccvec2,ccvec2,namp))
3460             xnorm = sqrt(inprod(ccvec1,ccvec1,namp))
3612             xnorm = sqrt(inprod(ccvec1,ccvec1,namp))
3619             xnorm = sqrt(inprod(ccvec3,ccvec3,n_cc_amp))
3681       real*8 inprod, inprdd
3732       xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp)
3797               xnrm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
3840               xnrm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
3976       real*8 inprod, inprdd
4038       xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp)
4145               xnrm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
4206                 if (abs(inprod(ccvec2,ccvec2,n_cc_amp)).lt.1d-12) then
4266                 xnrm = sqrt(inprod(ccvec2,ccvec2,n_cc_amp))
4395      &     inprod
4414           if (abs(inprod(ccvec1,ccvec1,n_cc_amp)).lt.1d-12) then
4486       real*8 inprod, inprdd
4635       real*8 inprod, inprdd
4731           xnrm = sqrt(inprod(ccvec1,ccvec1,n_cc_amp))
4763      &     inprod
4767       xnrm = sqrt(inprod(ccvec1,ccvec1,n_cc_amp))
4774         ovl = inprod(ccvec1,ccvec2,n_cc_amp)
4779       xnrm = sqrt(inprod(ccvec1,ccvec1,n_cc_amp))
4811      &     inprod
4817       xnorm = sqrt(inprod(tvec,  tvec,n_cc_amp))
4818       xovl  =      inprod(ccvec1,tvec,n_cc_amp)
7577      &     inprod
7744      &     inprod
7746       x11n = sqrt(inprod(vec,vec,n11amp))
7761       x33n = sqrt(inprod(vec(n11amp+1),vec(n11amp+1),n33amp))