mod_mnist

Procedures to work with MNIST dataset, usable with data format as provided in this repo and not the original data format (idx).

TODO make MNIST work with arbitrary precision

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Functions

public pure function label_digits(labels) result(res)

Converts an array of MNIST labels into a form that can be input to the network_type instance.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	labels(:)

Return Value real(kind=rk) (10,size(labels))

private pure function digits(x)

Returns an array of 10 reals, with zeros everywhere and a one corresponding to the input number, for example: digits(0) = [1., 0., 0., 0., 0., 0., 0., 0., 0., 0.] digits(1) = [0., 1., 0., 0., 0., 0., 0., 0., 0., 0.] digits(6) = [0., 0., 0., 0., 0., 0., 1., 0., 0., 0.]

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	x

Return Value real(kind=rk) (10)

Subroutines

public subroutine load_mnist(tr_images, tr_labels, te_images, te_labels, va_images, va_labels)

Loads the MNIST dataset into arrays.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(inout),		allocatable	::	tr_images(:,:)
real(kind=rk),	intent(inout),		allocatable	::	tr_labels(:)
real(kind=rk),	intent(inout),		allocatable	::	te_images(:,:)
real(kind=rk),	intent(inout),		allocatable	::	te_labels(:)
real(kind=rk),	intent(inout),	optional	allocatable	::	va_images(:,:)
real(kind=rk),	intent(inout),	optional	allocatable	::	va_labels(:)

public subroutine print_image(images, labels, n)

Prints a single image and label to screen.

Arguments

Type	Intent		Name
real(kind=rk),	intent(in)	::	images(:,:)
real(kind=rk),	intent(in)	::	labels(:)
integer(kind=ik),	intent(in)	::	n

mod_mnist Module

Contents

Functions

Subroutines

Uses

Contents

Functions

Subroutines

Functions

public pure function label_digits(labels) result(res)

Arguments

Return Value real(kind=rk) (10,size(labels))

private pure function digits(x)

Arguments

Return Value real(kind=rk) (10)

Subroutines

public subroutine load_mnist(tr_images, tr_labels, te_images, te_labels, va_images, va_labels)

Arguments

public subroutine print_image(images, labels, n)

Arguments