program sample03 implicit none !-------------------------------------------------------------------- integer :: i, n real(8) :: x real(8) :: y character(len=5) :: o character(len=250) :: p !-------------------------------------------------------------------- i = 12345 n = 3 x = 1.2345d0 y = 1.2345d10 o = '' p = '' !-------------------------------------------------------------------- write(*,'(a)') 'Standard I/O' write(*,*) 'Input text' read(*,*) p o = p(1:5) write(*,'(a5)') o write(*,*) i write(*,'(i5)') i write(*,'(i6)') i write(*,'(f6.4)') x write(*,'(f7.3)') x write(*,'(e10.4)') y write(*,'(i5,1x,f6.4,1x,a5)') i, x, o write(*,'(3(i5,1x))') i, i, i !-------------------------------------------------------------------- write(*,'(a)') 'External I/O (sample03.txt)' open(1,file='sample03.txt',form='formatted',status='unknown') write(1,'(i5,1x,f6.4,1x,a5)') i, x, o close(1) open(1,file='sample03.txt',form='formatted',status='old') read(1,*) i, x, o close(1) write(*,'(i5,1x,f6.4,1x,a5)') i, x, o !-------------------------------------------------------------------- write(*,'(a)') 'External I/O (sample03.csv)' open(1,file='sample03.csv',form='formatted',status='unknown') write(1,'(i5,a,f6.4,a,a5)') i, ',', x, ',', o close(1) open(1,file='sample03.csv',form='formatted',status='old') read(1,*) i, x, o close(1) write(*,'(i5,1x,f6.4,1x,a5)') i, x, o !-------------------------------------------------------------------- end program sample03