print_to_unit_dropout Subroutine

private subroutine print_to_unit_dropout(this, unit)

Uses

    • coreutils

Print dropout layer to unit

Type Bound

dropout_layer_type

Arguments

Type IntentOptional Attributes Name
class(dropout_layer_type), intent(in) :: this

Instance of the dropout layer
integer, intent(in) :: unit

File unit

Source Code

  subroutine print_to_unit_dropout(this, unit)
    !! Print dropout layer to unit
    use coreutils, only: to_upper
    implicit none

    ! Arguments
    class(dropout_layer_type), intent(in) :: this
    !! Instance of the dropout layer
    integer, intent(in) :: unit
    !! File unit


    ! Write initial parameters
    !---------------------------------------------------------------------------
    write(unit,'(3X,"INPUT_SHAPE = ",3(1X,I0))') this%input_shape
    write(unit,'(3X,"RATE = ",F0.9)') this%rate
    write(unit,'(3X,"NUM_MASKS = ",I0)') this%num_masks

  end subroutine print_to_unit_dropout