get_specific_response_file_name Function

public function get_specific_response_file_name(ik, is, dt, suffix) result(file_name)

This function returns the response file name when given characteristic data.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ik
integer, intent(in) :: is
real, intent(in) :: dt
character(len=*), intent(in), optional :: suffix

Return Value character(len=256)


Contents


Source Code

  function get_specific_response_file_name(ik, is, dt, suffix) result(file_name)
    implicit none
    integer, intent(in) :: ik, is
    real, intent(in) :: dt
    character(len = *), optional, intent(in) :: suffix
    character(len = 256) :: file_name

    character(len = 64) :: suffix_local
    character(len = 64), parameter :: suffix_default='.response'
    character(len = 14) :: dt_tmp

    !Set file suffix
    suffix_local=suffix_default
    if(present(suffix)) suffix_local=suffix

    !First write the time step into a temporary so that we can strip
    !whitespace.
    write(dt_tmp,'(E14.6E3)') dt

    write(file_name,'(A,"_ik_",I0,"_is_",I0,"_dt_",A,A)') trim(response_file),ik,is,trim(adjustl(dt_tmp)),trim(suffix_local)
  end function get_specific_response_file_name