Timing

De WikiLICC
Revisão de 21h57min de 19 de junho de 2012 por Dago (Discussão | contribs)
Ir para: navegação, pesquisa

Testando vetorização: 

! http://goparallel.sourceforge.net/optimizing-loops-vectorization/
program Vectorization
use portlib
real(4),dimension(:),allocatable  ::  x,y,z
integer                           ::  len=110000000
real(4)                           ::  timing

allocate( x(len) ,stat=ierr)
allocate( y(len) ,stat=ierr)
allocate( z(len) ,stat=ierr)

do j=1,10
timing = secnds(0.0)
do i=1,len
  z(i)=sqrt(x(i))+sqrt(y(i))
end do
timing = secnds(timing)*1000
print *,' Timing =',timing,'/1000 s'
end do
end program
Disponível em "http://hunter.mat.ufrgs.br/mediawiki/index.php?title=Timing&oldid=3548"