rotate_eigvecs Module Subroutine

public module subroutine rotate_eigvecs(N, from_axis, to_axis, eigvecs)

Rotate the rigid rotor eigenvectors from one of the principal axes A,B,C to another principal axis A,B,C using the Wigner D-matrix

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: N

The rotational angular moment quantum number

character(len=1), intent(inout) :: from_axis

On input, the starting z-axis. On output, the new z-axis

character(len=1), intent(in) :: to_axis

The target z-axis to which we rotate

complex(kind=dp), intent(inout) :: eigvecs(:,:)

The eigenvectors