Criação de Arquivos e Diretórios em Fortran

 

Neste post irei mostrar como criar arquivos e deretórios (pastas) utilizando a linguagem de programação FORTRAN (Formula Translator), a primeira linguagem de alto-nível do mundo da computação, que sua principal utilidade nos dias de hoje continua sendo a sua grande capacidade de efetuar cálculos matemáticos pesados.

! -------------------------------------------------- ! Criação de arquivos em Fortran ! Elexsandro Rangel dos Santos ! Data: 12/09/2011 ! -------------------------------------------------- PROGRAM CriacaoArquivosFortran
    IMPLICIT NONE CHARACTER(20) :: nomeArquivo

    ! Imprime na tela PRINT *, '****************************************' PRINT *, '*****Criacao de arquivos em FORTRAN*****' PRINT *, 'Digite o nome do arquivo' READ (*,*), nomeArquivo

    !Chamada do procedimento que cria o arquivo e o diretório criaArquivo("pasta1", nomeArquivo)
    CONTAINS SUBROUTINE CriaArquivo(dir, nome)
            CHARACTER(*) :: dir, nome
            CHARACTER(30) :: aux

            ! Criação da pasta1 CALL system('mkdir '//dir)

            ! Escrevendo na variável auxiliar o nome do arquivo concatenados ! pasta1/nomeArquivo.ext aux = dir//'/'//nome
            ! Abre o arquivo OPEN (10, FILE=aux)
            PRINT *, aux

            ! escreve no arquivo WRITE(10, *) 'escrevendo no arquivo com Fortran' ! Fecha o arquivo CLOSE(10)
        END SUBROUTINE END PROGRAM CriacaoArquivosFortran

 

O comando CALL chama o procedimento, que no caso do Fortran, que´inicia com a palavra reservada SUBROUTINE e termina com as palavras END SUBROUTINE.

Para aqueles que possuem conhecimentos em C, C++, Java ou C#, pode estar se questionando acerca do // apos os nomes de variáveis, no Fortran os caracteres // siginificam uma concatenação de strings, ou seja ele está concatenando o nome da pasta, uma barra e o nome do arquivo..

Até a próxima

Anúncios

2 comentários em “Criação de Arquivos e Diretórios em Fortran

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s