runit Subroutine

subroutine runit(string)

Arguments

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

Contents

Variables

cmd

Source Code

runit

Variables

Type Visibility Attributes Name Initial
character(len=4096), public :: cmd

Source Code

subroutine runit(string)
character(len=*),intent(in) :: string
character(len=4096) :: cmd
   call get_command_argument(0,cmd)
   write(stdout,*)'RUN:',trim(cmd)//' '//string
   call execute_command_line(trim(cmd)//' '//string)
end subroutine runit