close_module_test Subroutine

public subroutine close_module_test(module_name)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: module_name

Contents

Source Code

close_module_test

Source Code

  subroutine close_module_test(module_name)
    character(*), intent(in) :: module_name
    character(17), parameter :: message = 'Finished testing '
    if (should_print(1)) then
       call print_with_stars(message, module_name)
       write (*,*)
    end if
  end subroutine close_module_test