Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Speed up array of derived type
Thanks all. This test code is a little try. I need to refactor an old and complex code (about 800000 lines), http://www.tek-tips.com/ I wish to use module with inside array of structure instead of old common of arrays (array of fields). Old code has, inside nested do cycles, several call to... -
Speed up array of derived type
Is it possible speed up a code like this (array of derived type)? program test USE dati_m type(dato), target,allocatable :: dat(:) integer, pointer :: ip(:) real tbegin, tend allocate(dat(65000)) ip => dat%i1 call cpu_time(tbegin) do j=1,5000 call set(ip,j) end do...
