DOT_DP Function

private function DOT_DP(VSH1, VSH2) result(DOT)

Dot product of two 3-vectors (typically two VSH values evaluated at the same ): . Note this is a plain component-wise product, not a Hermitian inner product -- callers wanting must conjugate VSH2 themselves first (as done throughout src/tests.f90 and the examples/ drivers).

Returns: , complex scalar.

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in), DIMENSION(3) :: VSH1

First complex 3-vector .
complex(kind=dp), intent(in), DIMENSION(3) :: VSH2

Second complex 3-vector .

Return Value complex(kind=dp)


Called by

proc~~dot_dp~~CalledByGraph proc~dot_dp DOT_DP interface~dot DOT interface~dot->proc~dot_dp proc~decompose DECOMPOSE proc~decompose->interface~dot proc~decompose~2 DECOMPOSE proc~decompose~2->interface~dot proc~pvsh_pol_tor_ortho PVSH_POL_TOR_ORTHO proc~pvsh_pol_tor_ortho->interface~dot proc~run_gwj_sweep RUN_GWJ_SWEEP proc~run_gwj_sweep->interface~dot proc~test1_vsh TEST1_VSH proc~test1_vsh->interface~dot proc~test2_vsh TEST2_VSH proc~test2_vsh->interface~dot proc~run_part_a RUN_PART_A proc~run_part_a->proc~decompose proc~run_part_a~2 RUN_PART_A proc~run_part_a~2->proc~decompose~2 proc~run_part_b RUN_PART_B proc~run_part_b->proc~decompose proc~run_part_b~2 RUN_PART_B proc~run_part_b~2->proc~decompose~2 program~gwi_gwj_sweep GWI_GWJ_SWEEP program~gwi_gwj_sweep->proc~run_gwj_sweep program~main MAIN program~main->proc~pvsh_pol_tor_ortho program~main->proc~test1_vsh program~main->proc~test2_vsh program~vsh_decomposition VSH_DECOMPOSITION program~vsh_decomposition->proc~run_part_a program~vsh_decomposition->proc~run_part_b program~vsh_decomposition_tor VSH_DECOMPOSITION_TOR program~vsh_decomposition_tor->proc~run_part_a~2 program~vsh_decomposition_tor->proc~run_part_b~2

Source Code

  FUNCTION DOT_DP(VSH1, VSH2) RESULT(DOT)
  IMPLICIT NONE
  COMPLEX(KIND=dp), DIMENSION(3), INTENT(IN) :: VSH1
  COMPLEX(KIND=dp), DIMENSION(3), INTENT(IN) :: VSH2
  COMPLEX(KIND=dp) :: DOT
  DOT = VSH1(1)*VSH2(1) + VSH1(2)*VSH2(2) + VSH1(3)*VSH2(3)
  RETURN
  END FUNCTION DOT_DP