indicator Function

  1. korc_spatial_distribution.f90
  2. korc_spatial_distribution
  3. indicator

private function indicator(psi, psi_max)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: psi
real(kind=rp), intent(in) :: psi_max

Return Value real(kind=rp)


Called by

proc~~indicator~~CalledByGraph proc~indicator indicator proc~fio_therm FIO_therm proc~fio_therm->proc~indicator proc~spong_3d Spong_3D proc~spong_3d->proc~indicator proc~mh_psi MH_psi proc~mh_psi->proc~indicator proc~mh_gaussian_elliptic_torus MH_gaussian_elliptic_torus proc~mh_gaussian_elliptic_torus->proc~indicator proc~bmc_radial BMC_radial proc~bmc_radial->proc~indicator

Contents

Source Code

indicator

Source Code

FUNCTION indicator(psi,psi_max)
  REAL(rp), INTENT(IN)  :: psi
  REAL(rp), INTENT(IN)  :: psi_max
  REAL(rp)              :: indicator

  IF (psi.LT.psi_max) THEN
     indicator=1
  ELSE
     indicator=0
  END IF
  
END FUNCTION indicator