akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
implicit none
integer*4 icount, i1, i2, i3, i4, i5, i6
real*8 tm0, tm1
ICOUNT = 0
tm0=omp_get_wtime()
!$OMP PARALLEL DO private(i1,i2,i3,i4,i5,i6)
do i1=0,9
do i2=0,9
do i3=0,9
do i4=0,9
do i5=0,9
do i6=0,9
if (i1+i2+i3 .EQ. i4+i5+i6) then
ICOUNT=ICOUNT+1
endif
endDO
endDO
endDO
endDO
endDO
endDO
!$OMP END PARALLEL DO
print *, 'COUNT=', ICOUNT
tm1=omp_get_wtime()
write(*,*) tm1-tm0
! read*, itogo
end |
Всего записей: 24121 | Зарегистр. 06-12-2002 | Отправлено: 19:11 23-01-2009 | Исправлено: akaGM, 19:21 23-01-2009 |
|
