Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | string |
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