Fortran ...conjunto de caminhos a seguir...

INFO Disciplina: FSC1004 Computação Básica para Física – FORTRAN Prof: Hans Rogério Zimermann - UFSM

12. Formato write(*,label) lista-de-variaveis label format codigo-formato Sintaxe: Exemplo: write(*,900) i, x 900 format(i4,f8.3)

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

12. Formato program generico integer :: i = 12 real :: x = 2254.4745876942 write(*,900) i, x 900 format(i4,1x,f3.3) end program 12 ***

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

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

Variável FORMATO N I2 J I3 K I3 Se N = 23, J =356, K=-13 Exemplo

Exemplo FORMATO RESULTADO A10 teste de p A5 teste 1234567890 NOME = ‘teste de programação’

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

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. Formato Código Fonte RESULTADO

12. Formato Código Fonte RESULTADO