print_splash Subroutine

  1. input.f95
  2. input
  3. print_splash

public subroutine print_splash(version)

Uses

  • proc~~print_splash~~UsesGraph proc~print_splash print_splash module~utilities utilities proc~print_splash->module~utilities

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: version

Calls

proc~~print_splash~~CallsGraph proc~print_splash print_splash proc~colourise colourise proc~print_splash->proc~colourise proc~string_index string_index proc~colourise->proc~string_index

Called by

proc~~print_splash~~CalledByGraph proc~print_splash print_splash proc~initialise initialise proc~initialise->proc~print_splash proc~parse_commandline_arguments parse_commandline_arguments proc~initialise->proc~parse_commandline_arguments proc~parse_commandline_arguments->proc~print_splash program~swim swim program~swim->proc~initialise

Contents

Source Code

print_splash

Source Code

  subroutine print_splash(version)
    use utilities, only: colourise
    character(len=*), intent(in) :: version
    integer :: nlsp, nrsp
    character(len=12) :: l1
    character(len=14) :: l2, l4
    character(len=16) :: l3
    l1 = colourise("~~~", 'yellow')
    l2 = colourise("~~~~~", 'green')
    l3 = colourise("~~~~~~~", 'cyan')
    l4 = colourise("~~~~~", 'blue')

    nlsp = floor((49 - len(version)) / 2.)
    nrsp = ceiling((49 - len(version)) / 2.)
    write(*, "(A)") "", &
      "  + . . . . . . . . . . . . . . . . . . . . . . . . . . +", &
      "  .                                                     .", &
      "  .      .      //////// \\    \\      // ||  ||    ||  .", &
      "  .     / \     \\        \\    \\    //  ||  ||\\//||  .", &
      "  .    /"//l1//"\     \\\\\\\   \\  //\\  //   ||  || \/ ||  .", &
      "  .   /"//l2//"\         //    \\//  \\//    ||  ||    ||  .", &
      "  .  (" //l3// ")  ///////      \\    \\     ||  ||    ||  .", &
      "  .   \"//l4//"/   --------------------------------------  .", &
      "  .    -----    Soil   and   Water  Integrated   Model  .", &
      "  .                                                     .", &
      "  ."//repeat(" ", nlsp)//"* "//version//" *"//repeat(" ", nrsp)//".", &
      "  + . . . . . . . . . . . . . . . . . . . . . . . . . . +", ""
  end subroutine print_splash