Lines Matching refs:dumvec
643 REAL*8,DIMENSION(3):: jtau,ktau,jxyz,kxyz,ijvec,ikvec,jkvec,dumvec
699 dumvec=ijvec+jtau
700 dumvec=dumvec*dumvec
701 rij2=SUM(dumvec)
711 dumvec=ikvec+ktau
712 dumvec=dumvec*dumvec
713 rik2=SUM(dumvec)
717 dumvec=jkvec+ktau-jtau
718 rjk2=SUM(dumvec*dumvec)
774 dumvec=ijvec+jtau
775 dumvec=dumvec*dumvec
776 rij2=SUM(dumvec)
786 dumvec=ikvec+ktau
787 dumvec=dumvec*dumvec
788 rik2=SUM(dumvec)
792 dumvec=jkvec+ktau-jtau
793 dumvec=dumvec*dumvec
794 rjk2=SUM(dumvec)
848 dumvec=ijvec+jtau
849 dumvec=dumvec*dumvec
850 rij2=SUM(dumvec)
862 dumvec=ikvec+ktau
863 dumvec=dumvec*dumvec
864 rik2=SUM(dumvec)
868 dumvec=jkvec+ktau-jtau
869 dumvec=dumvec*dumvec
870 rjk2=SUM(dumvec)
926 dumvec=jtau
927 dumvec=dumvec*dumvec
928 rij2=SUM(dumvec)
943 dumvec=ktau
944 dumvec=dumvec*dumvec
945 rik2=SUM(dumvec)
949 dumvec=jkvec+ktau-jtau
950 dumvec=dumvec*dumvec
951 rjk2=SUM(dumvec)
1100 real*8 ,dimension(3) ::ijvec,ikvec,jkvec,jtau,ktau,dumvec
1777 dumvec=jkvec+ktau-jtau
1778 rjk2=SUM(dumvec*dumvec)
1899 dumvec=jtau
1900 rij2=SUM(dumvec*dumvec)
1911 dumvec=ikvec+ktau
1912 dumvec=dumvec*dumvec
1913 rik2=SUM(dumvec)
1916 dumvec=jkvec+ktau-jtau
1917 dumvec=dumvec*dumvec
1918 rjk2=SUM(dumvec)
2036 dumvec=ijvec+jtau
2037 dumvec=dumvec*dumvec
2038 rij2=SUM(dumvec)
2050 dumvec=ikvec+ktau
2051 dumvec=dumvec*dumvec
2052 rik2=SUM(dumvec)
2056 dumvec=jkvec+ktau-jtau
2057 dumvec=dumvec*dumvec
2058 rjk2=SUM(dumvec)
2176 dumvec=jtau
2177 dumvec=dumvec*dumvec
2178 rij2=SUM(dumvec)
2193 dumvec=ktau
2194 dumvec=dumvec*dumvec
2195 rik2=SUM(dumvec)
2199 dumvec=jkvec+ktau-jtau
2200 dumvec=dumvec*dumvec
2201 rjk2=SUM(dumvec)