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)


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