hmap_eval_gij_dq_aux_all Function

public function hmap_eval_gij_dq_aux_all(sf, np, qL1, qL2, qL3, q1, q2, qR1, qR2, qR3, q1_vec, q2_vec, q3_vec, xv) result(g_ab_dq)

Type Bound

c_hmap

Arguments

Type IntentOptional Attributes Name
class(c_hmap), intent(in) :: sf
integer, intent(in) :: np
real(kind=wp), intent(in) :: qL1(1:np)
real(kind=wp), intent(in) :: qL2(1:np)
real(kind=wp), intent(in) :: qL3(1:np)
real(kind=wp), intent(in) :: q1(1:np)
real(kind=wp), intent(in) :: q2(1:np)
real(kind=wp), intent(in) :: qR1(1:np)
real(kind=wp), intent(in) :: qR2(1:np)
real(kind=wp), intent(in) :: qR3(1:np)
real(kind=wp), intent(in) :: q1_vec(1:np)
real(kind=wp), intent(in) :: q2_vec(1:np)
real(kind=wp), intent(in) :: q3_vec(1:np)
class(c_hmap_auxvar), intent(in) :: xv(1:np)

Return Value real(kind=wp), (1:np)


Calls

proc~~hmap_eval_gij_dq_aux_all~~CallsGraph proc~hmap_eval_gij_dq_aux_all c_hmap%hmap_eval_gij_dq_aux_all proc~hmap_eval_gij_dq_aux c_hmap%hmap_eval_gij_dq_aux proc~hmap_eval_gij_dq_aux_all->proc~hmap_eval_gij_dq_aux eval_gij_dq eval_gij_dq proc~hmap_eval_gij_dq_aux->eval_gij_dq

Source Code

FUNCTION hmap_eval_gij_dq_aux_all( sf ,np,qL1,qL2,qL3,q1,q2,qR1,qR2,qR3,q1_vec,q2_vec,q3_vec,xv) RESULT(g_ab_dq)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(c_hmap), INTENT(IN) :: sf
  INTEGER     , INTENT(IN) :: np
  REAL(wp)     , INTENT(IN) :: qL1(1:np),qL2(1:np),qL3(1:np)
  REAL(wp)     , INTENT(IN) :: q1(1:np),q2(1:np)
  REAL(wp)     , INTENT(IN) :: qR1(1:np),qR2(1:np),qR3(1:np)
  REAL(wp)     , INTENT(IN) :: q1_vec(1:np),q2_vec(1:np),q3_vec(1:np)
  CLASS(c_hmap_auxvar),INTENT(IN) :: xv(1:np)
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                  :: g_ab_dq(1:np)
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
  INTEGER :: i
!===================================================================================================================================
  !$OMP PARALLEL DO SCHEDULE(STATIC) DEFAULT(SHARED) PRIVATE(i)
  DO i=1,np
    g_ab_dq(i)=sf%eval_gij_dq_aux(qL1(i),qL2(i),qL3(i),q1(i),q2(i),qR1(i),qR2(i),qR3(i),q1_vec(i),q2_vec(i),q3_vec(i),xv(i))
  END DO
  !$OMP END PARALLEL DO
END FUNCTION hmap_eval_gij_dq_aux_all