Subrotinas: Definição, Sintaxe e Usos, Notas de aula de Engenharia Metalúrgica

Baixe Subrotinas: Definição, Sintaxe e Usos e outras Notas de aula em PDF para Engenharia Metalúrgica, somente na Docsity!

Subrotinas

Considerações Iniciais

● Uma função recebe parâmetros do mundo externo através de seus argumentos e calcula um valor de saída ● Em alguns casos é desejado retornar mais de um valor ou nenhum valor de retorno é necessário. Nestes casos subrotinas são mais indicadas

Exemplo

SUBROUTINE Medias(a, b, c, Am, Gm, Hm) IMPLICIT NONE REAL, INTENT(IN) :: a, b, c REAL, INTENT(OUT) :: Am, Gm, Hm !calculo das médias aritimética, geométrica ! e harmônica END SUBROUTINE medias

Observações

● Toda subrotina começa com “subroutine” e termina com “end subroutine” ● O nome da subrotina, ao contrário do que ocorre nas funções, não pode ser usado no corpo da subrotina ● Qualquer comando usado dentro de um programa pode ser usado em uma subrotina

Exemplo

PROGRAM Example IMPLICIT NONE INTEGER a, b, c, m1 ,m2,m ......... CALL Medias(a, b, c,m1,m2,m3) ......... END PROGRAM Example

Exemplo

SUBROUTINE troca(a, b) IMPLICIT NONE INTEGER, INTENT(INOUT) :: a, b INTEGER :: aux aux = a a=b b=aux END SUBROUTINE troca

Exercício

● Faça uma subrotina para preencher os elementos de um vetor com um determinado número

Exercício

● Faça uma subrotina que leia, um a um, os elementos de uma matriz

Exercício

● Faça uma subrotina que receba como parâmetro dois vetores contendo valores da coordenada x e valores da coordenada y de pontos no plano cartesiano. A subrotina deve calcular os coeficientes a e b de uma reta y=ax+b que é a regressão linear dos pontos a= n  xy− x⋅ y n  x 2 − x 2 b=^  y⋅ x 2 − x⋅ xy n  x 2 − x 2