sigmoid_s.f90 Source File

! Copyright (c), The Regents of the University of California
! Terms of use are as specified in LICENSE.txt
submodule(sigmoid_m) sigmoid_s
  implicit none

contains

    module procedure activation
      y =  1./(1.+exp(-x))
    end procedure

    module procedure activation_derivative
      y =  exp(-x)/(1.+exp(-x))**2
    end procedure

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

end submodule sigmoid_s