Codigo Fonte Fortran acesso:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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$ |
Deixe um comentário