print_amap_t Subroutine

public subroutine print_amap_t(this)

Arguments

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

Contents

Variables

i

Source Code

print_amap_t

Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

    subroutine print_amap_t(this)
        class(amap_t), intent(in) :: this
        integer :: i
        write(6,'(a,i0,a)') 'Map has ',this%high_water,' elements'
        do i=1,this%high_water
            write(6,'(4x,dt,a,dt)') this%pairs(i)%k,' -> ',this%pairs(i)%v
        end do
    end subroutine print_amap_t