Existem várias estratégias possíveis para efetuar a leitura do arquivo no formato csv com delimitador ';'
e separar os campos lidos.
Abaixo segue um exemplo comentado, que efetua a leitura de cada linha do arquivo e a armazena na variável linha_texto
.
O looping que está logo após a leitura da linha, percorre cada caracter da linha e procura por um ';'
e, caso encontre, armazena o "último" valor em um item do array dados
.
Após esse looping, todas as (78) colunas encontram-se disponíveis no array e são impressas separadamente na saída padrão (console).
PROGRAM vazoes
IMPLICIT NONE
INTEGER :: i
! A variavel status verifica se houve
! algum erro ao abrir o arquivo
INTEGER :: status = 0
! Contador de posições de campos e número de campos
INTEGER :: posicao_campo = 0, campos = 0
! Aloca espaco para leitura de uma linha de texto
CHARACTER*2048 :: linha_texto
! Aloca espaço para um registro do banco de dados (78 campos)
CHARACTER*32, DIMENSION(78) :: dados
! Abre o arquivo
OPEN(UNIT=15, IOSTAT=status, FILE='vazoes.txt', STATUS='OLD')
! Verifica se houve erro ao abrir o arquivo
IF (status .GT. 0) THEN
WRITE(*,*) "Erro ao abrir o arquivo!"
! Finaliza a execução se houve erro
STOP
ENDIF
! Looping de leitura do arquivo
DO
! Lê uma linha completa (um registro)
READ(15, '(A)', IOSTAT=status) linha_texto
! Verifica se chegou no final do arquivo...
IF (status .LT. 0) THEN
! ...e sai do looping se finalizou
EXIT
ENDIF
! Separa os campos utilizando o ';' como delimitador
posicao_campo = 1
campos = 1
DO i=1,LEN(linha_texto)
! se encontrar o ';'...
IF (linha_texto(i:i) == ';') THEN
! ...adiciona o campo no array 'dados'
dados(campos) = linha_texto(posicao_campo:i-1)
campos = campos + 1
! marca a posição do último ';' encontrado
posicao_campo = i+1
ENDIF
ENDDO
! Imprime cada campo em formato texto na saída padrão
WRITE(*,*) 'Inicio'
DO i=1,campos-1
WRITE(*,*) dados(i)
ENDDO
WRITE(*,*) 'Fim.'
END DO
! Fecha o arquivo
CLOSE(UNIT=15, IOSTAT=status)
! Verifica se houve erro ao fechar o arquivo
IF (status .GT. 0) THEN
WRITE(*,*) "Erro ao fechar o arquivo!"
! Finaliza a execução se houve erro
STOP
ENDIF
END PROGRAM vazoes
A organização dos registros lidos na variável dados
e a conversão dos dados para os tipos corretos (data, inteiro, etc.) precisa ser implementada e depende do objetivo de processamento que você pretende implementar no programa.
Caso o formato do arquivo de dados mude, é necessário alterar o programa ou implementar uma estratégia de alocação dinâmica (ex: ALLOCATE) dos arrays, que se adapte a formatos variáveis durante o tempo de execução ('runtime').