hmap_eval_dxdq_aux_all Function

public function hmap_eval_dxdq_aux_all(sf, np, q1, q2, q1_vec, q2_vec, q3_vec, xv) result(dxdq_qvec)

call %eval_dxdq_aux on 1d array of points of size np, using auxiliary variable array of same size

Type Bound

c_hmap

Arguments

Type IntentOptional Attributes Name
class(c_hmap), intent(in) :: sf
integer, intent(in) :: np
real(kind=wp), intent(in) :: q1(1:np)
real(kind=wp), intent(in) :: q2(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:3,1:np)


Calls

proc~~hmap_eval_dxdq_aux_all~~CallsGraph proc~hmap_eval_dxdq_aux_all c_hmap%hmap_eval_dxdq_aux_all proc~hmap_eval_dxdq_aux c_hmap%hmap_eval_dxdq_aux proc~hmap_eval_dxdq_aux_all->proc~hmap_eval_dxdq_aux eval_dxdq eval_dxdq proc~hmap_eval_dxdq_aux->eval_dxdq

Source Code

FUNCTION hmap_eval_dxdq_aux_all( sf ,np,q1,q2,q1_vec,q2_vec,q3_vec,xv) RESULT(dxdq_qvec)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(c_hmap)       ,INTENT(IN) :: sf
  INTEGER             ,INTENT(IN) :: np
  REAL(wp)            ,INTENT(IN) :: q1(1:np),q2(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)                        :: dxdq_qvec(1:3,1:np)
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
  INTEGER :: i
!===================================================================================================================================
  !$OMP PARALLEL DO SCHEDULE(STATIC) DEFAULT(SHARED) PRIVATE(i)
  DO i=1,np
    dxdq_qvec(:,i)=sf%eval_dxdq_aux(q1(i),q2(i),q1_vec(i),q2_vec(i),q3_vec(i),xv(i))
  END DO
  !$OMP END PARALLEL DO
END FUNCTION hmap_eval_dxdq_aux_all