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.
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