hmap_eval_Jh_aux_all Function

public function hmap_eval_Jh_aux_all(sf, np, q1, q2, xv) result(Jh)

call %eval_Jh_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)
class(c_hmap_auxvar), intent(in) :: xv(1:np)

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


Calls

proc~~hmap_eval_jh_aux_all~~CallsGraph proc~hmap_eval_jh_aux_all c_hmap%hmap_eval_Jh_aux_all proc~hmap_eval_jh_aux c_hmap%hmap_eval_Jh_aux proc~hmap_eval_jh_aux_all->proc~hmap_eval_jh_aux eval_Jh eval_Jh proc~hmap_eval_jh_aux->eval_Jh

Source Code

FUNCTION hmap_eval_Jh_aux_all( sf ,np,q1,q2,xv) RESULT(Jh)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(c_hmap)       ,INTENT(IN) :: sf
  INTEGER             ,INTENT(IN) :: np
  REAL(wp)            ,INTENT(IN) :: q1(1:np),q2(1:np)
  CLASS(c_hmap_auxvar),INTENT(IN) :: xv(1:np)
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                        :: Jh(1:np)
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
  INTEGER :: i
!===================================================================================================================================
  !$OMP PARALLEL DO SCHEDULE(STATIC) DEFAULT(SHARED) PRIVATE(i)
  DO i=1,np
    Jh(i)=sf%eval_Jh_aux(q1(i),q2(i),xv(i))
  END DO
  !$OMP END PARALLEL DO
END FUNCTION hmap_eval_Jh_aux_all