hmap_eval_aux_all Function

public function hmap_eval_aux_all(sf, np, q1_in, q2_in, xv) result(xyz)

call %eval_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_in(1:np)
real(kind=wp), intent(in) :: q2_in(1:np)
class(c_hmap_auxvar), intent(in) :: xv(1:np)

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


Calls

proc~~hmap_eval_aux_all~~CallsGraph proc~hmap_eval_aux_all c_hmap%hmap_eval_aux_all proc~hmap_eval_aux c_hmap%hmap_eval_aux proc~hmap_eval_aux_all->proc~hmap_eval_aux eval eval proc~hmap_eval_aux->eval

Source Code

FUNCTION hmap_eval_aux_all( sf ,np,q1_in,q2_in,xv) RESULT(xyz)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(c_hmap)       ,INTENT(IN) :: sf
  INTEGER             ,INTENT(IN) :: np
  REAL(wp)            ,INTENT(IN) :: q1_in(1:np),q2_in(1:np)
  CLASS(c_hmap_auxvar),INTENT(IN) :: xv(1:np)
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                        :: xyz(1:3,1:np)
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
  INTEGER :: i
!===================================================================================================================================
  !$OMP PARALLEL DO SCHEDULE(STATIC) DEFAULT(SHARED) PRIVATE(i)
  DO i=1,np
    xyz(:,i)=sf%eval_aux(q1_in(i),q2_in(i),xv(i))
  END DO
  !$OMP END PARALLEL DO
END FUNCTION hmap_eval_aux_all