http://templet.ssau.ru/wiki/ 2026-07-12T10:17:59+00:00 http://templet.ssau.ru/wiki/ http://templet.ssau.ru/wiki/_media/wiki/favicon.ico text/html 2013-10-25T19:14:42+00:00 Anonymous (anonymous@undisclosed.example.com) http://templet.ssau.ru/wiki/templet/%D0%BF%D1%80%D0%B8%D0%BC%D0%B5%D1%80/hello_mpi_world?rev=1382728482&do=diff /* "Hello World" MPI Test Program */ #include <mpi.h> #include <stdio.h> #include <string.h> #define BUFSIZE 128 #define TAG 0 int main(int argc, char *argv[]) { char idstr[32]; char buff[BUFSIZE]; int numprocs; int myid; int i; MPI_Status stat; /* MPI programs start with MPI_Init; all 'N' processes exist thereafter */ MPI_Init(&argc,&argv); /* find out how big the SPMD world is */ MPI_Comm_size(MPI_COMM_WORLD,&numprocs); /* an… text/html 2013-10-25T19:16:58+00:00 Anonymous (anonymous@undisclosed.example.com) http://templet.ssau.ru/wiki/templet/%D0%BF%D1%80%D0%B8%D0%BC%D0%B5%D1%80/hello_openmp_world?rev=1382728618&do=diff #include <omp.h> #include <stdio.h> #include <stdlib.h> int main (int argc, char *argv[]) { int th_id, nthreads; #pragma omp parallel private(th_id) { th_id = omp_get_thread_num(); printf("Hello World from thread %d\n", th_id); #pragma omp barrier if ( th_id == 0 ) { nthreads = omp_get_num_threads(); printf("There are %d threads\n",nthreads); } } return EXIT_SUCCESS; } text/html 2013-10-27T11:38:36+00:00 Anonymous (anonymous@undisclosed.example.com) http://templet.ssau.ru/wiki/templet/%D0%BF%D1%80%D0%B8%D0%BC%D0%B5%D1%80/hello_taskbag_world?rev=1382873916&do=diff Разработка параллельных и распределённых приложений с использованием шаблона состоит из описания структуры приложения: <module id="TB" templet="" rem=""> <include file="../Rtl/gprtmpi.h" module=""/> <param id="rtl" value="GPRTMPI"/> <assemble id="TaskBag" templet="TBAG" rem="Task bag template"> </assemble> </module>