fork download
copy 
  1.     program Console6
  2.         implicit none
  3.         character(132) :: buff
  4.         character(8) :: date0, time0, date1, time1
  5.         character(80) :: email_address, dummy1, dummy2, dummy3
  6.         character(30), allocatable :: name(:, :)
  7.         integer, allocatable :: no(:), id(:), point(:)
  8.         integer :: i, ndata, ipos0, ipos1, io
  9.         real :: average
  10.  
  11.         open(10, file = 'test.csv')
  12.         open(11, file = 'output.txt')
  13.  
  14.         ndata = 0
  15.         do 
  16.             read(10, *, iostat = io)
  17.             if (io == -1) exit ! end of file      
  18.             ndata = ndata + 1
  19.         end do
  20.         print *, 'Number of data =', ndata
  21.         allocate(no(ndata), id(ndata), point(ndata), name(2, ndata))
  22.  
  23.         rewind(10)
  24.         do i = 1, ndata
  25.             read(10, '(a)') buff
  26.             read(buff, *) no(i)
  27.  
  28.             ipos0 = index(buff, ',') + 1
  29.             ipos1 = index(buff(ipos0:), ' ') + ipos0 - 2
  30.             read(buff(ipos0:ipos1), '(a)') date0 
  31.             ipos0 = ipos1 + 2
  32.             ipos1 = index(buff(ipos0:), ',') + ipos0 - 1
  33.             read(buff(ipos0:ipos1), '(a)') time0
  34.  
  35.             ipos0 = ipos1 + 1
  36.             ipos1 = index(buff(ipos0:), ' ') + ipos0 - 2
  37.             read(buff(ipos0:ipos1), '(a)') date1
  38.             ipos0 = ipos1 + 2
  39.             ipos1 = index(buff(ipos0:), ',') + ipos0 - 1
  40.             read(buff(ipos0:ipos1), '(a)') time1
  41.  
  42.             ipos0 = ipos1 + 1
  43.             print *, buff(ipos0:)
  44.             read(buff(ipos0:), *) email_address, dummy1, id(i), dummy2, name(:, i), dummy3, point(i)
  45.         end do    
  46.  
  47.         average = sum(point) / ndata
  48.  
  49.         do i = 1, ndata
  50.             write(11, '(i3, 1x, a, 1x, a, i5)') id(i), trim(name(1, i)), trim(name(2, i)), point(i)
  51.         end do    
  52.         write(11, '(a, f10.2)')  '平均点', average       
  53.     end program Console6
  54.  
Runtime error #stdin #stdout #stderr 0s 4420KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
At line 11 of file prog.f95 (unit = 10)
Fortran runtime error: Cannot open file 'test.csv': Permission denied

Error termination. Backtrace:
#0  0x2af4db5cdbfa
#1  0x2af4db5ce6f5
#2  0x2af4db5cf13b
#3  0x2af4db7e9808
#4  0x2af4db7e9afc
#5  0x5622d664430a
#6  0x5622d6645695
#7  0x2af4db86fb6a
#8  0x5622d66441b9
#9  0xffffffffffffffff
https://ideone.com/hfqL5d
language:
Fortran (gfortran 8.3)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!