indicator_exp Function

  1. korc_experimental_pdf.f90
  2. korc_experimental_pdf
  3. indicator_exp

public function indicator_exp(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_exp

Source Code

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

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