TEST1_ANALYTIC Function

public function TEST1_ANALYTIC(NTH)

Hand-derived closed form for Test 1's target quantity (a specific product of VSH inner products), evaluated over a colatitude grid at for comparison against TEST1_VSH and TEST1_GW.

Returns: Complex array of size NTH, the analytic Test 1 values.

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: NTH

Number of colatitude samples over .

Return Value complex(kind=dp), DIMENSION(NTH)


Calls

proc~~test1_analytic~~CallsGraph proc~test1_analytic TEST1_ANALYTIC dcos dcos proc~test1_analytic->dcos dsin dsin proc~test1_analytic->dsin

Called by

proc~~test1_analytic~~CalledByGraph proc~test1_analytic TEST1_ANALYTIC program~main MAIN program~main->proc~test1_analytic

Source Code

  FUNCTION TEST1_ANALYTIC(NTH)
  IMPLICIT NONE
  INTEGER(KIND=i4), INTENT(IN) :: NTH
  INTEGER(KIND=i4) :: I
  REAL(KIND=dp) :: TH
  COMPLEX(KIND=dp), DIMENSION(NTH) :: TEST1_ANALYTIC

  DO I=1,NTH
    TH = (I-1)*pi/(NTH-1)
    TEST1_ANALYTIC(I)=3.d0*DSQRT(5.d0)/64.d0/pi**2* &
      (DSIN(TH)*DCOS(TH))**2
  ENDDO
  RETURN
  END FUNCTION TEST1_ANALYTIC