<div dir="ltr">Добрый день, Артём, подскажите пожалуйста, что я делаю неправильно (на cherenkov). Файлы внизу.<div><br></div><div>Хочу скомпилировать и запустить с OpenMP программу на фортране. Делаю:</div><div>1. $ export OMP_NUM_THREADS=4</div><div>2. $ gfortran hello.f -o hello -fopenmp</div><div>3. $ sbatch task_hello</div><div><br></div><div>получаю</div><div> Hello from process:            0<br> Hello from process:            0<br> Hello from process:            0<br> Hello from process:            0<br></div><div><br></div><div>хотя ожидал 0,1,2,3.</div><div><br></div><div>Спасибо большое!</div><div>с уважением,</div><div>фк</div><div>___________________________________</div><div>Файл task_hello:</div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">#!/bin/bash<br>#SBATCH --job-name=OMP_hello<br>#SBATCH --output=slurm.out<br>#SBATCH --error=slurm.err<br>#SBATCH --nodes=1<br>#SBATCH --ntasks-per-node=4</blockquote><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><br>export OMP_NUM_THREADS=4<br>srun --mpi=pmi2 ./hello</blockquote><div><br></div><div>Файл hello.f:</div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">      PROGRAM Parallel_Hello_World<br>      USE OMP_LIB<br>      !$OMP PARALLEL<br>      PRINT *, 'Hello from process: ', OMP_GET_THREAD_NUM()<br>      !$OMP END PARALLEL<br>      END</blockquote><div> <br></div></div>