problem_15_module Module

A module for problem 15, part 2.

Uses

- iso_fortran_env
- aoc_utilities
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.

Used by

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.

Derived Types

type, public :: lens

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	label
integer(kind=ip),	public		::	focal_length	=	0

type, public :: box

Components

Type	Visibility	Attributes		Name		Initial
type(lens),	public,	dimension(:), allocatable	::	lenses			the lenses in the box

Type-Bound Procedures

procedure, public :: add_lens
procedure, public :: remove_lens

Subroutines

public subroutine add_lens(me, l)

Arguments

Type	Intent	Optional	Attributes		Name
class(box),	intent(inout)			::	me
type(lens),	intent(in)			::	l	lense to add

public subroutine remove_lens(me, label)

remove the lens with the label (if present)

Arguments

Type	Intent	Optional	Attributes		Name
class(box),	intent(inout)			::	me
character(len=*),	intent(in)			::	label