bigspoon
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Пошли вопросы... есть код ICOUNT = 0 !$ tm0=omp_get_wtime() !$ OMP PARALLEL DO privat(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 ! print*, 'COUNT=', ICOUNT, ' ',i1, i2, i3,' ', i4, i5, i6 endif endDO endDO endDO endDO endDO endDO ! $OMP END PARALLEL DO print*, 'COUNT=', ICOUNT !$ tm1=omp_get_wtime() !$ write(*,*) tm1-tm0 read*, itogo end 1. при компиляции через командую строку gfortran -o myfile myfile.f90 выдается ответ COUNT=55252, при этом время счета не выдается, значит, как я понял, компилятор не поддерживает технологию openmp (или не указаны правильно ключи компиляции). 2. не могу настроить для gfortran в WinXP переменные окружения, поэтому приходится копировать исходник в папку ..\bin\ Кто может прогоните мой код, какие нужно ключи выставлять? |