|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_0 |
= |
reshape([one, zero, zero, one], [2, 2]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_x |
= |
reshape([zero, one, one, zero], [2, 2]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_y |
= |
reshape([zero, xi, -xi, zero], [2, 2]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_z |
= |
reshape([one, zero, zero, -one], [2, 2]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_1 |
= |
pauli_x |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_2 |
= |
pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_3 |
= |
pauli_z |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_0 |
= |
pauli_0 |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_x |
= |
pauli_x |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_y |
= |
pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_z |
= |
pauli_z |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_1 |
= |
pauli_x |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_2 |
= |
pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_3 |
= |
pauli_z |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_0 |
= |
pauli_0 |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_x |
= |
pauli_x |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_y |
= |
pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_z |
= |
pauli_z |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_1 |
= |
pauli_x |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_2 |
= |
pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_3 |
= |
pauli_z |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_plus |
= |
pauli_x+xi*pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_sigma_minus |
= |
pauli_x-xi*pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_plus |
= |
pauli_x+xi*pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(2,2)
|
:: |
pauli_tau_minus |
= |
pauli_x-xi*pauli_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(3,3)
|
:: |
spin1_0 |
= |
reshape([one, zero, zero, zero, one, zero, zero, zero, one], [3, 3]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(3,3)
|
:: |
spin1_x |
= |
reshape([zero, one, zero, one, zero, one, zero, one, zero], [3, 3])/sqrt2 |
|
|
complex(kind=8),
|
public, |
parameter, dimension(3,3)
|
:: |
spin1_y |
= |
reshape([zero, -xi, zero, xi, zero, -xi, zero, xi, zero], [3, 3])/sqrt2 |
|
|
complex(kind=8),
|
public, |
parameter, dimension(3,3)
|
:: |
spin1_z |
= |
reshape([one, zero, zero, zero, zero, zero, zero, zero, -one], [3, 3]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(3,3)
|
:: |
spin1_plus |
= |
spin1_x+xi*spin1_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(3,3)
|
:: |
spin1_minus |
= |
spin1_x-xi*spin1_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(4,4)
|
:: |
spin3half_0 |
= |
reshape([one, zero, zero, zero, zero, one, zero, zero, zero, zero, one, zero, zero, zero, zero, one], [4, 4]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(4,4)
|
:: |
spin3half_x |
= |
reshape([zero, s3, zero, zero, s3, zero, two, zero, zero, two, zero, s3, zero, zero, s3, zero], [4, 4])/2d0 |
|
|
complex(kind=8),
|
public, |
parameter, dimension(4,4)
|
:: |
spin3half_y |
= |
reshape([zero, -c3, zero, zero, c3, zero, -c2, zero, zero, c2, zero, -c3, zero, zero, c3, zero], [4, 4])/2d0 |
|
|
complex(kind=8),
|
public, |
parameter, dimension(4,4)
|
:: |
spin3half_z |
= |
reshape([h32, zero, zero, zero, zero, h12, zero, zero, zero, zero, -h12, zero, zero, zero, zero, -h32], [4, 4]) |
|
|
complex(kind=8),
|
public, |
parameter, dimension(4,4)
|
:: |
spin3Half_plus |
= |
spin3Half_x+xi*spin3Half_y |
|
|
complex(kind=8),
|
public, |
parameter, dimension(4,4)
|
:: |
spin3Half_minus |
= |
spin3Half_x-xi*spin3Half_y |
|