how to parallel assign

[ollehyas]

the following codes

"real*8 ,allocatable::a(:,:,:)

allocate(a(3000,100,100))

a=-10"

will spend too many time,

i want to parallel to speed, how to do?

[TimP]

compile option -Qparallel ought to do as well as anything, in such a simple case. For OpenMP ( compile switch /Qopenmp), you would write
....
!$omp parallel do
do i=1,size(a,3)
!dir$ vector nontemporal
a(:,:,i) = -10
end do

Significant speedup on a dual CPU platform is likely to depend on having NUMA BIOS option set. There may not be much speedup on a single dual core CPU, none on single core HT.