看你用的什么编译器，如果是 windows 平台的编译器，如果支持 API 等函数的接口，可以使用 keybd_event 函数。具体方法因编译器不同而不同。
fortran中call system()打开一个软件,会跳出一个窗口,要点击回车键才行,怎么能用代码控制回车键 语法里没有这样的相关内容。看你用的什么编译器,如果是 windows 平台的编译器,如果支持 API 等函数的接口,可以使用 keybd_event 函数。具体方法因编译器不同而不同。
else print *, "Failed to solve linear system, info =", info end if deallocate(ipiv) contains ! 打印向量的子程序 subroutine print_vector(v) real, intent(in) :: v(n) integer :: i do i = 1, n write(*,'(F6.2)', advance="no") v(i) end do print * end subroutine print_vector...
else print *, "Failed to solve linear system, info =", info end if deallocate(ipiv) contains ! 打印向量的子程序 subroutine print_vector(v) real, intent(in) :: v(n) integer :: i do i = 1, n write(*,'(F6.2)', advance="no") v(i) end do print * end subroutine print_vector...