... 9 , 2010 MPI/OpenMP 60 1 2 3 ( PARALLEL) #pragma omp parallel [ [ [, ] ] ...] : default(shared | ... include stdio.h int main () { int n =100000, i; double pi, h, sum , x; h = 1.0 / ( double ) n; sum = 0.0; for (i = 1; i = n; i ++) { x = h * (( double )i - 0.5); sum += (4.0 / (1.0 + x*x)); } pi = h * sum ; printf( pi is approximately %.16f , pi); return 0; } 9 , 2010 MPI / OpenMP 84 1 2 3 OpenMP int main () { int n =100, i; double pi, h, sum , x; h = 1.0 / ( double ) n; ...

Еще в разделе: (Показать все результаты (>3) - angel.cmc.msu.ru/ )

• http://angel.cmc.msu.ru/~ifed/teraflops/Popova_OpenMP.pdf

... defmacro defprinter ( name args &body body ) . ... body ) ) . ... defprinter :property ( type name &rest body ) . print-statement-with-body stream body nil "public ~a ~a" type name ) ) . ... defprinter :get ( &rest body ) . print-statement-with-body stream body nil "get" ) ) . ... defprinter :constructor ( name args &rest body ) . ... defprinter :class ( name &rest body ) . print-statement-with-body stream body t "public class ~a" name ) ) . ... defprinter :namespace ( name &rest body ) . ...

332. http://www.fpo.msu.ru/open_files/fpo2015_eng.pdf