3.5.2 Comando if

Para utilizar o comando if será necessário conhecermos os operadores relacionais, para isso vejamos a tabela 3.4:

Tabela 3.4: Operador Relacionais utilizados entre duas variáveis/constantes.

Operação	Significado
$==$	Igual a (são dois símbolos de igualdade)
$/=$	Diferente de
$>$	Maior que
$>=$	Maior ou igual que
$<$	Menor que
$<=$	Menor ou igual que

A idéia do comando if é verificar se uma dada condição é verdadeira ou falsa, por exemplo, se para uma determinada conta a utilização fosse somente para números menores que zero de uma lista de vários números, assim poderia ser utilizado o comando if para filtrar os números menores que zero.

Vamos fazer um programa que verifique quais números entre -30.0 e 30.0 seja divisível por 3.0 e imprima na tela. Neste programa utilizaremos a função intrínseca MOD(a,b), REAL(a) também números reais.

program prog6
implicit none
!
real(kind=8) :: n
integer :: i
!
n = 3.0d0
!
do i = -30, 30
	if ( MOD(REAL(i),n) == 0.0d0 ) then
		write(*,*) i,'    e divisivel por',n
	else
		write(*,*) i,'nao e divisivel por',n
		continue
	end if
end do
!
stop
end program prog6

O camando if utilizado acima é o if lógico, que tem as estruturas e suas variáveis como:

...
if (a>=b) then
	write (*,*) 'a maior ou igual a b'
end if
...

ou

if (a>=b) then
	write(*,*) 'a maior ou igual a b'
else
	write(*,*) 'a menor que b'
end if