integer :: nvals = 0 integer :: status real :: value ! Get the file name and echo it back to the user. write(*,*) 'Please enter input file name:'.
確定! 回上一頁