julienne_one_image_prints_m.f90 Source File


This file depends on

sourcefile~~julienne_one_image_prints_m.f90~~EfferentGraph sourcefile~julienne_one_image_prints_m.f90 julienne_one_image_prints_m.f90 sourcefile~julienne_string_m.f90 julienne_string_m.F90 sourcefile~julienne_one_image_prints_m.f90->sourcefile~julienne_string_m.f90

Files dependent on this one

sourcefile~~julienne_one_image_prints_m.f90~~AfferentGraph sourcefile~julienne_one_image_prints_m.f90 julienne_one_image_prints_m.f90 sourcefile~julienne_m.f90 julienne_m.f90 sourcefile~julienne_m.f90->sourcefile~julienne_one_image_prints_m.f90 sourcefile~julienne_one_image_prints_s.f90 julienne_one_image_prints_s.F90 sourcefile~julienne_one_image_prints_s.f90->sourcefile~julienne_one_image_prints_m.f90 sourcefile~julienne_test_harness_s.f90 julienne_test_harness_s.F90 sourcefile~julienne_test_harness_s.f90->sourcefile~julienne_one_image_prints_m.f90 sourcefile~julienne_test_s.f90 julienne_test_s.F90 sourcefile~julienne_test_s.f90->sourcefile~julienne_one_image_prints_m.f90 sourcefile~assertions.f90 assertions.F90 sourcefile~assertions.f90->sourcefile~julienne_m.f90 sourcefile~check-for-command-line-argument.f90 check-for-command-line-argument.f90 sourcefile~check-for-command-line-argument.f90->sourcefile~julienne_m.f90 sourcefile~get-command-line-flag-value.f90 get-command-line-flag-value.f90 sourcefile~get-command-line-flag-value.f90->sourcefile~julienne_m.f90 sourcefile~julienne_test_suite_s.f90 julienne_test_suite_s.F90 sourcefile~julienne_test_suite_s.f90->sourcefile~julienne_m.f90 sourcefile~scaffold.f90 scaffold.F90 sourcefile~scaffold.f90->sourcefile~julienne_m.f90

Source Code

! Copyright (c) 2024-2025, The Regents of the University of California and Sourcery Institute
! Terms of use are as specified in LICENSE.txt

module julienne_one_image_prints_m
  use julienne_string_m, only : string_t
  implicit none

  private
  public :: one_image_prints

  interface one_image_prints

    module subroutine print_string(string)
      implicit none
      type(string_t), intent(in) :: string(..)
    end subroutine

    module subroutine print_character(character_string)
      implicit none
      character(len=*), intent(in) :: character_string(..)
    end subroutine

  end interface

end module julienne_one_image_prints_m