3.5.1 Comando do explícito

do variavel=valor-inicial, valor-final, passo
	(o que se deseja calcular)
end do

Por exemplo o cálculo de 4 fatorial,

$$4\! = 4 \times 3 \times 2 \times 1 = 24$$ (3.5.1)

Escreva um programa que calcule o fatorial de um número. O exemplo acima é simples, mas e se tivéssemos que calcular $1000.0 !$. Escreva o programa prog5.f90

program prog5
implicit none
!
integer :: i,n,fatorial
!
fatorial = 1
n = 4
!
do i = 1, n
	fatorial = fatorial * i
end do
!
write(*,*) 'Fatorial de',n,'=',fatorial
!
stop
end program prog5

o programa acima calcula o fatorial da variável n, então esse valor pode ser alterado quantas vez for necessário, lembrando que para cada valor o programa tem que ser compilado novamente.

Para exemplificar um fluxograma de uma estrutura de laço para o do explícito veresmo um simples programa que imprime o valor fa variável i na tela:

program doexplicito
implicit none
!
integer:: i, n
!
n=5
!
do i=1,n
	write(*,*) i
end do
!
stop
end program doexplicito

Figura 3.2: Exemplo do fluxograma para o laço do do explícito.

Observe que não é necessário atribuir valores iniciais para a variável inteira i, na sintaxe do laço já é atribuido o valor para i.