Default Storage Attributes

program sort

common /input/ A(10)

integer index(10)

call input

C$OMP PARALLEL

call work(index)

C$OMP END PARALLEL

print*, index(1)

subroutine work(index)

common /input/ A(10)

real temp(10)

integer count

save count

…………

Previous slide

Next slide

Back to first slide

View graphic version