print_to_unit_base Subroutine

private subroutine print_to_unit_base(this, unit)

Print base optimiser information

Type Bound

base_optimiser_type

Arguments

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

Instance of the base optimiser
integer, intent(in) :: unit

File unit

Source Code

  subroutine print_to_unit_base(this, unit)
    !! Print base optimiser information
    implicit none

    ! Arguments
    class(base_optimiser_type), intent(in) :: this
    !! Instance of the base optimiser
    integer, intent(in) :: unit
    !! File unit


    write(unit,'(6X,"NAME = ",A)') this%name
    write(unit,'(6X,"LEARNING_RATE = ",F10.5)') this%learning_rate
    write(unit,'(6X,"ITERATION = ",I10)') this%iter
    write(unit,'(6X,"EPOCH = ",I10)') this%epoch
    write(unit,'(6X,"REGULARISATION = ",L1)') this%regularisation

  end subroutine print_to_unit_base