Lines Matching refs:lattice_unita
584 real*8 function lattice_unita(i,j) function
593 lattice_unita = unita(i,j)
1231 real*8 lattice_unita
1232 external lattice_unita
1253 a(i,1) = lattice_unita(i,1)/dble(np1)
1254 a(i,2) = lattice_unita(i,2)/dble(np2)
1255 a(i,3) = lattice_unita(i,3)/dble(np3)
1312 real*8 lattice_unita
1313 external lattice_unita
1330 a(i,1) = lattice_unita(i,1)/dble(np1)
1331 a(i,2) = lattice_unita(i,2)/dble(np2)
1332 a(i,3) = lattice_unita(i,3)/dble(np3)
1386 real*8 lattice_unita
1387 external lattice_unita
1404 a(i,1) = lattice_unita(i,1)/dble(np1)
1405 a(i,2) = lattice_unita(i,2)/dble(np2)
1406 a(i,3) = lattice_unita(i,3)/dble(np3)
1651 real*8 lattice_unita
1652 external lattice_unita
1656 a = dsqrt(lattice_unita(1,1)**2
1657 > + lattice_unita(2,1)**2
1658 > + lattice_unita(3,1)**2)
1659 b = dsqrt(lattice_unita(1,2)**2
1660 > + lattice_unita(2,2)**2
1661 > + lattice_unita(3,2)**2)
1662 c = dsqrt(lattice_unita(1,3)**2
1663 > + lattice_unita(2,3)**2
1664 > + lattice_unita(3,3)**2)
1666 d2 = (lattice_unita(1,2)-lattice_unita(1,3))**2
1667 > + (lattice_unita(2,2)-lattice_unita(2,3))**2
1668 > + (lattice_unita(3,2)-lattice_unita(3,3))**2
1672 d2 = (lattice_unita(1,3)-lattice_unita(1,1))**2
1673 > + (lattice_unita(2,3)-lattice_unita(2,1))**2
1674 > + (lattice_unita(3,3)-lattice_unita(3,1))**2
1678 d2 = (lattice_unita(1,1)-lattice_unita(1,2))**2
1679 > + (lattice_unita(2,1)-lattice_unita(2,2))**2
1680 > + (lattice_unita(3,1)-lattice_unita(3,2))**2