Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Fortran


Valdilei

Pergunta

Oi, Bom dia pessoal! Faço alguns programinhas em fortran,sei pouca coisa e preciso de ajuda.

Supondo que na variável que contenha "nome.dat" como faço para passar para uma outra variável

somente o que vem antes do ponto ( b = "nome"). Tem alguma função pra isso?

Um abraço e obrigado.

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

É só usar substring: string(início:fim). No caso, você primeiro tem que achar onde está o ponto e depois usar esta posição como base. Segue um exemplo:

program Teste

    integer i, posponto
    character *(12) arquivo

    arquivo = "arquivo.txt"

    do i=1, len(arquivo)
        if (arquivo(i:i) .eq. ".") then
            posponto = i
        endif
    enddo

    print *, "Arquivo.: ", arquivo
    print *, "Nome....: ", arquivo(1:posponto-1)
    print *, "Extensao: ", arquivo(posponto+1:len(arquivo))

end program Teste

Certo? ;)

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0
Guest arturferreira

Boas.

Sou novo em Fortran e estou com uma dúvida que não consigo resolver...

Se fizer "write (*,*) A(3,3)" obtenho sempre 1, em todas as iterações do programa.

Mas se fizer "write (*,*) DACos(A(3,3))" obtenho 0 nas primeiras 3 iterações e NaN nas restantes...

alguém faz ideia porquê?

Abraço e obrigado!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...