init_run_name Subroutine

private subroutine init_run_name()

This is called for a non Trinity or list run - it checks that the input file name ends in .in, chops the extension off and stores it in arun_name. It also assigns the pointer run_name to arun_name.

Arguments

None

Contents

Source Code


Source Code

  subroutine init_run_name
    implicit none
    integer :: l

    l = len_trim (arun_name)
    if (l > 3)then
       if(arun_name(l-2:l) == ".in") then
          arun_name = arun_name(1:l-3)
       endif
    end if
    run_name => arun_name

  end subroutine init_run_name