- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个使用 OpenMP 并行化的 Fortran 程序。主函数调用一个 Fortran 函数,该函数包含具有常微分方程的系统的定义。当拆分到不同的线程时,这可以正常运行。我还想要链接到具有类似 ODE 定义的 C 文件的选项,并且当我不使用 OpenMP 时,我可以让它运行。但使用 OpenMP 时,ODE 计算不正确。
!************* Main Program OpenMP part **************
!SETUPBV contains a function that contains the ODE
!definition
!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(I,IT,NT)
IT = 0
!$ IT = OMP_GET_THREAD_NUM()
NT = 1
!$ NT = OMP_GET_NUM_THREADS()
IF(NLLV>=0.OR.IFST==1) &
CALL SETUBV(NDIM,NA,NCOL,NINT,NFPR,NRC,NROW,NCLM, &
FUNI,ICNI,AP,PAR,NPAR,ICP,A,B,C,DD(1,1,BASE+1),DUPS, &
FCFC(1,BASE+1),UPS,UOLDPS,RLOLD,UDOTPS,UPOLDP,DTM,THU, &
IFST,IAM,IT,NT,IRF,ICF,IID,NLLV)
I = (IT*NA+NT-1)/NT+1
CALL BRBD(A(1,1,I),B(1,1,I),C(1,1,I),D,DD,DUPS(1,(I-1)*NCOL),FAA,FC,&
FCFC,P0,P1,IFST,IID,NLLV,DET,NDIM,NTST,NA,NBC,NROW,NCLM, &
NFPR,NFC,A1,A2,BB,CC,C2,CDBC, &
SOL,S1,S2,IPR,IPC,IRF(1,I),ICF(1,I),IAM,KWT,IT,NT)
!$OMP END PARALLEL
!************* Extract from Module containing INTERFACE definition **************
SUBROUTINE FUNCINTFC(NDIM,U,ICP,PAR,IJAC,F,DFDU,DFDP) BIND(C,NAME='func')
USE, INTRINSIC :: ISO_C_BINDING
INTEGER(C_INT), INTENT(IN) :: NDIM, IJAC, ICP(*)
REAL(C_DOUBLE), INTENT(IN), VALUE :: U(NDIM), PAR(*)
REAL(C_DOUBLE), INTENT(OUT), VALUE :: F(NDIM)
REAL(C_DOUBLE), INTENT(INOUT) :: DFDU(NDIM,NDIM),DFDP(NDIM,*)
END SUBROUTINE FUNCINTFC
!************* Function calling c-function with ODE **************
SUBROUTINE FUNC(NDIM,U,ICP,PAR,IJAC,F,DFDU,DFDP)
!--------- ----
USE INTERFACES, ONLY: FUNCINTFC
IMPLICIT NONE
INTEGER, INTENT(IN) :: NDIM, IJAC, ICP(*)
DOUBLE PRECISION, INTENT(IN) :: U(NDIM), PAR(*)
DOUBLE PRECISION, INTENT(OUT) :: F(NDIM)
DOUBLE PRECISION, INTENT(INOUT) :: DFDU(NDIM,*), DFDP(NDIM,*)
CALL FUNCINTFC(NDIM,U,ICP,PAR,IJAC,F,DFDU,DFDP)
END SUBROUTINE FUNC
!************* C-function containing ODE definition **************
int func(integer *ndim, const doublereal u, const integer *icp,
const doublereal par, const integer *ijac,
doublereal f, doublereal *dfdu, doublereal *dfdp)
{
/* Builtin functions */
double exp(doublereal);
/* Local variables */
static doublereal e, u1, u2;
/* ---------- ---- */
/* Evaluates the algebraic equations or ODE right hand side */
/* Input arguments : */
/* NDIM : Dimension of the ODE system */
/* U : State variables */
/* ICP : Array indicating the free parameter(s) */
/* PAR : Equation parameters */
/* Values to be returned : */
/* F : ODE right hand side values */
/* Normally unused Jacobian arguments : IJAC, DFDU, DFDP (see manual) */
/* Function Body */
u1 = u[0];
u2 = u[1];
e = exp(u2);
f[0] = -u1 + par[0] * (1 - u1) * e;
f[1] = -u2 + par[0] * par[1] * (1 - u1) * e - par[2] * u2;
return 0;
} /* func_ */
最佳答案
在 C 中,static
局部变量不是线程安全的。从位置变量的声明中删除static
。您不需要在调用之间保持值的持久性。如果你这样做了,你就必须非常小心线程安全。
关于c - ISO_C_BINDING 和 OpenMP 的问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19868874/
OpenMP 中的高斯消除。我是 openmp 的新手,想知道我是否在正确的地方使用了我的编译指示和屏障。我的 x 值每次都不同。他们应该是一样的吗?? #include int num; doub
给定一个示例函数(示例在下面给出),for 循环可以使用 OpenMP 并行化或使用矢量化进行矢量化(假设编译器执行矢量化)。 示例 void function(float* a, float* b,
OpenMP 中原子和关键之间有什么区别? 我能做到 #pragma omp atomic g_qCount++; 但这和不一样吗 #pragma omp critical g_qCount++; ?
我有一个关于如何在您考虑特定依赖关系图时生成 OpenMP 伪代码的问题。 所以假设我们有这个特定的图表: 解决方案可能是这样的: #pragma omp parallel {
我正在尝试使用 openmp 计算二维矩阵的平均值。这个二维矩阵实际上是一个图像。 我正在对数据进行线程分割。例如,如果我有 N线程比我处理行/N thread0 的行数, 等等。 我的问题是:我可以
我想统计测量与 OpenMP 并行化的程序的性能。我选择在执行并行算法的测试应用程序中编写循环 MAX_EXPERIMENTS次并将时间测量报告到文件中。 问题解决方案似乎比提取外部循环上方的并行编译
我找到了 Intel's performance suggestion on Xeon Phi关于 OpenMP 中的 Collapse 子句。 #pragma omp parallel for co
如何使用 OpenMP 并行化数组移位? 我尝试了一些方法,但在以下示例中没有得到任何准确的结果(该示例旋转 Carteira 对象数组的元素,用于排列算法): void rotaciona(int
我有一系列对几个独立函数的调用。 func1(arg); func2(arg); func3(arg); 我想并行执行它们,而不是串行执行它们。我目前正在使用 #pragma omp parallel
我正在尝试使用 openmp 任务来安排基本 jacobi2d 计算的平铺执行。在 jacobi2d 中,依赖于 A(i,j) 从 A(i, j) A(i-1, j) A(i+1, j) A(i, j
我在 3 天前开始使用 OpenMP。我想知道如何使用#pragma使每个内核运行一个线程。详细信息:- int ncores = omp_get_num_procs();for(i = 0; i <
我有一段代码(它是应用程序的一部分),我正在尝试使用 OpenMP 对其进行优化,正在尝试各种调度策略。就我而言,我注意到 schedule(RUNTIME)条款比其他条款有优势(我没有指定 chun
我有一个数字运算 C/C++ 应用程序。它基本上是不同数据集的主循环。我们可以使用 openmp 和 mpi 访问一个 100 节点的集群。我想加速应用程序,但我是 mpi 和 openmp 的绝对新
在 OpenMP 中使用ompsections时,线程会被分配到sections内的 block ,还是每个线程会被分配到每个section? 当nthreads == 3时: #pragma omp
我正在尝试在 cython 中使用 openmp。我需要在 cython 中做两件事: i) 在我的 cython 代码中使用 #pragma omp single{} 作用域。 ii) 使用#pra
我正在尝试通过将循环的每次迭代作为 OpenMP 部分来并行化 OpenMP 中基于范围的 for 循环。我想这样做: #pragma omp parallel sections { for ( au
我正在尝试在 cython 中使用 openmp。我需要在 cython 中做两件事: i) 在我的 cython 代码中使用 #pragma omp single{} 作用域。 ii) 使用#pra
我想编写一个代码转换器,它采用基于 OpenMP 的并行程序并在集群上运行它。 我该如何解决这个问题?我使用哪些库?如何为此设置小型集群? 我发现很难在 Internet 上找到有关集群计算的好 Ma
我是 OpenMP 的新手。我正在尝试为 for 循环使用多个内核,但出现此编译错误: “错误 C3016:'x':OpenMP 'for' 语句中的索引变量必须具有带符号的整数类型”。 我知道 Op
如果我使用 VS 2010 编译器从 Qt Creator 构建项目,我如何启用 OpenMP(从 Visual Studio 构建时,您只需启用该功能)谢谢 最佳答案 在 .pro 文件中尝试下一步
我是一名优秀的程序员,十分优秀!