print_to_unit_dropblock2d Subroutine

private subroutine print_to_unit_dropblock2d(this, unit)

Uses

    • coreutils

Print 2D dropblock layer to unit

Type Bound

dropblock2d_layer_type

Arguments

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

Instance of the 2D dropblock layer
integer, intent(in) :: unit

File unit

Source Code

  subroutine print_to_unit_dropblock2d(this, unit)
    !! Print 2D dropblock layer to unit
    use coreutils, only: to_upper
    implicit none

    ! Arguments
    class(dropblock2d_layer_type), intent(in) :: this
    !! Instance of the 2D dropblock 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,"BLOCK_SIZE = ",I0)') this%block_size

  end subroutine print_to_unit_dropblock2d