runit Subroutine

subroutine runit(string)

Arguments

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

Contents

Source Code


Source Code

subroutine runit(string)
character(len=*),intent(in) :: string
      write(6,*)'RUN:',string
      flush(unit=6)
      call execute_command_line(cmd(:e)//string)
end subroutine runit