Recursos de aula dia 03 Jun 2015 – Arquivos (Fortran)

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$