18 REAL(KIND=8),
DIMENSION(ne-nb+1) :: vv
20 REAL(KIND=8),
DIMENSION(2,ne-nb+1),
OPTIONAL :: pts
21 INTEGER,
DIMENSION(ne-nb+1),
OPTIONAL :: pts_ids
22 REAL(KIND=8),
DIMENSION(ne-nb+1) :: r,z
24 IF(
PRESENT(pts) .AND.
PRESENT(pts_ids) )
THEN 41 REAL(KIND=8),
DIMENSION(2) :: pt,vv
42 INTEGER,
DIMENSION(1) :: pt_id
43 REAL(KIND=8),
DIMENSION(1) :: tmp,r,z
51 IF (tmp(1) .GE. 0.d0 )
THEN 70 REAL(KIND=8),
DIMENSION(:) :: angles
74 REAL(KIND=8),
DIMENSION(nb_angles,ne-nb+1) :: vv
84 REAL(KIND=8),
DIMENSION(:),
INTENT(IN) :: r, z
85 REAL(KIND=8),
DIMENSION(SIZE(r)) :: vv
93 REAL(KIND=8),
DIMENSION(:),
INTENT(IN) :: r, z
94 REAL(KIND=8),
INTENT(IN) :: t
95 REAL(KIND=8),
DIMENSION(SIZE(r)) :: vv
103 REAL(KIND=8),
INTENT(IN):: r, z
105 vv = 3 *
b_factor_t27 * (z**2-1)**3 * (r*(1-r))**2 * (1-2*r)
111 REAL(KIND=8),
INTENT(IN):: r, z,t
119 REAL(KIND=8),
INTENT(IN):: r, z
127 REAL(KIND=8),
INTENT(IN):: r, z,t
real(kind=8) function dfdz_test_wtime_t27(r, z, t)
real(kind=8) function dfdr_test_t27(r, z)
real(kind=8) function dfdr_test_wtime_t27(r, z, t)
real(kind=8) function, dimension(size(r)) f_test_t27(r, z)
integer, public mode_mu_t27
real(kind=8), public b_factor_t27
real(kind=8), parameter, public ratio_mu_t27
real(kind=8) function, dimension(ne-nb+1) mu_bar_in_fourier_space_anal_t27(H_mesh, nb, ne, pts, pts_ids)
real(kind=8) function dfdz_test_t27(r, z)
real(kind=8) function, dimension(size(r)) f_test_wtime_t27(r, z, t)
real(kind=8) function, dimension(2) grad_mu_bar_in_fourier_space_anal_t27(pt, pt_id)
real(kind=8) function, dimension(nb_angles, ne-nb+1) mu_in_real_space_anal_t27(H_mesh, angles, nb_angles, nb, ne, time)
real(kind=8), public omega_t27