Upgrade to Pro — share decks privately, control downloads, hide ads and more …

Fortran - Formatos

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/

Hans Rogério Zimermann

December 17, 2016
Tweet

Transcript

  1. 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
  2. 12. Formato program generico integer :: i = 12 real

    :: x = 2254.4745876942 write(*,900) i, x 900 format(i4,1x,f3.3) end program 12 ***
  3. 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
  4. 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
  5. Variável FORMATO N I2 J I3 K I3 Se N

    = 23, J =356, K=-13 Exemplo
  6. 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
  7. 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