自己编的很小的一段程序

 

 program main
   implicit none
   integer :: n,i
   real(8) ::pi,u1,u2,r  
   pi=3.1415926535
   call random_seed ()
   n=1000     
   do i=1,n
   call random_number(u1)
   call random_number(u2)
   r=sqrt(-log(u1))*cos(2*pi*u2)  
   print *,r
   enddo 
   end

现在我想把r的值存储到一个数组当中，以后每次调用数组中的一个r值，并输出随机生成的r的最大值，请问大侠该如何编写，刚刚学习FORTRAN，希望大家多多指教，不胜感激