Codigo Fonte Fortran acesso:
program arquivos | |
!/*———————————- | |
!* Program: arquivos.f90 | |
!* Autor: Hans Rogerio Zimermann | |
!* Data: 03/06/2015 | |
!*———————————–/ | |
integer m,n | |
real r,s | |
m = 2; n = 213; | |
r = –1.0; s = 1e+3 | |
!/*———————————- | |
!* ESCRITA | |
!*———————————–/ | |
open(9,file='dados.txt',status='old') | |
do i = 1, 5 | |
write(9,*) m+i,n+i,r+i,s+i | |
enddo | |
!Procedimento acima gerou um arquivo de dados de 295 bytes. | |
open(10,file='dados2.txt') | |
do i = 1, 5 | |
write(10,100) m+i,n+i,r+i,s+i | |
enddo | |
!Procedimento acima gerou um arquivo de dados de 115 bytes. | |
!Isto Mostra a importancia da formatacao adequada da saida de dados | |
100 format(I2,1X,I3,F8.2,F8.2) | |
open(11,file='dados3.txt') | |
do i = 1, 5 | |
write(11,110) m+i,n+i,r+i,s+i | |
enddo | |
!Procedimento acima gerou um arquivo de dados de 115 bytes. | |
!Isto Mostra a importancia da formatacao adequada da saida de dados | |
110 format(2(1x,I3),2(F8.2)) | |
close(9) | |
close(10) | |
close(11) | |
!/*———————————- | |
!* LEITURA | |
!*———————————–/ | |
open(9,file='dados.txt',status='old') | |
do i = 1, 5 | |
read(9,*) m,n,r,s | |
write(*,*) m,n,r,s | |
enddo | |
close(9) | |
open(9,file='dados.txt',status='old') | |
do i = 1, 5 | |
read(9,*) m,n,r,s | |
!Mostrando no formato 110 | |
write(*,110) m,n,r,s | |
enddo | |
close(9) | |
end program arquivos | |
!/———————————- | |
!* ANEXOS | |
!*———————————-/ | |
!Resultados Escrita | |
!-rw-rw-r– 1 hans hans 115 Jun 3 08:34 dados2.txt! | |
!-rw-rw-r– 1 hans hans 125 Jun 3 08:34 dados3.tx | |
!-rw-rw-r– 1 hans hans 295 Jun 3 08:34 dados.txt | |
!hans@hasus:~/tmp$ cat dados.txt dados2.txt dados3.txt | |
! 3 214 0.00000000 1001.00000 | |
! 4 215 1.00000000 1002.00000 | |
! 5 216 2.00000000 1003.00000 | |
! 6 217 3.00000000 1004.00000 | |
! 7 218 4.00000000 1005.00000 | |
! 3 214 0.00 1001.00 | |
! 4 215 1.00 1002.00 | |
! 5 216 2.00 1003.00 | |
! 6 217 3.00 1004.00 | |
! 7 218 4.00 1005.00 | |
! 3 214 0.00 1001.00 | |
! 4 215 1.00 1002.00 | |
! 5 216 2.00 1003.00 | |
! 6 217 3.00 1004.00 | |
! 7 218 4.00 1005.00 | |
!Resultados Leitura | |
!hans@hasus:~/tmp$ gfortran arquivos.f90 | |
!hans@hasus:~/tmp$ ./a.out | |
! 3 214 0.00000000 1001.00000 | |
! 4 215 1.00000000 1002.00000 | |
! 5 216 2.00000000 1003.00000 | |
! 6 217 3.00000000 1004.00000 | |
! 7 218 4.00000000 1005.00000 | |
! 3 214 0.00 1001.00 | |
! 4 215 1.00 1002.00 | |
! 5 216 2.00 1003.00 | |
! 6 217 3.00 1004.00 | |
! 7 218 4.00 1005.00 | |
!hans@hasus:~/tmp$ |