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...