Fortran - Variáveis

Uma variável nada mais é do que um nome dado a uma área de armazenamento que nossos programas podem manipular. Cada variável deve ter um tipo específico, que determina o tamanho e o layout da memória da variável; a faixa de valores que podem ser armazenados nessa memória; e o conjunto de operações que podem ser aplicadas à variável.

O nome de uma variável pode ser composto de letras, dígitos e o caractere sublinhado. Um nome em Fortran deve seguir as seguintes regras -

Não pode ter mais de 31 caracteres.
Deve ser composto de caracteres alfanuméricos (todas as letras do alfabeto e os dígitos de 0 a 9) e sublinhados (_).
O primeiro caractere de um nome deve ser uma letra.
Os nomes não diferenciam maiúsculas de minúsculas.

Com base nos tipos básicos explicados no capítulo anterior, a seguir estão os tipos de variáveis -

Sr. Não	Tipo e descrição
1	Integer Ele pode conter apenas valores inteiros.
2	Real Ele armazena os números de ponto flutuante.
3	Complex É usado para armazenar números complexos.
4	Logical Ele armazena valores booleanos lógicos.
5	Character Ele armazena caracteres ou strings.

Declaração de Variável

As variáveis são declaradas no início de um programa (ou subprograma) em uma instrução de declaração de tipo.

A sintaxe para declaração de variável é a seguinte -

type-specifier :: variable_name

Por exemplo

integer :: total  	
real :: average 
complex :: cx  
logical :: done 
character(len = 80) :: message ! a string of 80 characters

Mais tarde, você pode atribuir valores a essas variáveis, como,

total = 20000  
average = 1666.67   
done = .true.   
message = “A big Hello from Tutorials Point” 
cx = (3.0, 5.0) ! cx = 3.0 + 5.0i

Você também pode usar a função intrínseca cmplx, atribuir valores a uma variável complexa -

cx = cmplx (1.0/2.0, -7.0) ! cx = 0.5 – 7.0i 
cx = cmplx (x, y) ! cx = x + yi

Exemplo

O exemplo a seguir demonstra a declaração, atribuição e exibição de variáveis na tela -

program variableTesting
implicit none

   ! declaring variables
   integer :: total      
   real :: average 
   complex :: cx  
   logical :: done 
   character(len=80) :: message ! a string of 80 characters
   
   !assigning values
   total = 20000  
   average = 1666.67   
   done = .true.   
   message = "A big Hello from Tutorials Point" 
   cx = (3.0, 5.0) ! cx = 3.0 + 5.0i

   Print *, total
   Print *, average
   Print *, cx
   Print *, done
   Print *, message
   
end program variableTesting

Quando o código acima é compilado e executado, ele produz o seguinte resultado -

20000
1666.67004    
(3.00000000, 5.00000000 )
T
A big Hello from Tutorials Point