Fortran - Formatos

Apresentação para uso em sala de aula sobre formatos de leitura e escrita em Fortran.

Conteúdo teórico mais completo pode ser encontrado no website de apoio da disciplina - http://portalfisica.com/academico/fsc1004/unidade-03/formatacao-de-entrada-e-saida/

Transcript

1. Fortran ...conjunto de caminhos a seguir...
2. INFO Disciplina: FSC1004 Computação Básica para Física – FORTRAN Prof: Hans Rogério Zimermann - UFSM
3. 12. Formato write(*,label) lista-de-variaveis label format codigo-formato Sintaxe: Exemplo: write(*,900) i, x 900 format(i4,f8.3)
4. 12. Formato program generico integer :: i = 12 real :: x = 2.47 write(*,900) i, x 900 format(i4,f8.3) end program 12 2.470
5. 12. Formato program generico integer :: i = 12 real :: x = 2254.4745876942 write(*,900) i, x 900 format(i4,1x,f3.3) end program 12 ***
6. Formatos mais comuns Formato Descrição Conversão A conjunto de caracteres (texto) Aw D números com dupla precisão, notação exponencial Dw.d E números reais, notação exponencial Ew.d F números reais, formato de ponto fixo Fw.d I números inteiros w X espaços horizontais (espaço em branco) wX / espaços verticais (novalinha) \ Continuar na mesma linha Em que: w = largura do campo em caracteres (inclui sinal e pontuação) d = quantidade de dígitos à direita
7. FORMATO A b F9.4 34.4568 0.0013 E10.4 0.3446E+03 0.1312E-02 E12.5 0.34457E+03 0.13120E-02 D10.4 0.3446D+03 0.1312D-02 Seja a = 34.456767 e b = 0.001312 Exemplo
8. Variável FORMATO N I2 J I3 K I3 Se N = 23, J =356, K=-13 Exemplo
9. Exemplo FORMATO RESULTADO A10 teste de p A5 teste 1234567890 NOME = ‘teste de programação’
10. Exemplo Código Fonte RESULTADO program genérico real :: x = 0.025 write(*,*) 'x= ', x write(*,100) 'x= ', x 100 format(A,F5.3) write(*,110) 'x= ', x 110 format(A,E8.1) end program generico x= 2.50000004E-02 x= 0.025 x= 0.3E-01
11. 12. Formato Pode-se especificar o formato diretamente no argumento das funções READ, WRITE e PRINT Código Fonte RESULTADO program generico real :: x = 0.2524 print '(A,F8.3)', "Resposta = ", x write(*,'(A,F8.3)') "Resposta = ", x write(*,900) "Resposta = ", x 900 format(A,F8.3) end program Resposta = 0.252 Resposta = 0.252 Resposta = 0.252
12. 12. Formato Código Fonte RESULTADO
13. 12. Formato Código Fonte RESULTADO