ImageGeneration
elemental impure subroutine print_n(this) class(ImageGeneration), intent(in) :: this print *, "n: ", this%n end subroutine print_n