Lines Matching refs:vectc
115 real(dp) :: minim(3,3),scprods(3,3),vecta(3),vectb(3),vectc(3),vin1(3),vin2(3),vext(3) local
587 if(icase==1)vectc(:)=minim(:,itrial)
588 if(icase==2)vectc(:)=minim(:,itrial)+cell_base(:,ia)
589 if(icase==3)vectc(:)=minim(:,itrial)+cell_base(:,ib)
590 if(icase==4)vectc(:)=minim(:,itrial)-cell_base(:,ia)
591 if(icase==5)vectc(:)=minim(:,itrial)-cell_base(:,ib)
592 norm2c=vectc(1)**2+vectc(2)**2+vectc(3)**2
593 sca=vectc(1)*vecta(1)+&
596 scb=vectc(1)*vectb(1)+&
605 cell_base(:,3)=vectc(:)
661 if(ii==1)vectc(:)=minim(:,itrial)
662 if(ii==2)vectc(:)=minim(:,itrial)+vecta(:)
663 if(ii==3)vectc(:)=minim(:,itrial)-vecta(:)
664 if(ii==4)vectc(:)=minim(:,itrial)+vectb(:)
665 if(ii==5)vectc(:)=minim(:,itrial)-vectb(:)
666 norm2trial=vectc(1)**2+vectc(2)**2+vectc(3)**2
668 reduceda=( vectc(1)*vecta(1)+vectc(2)*vecta(2)+vectc(3)*vecta(3) )/norm2trial
669 reducedb=( vectc(1)*vectb(1)+vectc(2)*vectb(2)+vectc(3)*vectb(3) )/norm2trial
672 vin1(:)=vectc(:)
673 vin2(:)=2.0d0*(vecta(:)-reduceda*vectc(:))
677 vin1(:)=vectc(:)
678 vin2(:)=2.0d0*(vectb(:)-reduceda*vectc(:))