You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
! Loop en dos dimensiones.<br />
N = 10<br />
do i=1,N<br />
do j=1,N<br />
! Coordenadas en el plano.<br />
x(i,j) = real(i)<br />
y(i,j) = real(j)<br />
! Calcular distancia al origen llamado a funcion "radio".<br />
end do<br />
end do<br />
r(i,j) = radio(x(i,j),y(i,j))<br />
! Llamar subrutina "escribir".<br />
call escribir(N,r,x,y)<br />
! Cerrar archivo.<br />
close(10)<br />
end program rutinas<br />
! Funcion "radio".<br />
function radio(x,y)<br />
! Declarar variables.<br />
implicit none<br />
31