Commit 0f7d5032 by Gregor Michalicek

### Reverted changes to setab.f back to the last changes to this routine from Gustav

```I originally made the changes because the scale parameters acted differently
than in version 0.26. It turned out that the behavior in 0.26 is wrong, i.e.,
it does not comply with the documentation.

The scale parameters act on the x, y, and z axes. They do not act on the
lattice vectors.```
parent d7a64dae
 ... ... @@ -47,21 +47,21 @@ ! matrices of lattice vectors in full Cartesian units DO i=1,3 amat(i,1) = aa*scale(1)*a1(i) amat(i,2) = aa*scale(2)*a2(i) amat(i,3) = aa*scale(3)*a3(i) amat(i,1) = aa*scale(i)*a1(i) amat(i,2) = aa*scale(i)*a2(i) amat(i,3) = aa*scale(i)*a3(i) ENDDO DO i=1,3 bmat(1,i) = (pi_const/(aa*scale(1))) * b1(i) bmat(2,i) = (pi_const/(aa*scale(2))) * b2(i) bmat(3,i) = (pi_const/(aa*scale(3))) * b3(i) bmat(1,i) = (pi_const/(aa*scale(i))) * b1(i) bmat(2,i) = (pi_const/(aa*scale(i))) * b2(i) bmat(3,i) = (pi_const/(aa*scale(i))) * b3(i) ENDDO DO i=1,3 amatinv(1,i) = (1.0/(aa*scale(1))) * b1(i) amatinv(2,i) = (1.0/(aa*scale(2))) * b2(i) amatinv(3,i) = (1.0/(aa*scale(3))) * b3(i) amatinv(1,i) = (1.0/(aa*scale(i))) * b1(i) amatinv(2,i) = (1.0/(aa*scale(i))) * b2(i) amatinv(3,i) = (1.0/(aa*scale(i))) * b3(i) ENDDO !---> check that amat and amatinv consistent ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!