relu_s.f90 Source File

! Copyright (c), The Regents of the University of California
! Terms of use are as specified in LICENSE.txt
submodule(relu_m) relu_s
  use kind_parameters_m, only : rkind
  implicit none

  real(rkind), parameter :: zero = 0._rkind, one = 1._rkind

contains

    module procedure activation
      y = max(zero, x)
    end procedure

    module procedure activation_derivative
      y = merge(one, zero, x>zero)
    end procedure

    module procedure function_name
      string = string_t("relu")
    end procedure

end submodule relu_s