- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试将一个结构从 fortran 传递到 C,其中 Fortran 中的结构有一个可分配的。我想在 fortran 中的结构中分配数组并在 C 中读取它。但是,当我尝试在 C 中打印分配的数组时,我收到错误消息段错误(核心转储)。我正在使用英特尔编译器版本 19.0.1.144。
我对 C 比较陌生,所以为了测试这个想法,我在 fortran 中分配了一个一维数组并将它传递给 C。这很好用。您可以在 fortran 代码中看到 ff 是可分配的数组,并且它被分配了一个维度 ii(等于 5)。我初始化数组 ff 并使用类型(C_ptr)的指针来存储 ff 数组的地址。我在 C 中打印 ff,它打印出正确的值 ff,即 14.7、15.7、16.7、17.7、18.7。使用相同的想法,我已经声明了一个结构体 data1,其中包含一个整数 ival、一个实数 cval 和一个可分配变量 dval。我正在为结构类型 data1 分配一个指针 pdata。我分配了指针和数组 dval。我在 C Main 中调用 fortran 来打印结构体数量,但在打印数组 d(或 dval)时出现错误。此外,C 中 ival 和 cval 的值的值是不正确的。
SUBROUTINE Simulation(ii,ffp,cdata) BIND(C)
use, intrinsic :: iso_c_binding
integer(kind=4), intent(in) :: ii
type(C_PTR), intent(out) :: ffp
real (C_double), dimension(:), allocatable, target, save :: ff
integer(kind=4) :: err, i
Type :: data1
Integer :: ival
Real :: cval
Real (C_double), dimension(:), allocatable :: dval
end Type data1
type(C_ptr), intent(out) :: cdata
type(data1), Target, save :: tdata
type(data1), pointer :: pdata
!Allocating memory for pdata:
Allocate(pdata,stat=err)
print *,'allocate returned: ',err
!Allocating memory for dval:
allocate(pdata%dval(ii),stat=err)
print *,'allocate returned: ',err
!Allocating memory for ff:
allocate(ff(ii),stat=err)
print *,'allocate returned: ',err
ffp = C_LOC(ff(1))
cdata = C_Loc(pdata)
pdata%ival = 4
pdata%cval = 17.6
pdata%dval(1) = 1.2
pdata%dval(2) = 1.2*2
pdata%dval(3) = 1.2*3
pdata%dval(4) = 1.2*4
pdata%dval(5) = 1.2*5
print*,"ival = ",pdata%ival
print*,"cval = ",pdata%cval
print*,"davl(1) = ",pdata%dval(1)
print*,"davl(4) = ",pdata%dval(4)
write(*,*) '#Fortran address of ff:', LOC(ff(1))
write(*,*) '#Fortran address: pdata', LOC(pdata)
write(*,*) 'size of ff =',sizeof(ff)
write(*,*) 'size of pdata =',sizeof(pdata)
do i=1,ii
ff(i) = i + 13.7d0
end do
END SUBROUTINE SIMULATION
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
struct temp {int ival; float cval; double *d;};
void simulation(int *ii, double **ff, struct temp *data2);
int main()
{
int ii = 5;
double *ff;
struct temp data2;
int i;
simulation(&ii,&ff,&data2);
printf("#C address of ff: %d\n", ff);
printf("#C address of data2: %d\n", data2);
printf("Size of ff in C is %d\n", sizeof(ff));
for (i=0; i<ii; i++)
printf("ff[%d] = %f\n",i,ff[i]);
printf("data ival %d \n",data2.ival);
printf("data cval %f \n",data2.cval);
printf("data dval(1) %f \n",data2.d[0]);
printf("data dval(4) %f \n",data2.d[3]);
return 0;
}
bash-4.2$ ./a.out
allocate returned: 0
allocate returned: 0
allocate returned: 0
ival = 4
cval = 17.60000
davl(1) = 1.20000004768372
davl(4) = 4.80000019073486
#Fortran address of ff: 26650144
#Fortran address: pdata 26636320
#Fortran address: tdata 7054304
size of ff = 40
size of pdata = 80
size of tdata = 80
#C address of ff: 26650144
#C address of data2: 26636320
Size of ff in C is 8
ff[0] = 14.700000
ff[1] = 15.700000
ff[2] = 16.700000
ff[3] = 17.700000
ff[4] = 18.700000
data ival 26636320
data cval 0.000000
Segmentation fault (core dumped)
最佳答案
派生类型 data1
不是 C 互操作的:它有一个可分配的组件。 intent(out)
虚拟参数 cdata
分配结果 C_LOC(pdata)
哪里pdata
属于这种不可互操作的类型。C_LOC
当该参数不可互操作时,向实际参数返回一个“不透明句柄”。这意味着(Fortran 2018 18.2.3.6):
Where the actual argument is of noninteroperable type or type parameters, the result of C_LOC provides an opaque “handle” for it. In an actual implementation, this handle might be the C address of the argument; however, only a C function that treats it as a void (generic) C pointer that cannot be dereferenced (ISO/IEC 9899:2011, 6.5.3.2) is likely to be portable.
data2
在 C 主程序中进行这种不可移植的解引用。 .从根本上说,可分配的 Fortran 数组与 C 取消引用的指针不同。
data2
回到 Fortran 程序进行进一步处理。当虚拟参数是可分配数组时,Fortran 过程甚至可以互操作。
关于c - Fortran/C 互操作性将结构从 Fortran 传递到带有可分配项的 C,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58397095/
我有一个应用程序,它会抛出 GKSession 并在各种条件下(连接超时、 session 失败等)创建一个新的 GKSession。不过,我遇到了内存泄漏问题,并且有时会在重新连接几次循环后崩溃。
比如我在宿主代码中有一个浮点指针 float *p 是否可以确定他指向的内存类型(设备/主机)? 最佳答案 在 UVA system 中, 运行时 API 函数 cudaPointerGetAttri
我已将项目转换为 .Net 4.0 并且以下代码不起作用: typeof(RuntimeTypeHandle).GetMethod("Allocate", BindingFlags.Instance
当我声明 char ch = 'ab' 时,ch 只包含 'b',为什么它不存储 'a'? #include int main() { char ch = 'ab'; printf("%c"
我对 Disk Sector 和 Block 有疑问。扇区是一个单位,通常为 512 字节或 1k、2k、4k 等取决于硬件。文件系统 block 大小是一组扇区大小。 假设我正在存储一个 5KB 的
假设我有 8 个人和5000 个苹果。 我想将所有苹果分发给所有 8 个人,这样我就没有苹果了。 但每个人都应该得到不同数量 将它们全部分发出去的最佳方式是什么? 我是这样开始的: let peopl
我正在构建的网站顶部有一个搜索栏。与 Trello 或 Gmail 类似,我希望当用户按下“/”键时,他们的焦点就会转到该搜索框。 我的 JavaScript 看起来像这样: document.onk
我有一小段代码: if (PZ_APP.dom.isAnyDomElement($textInputs)){ $textInputs.on("focus", function(){
我观察到以下行为。 接受了两个属性变量。 @property (nonatomic, retain) NSString *stringOne; @property (nonatomic, assign
我正在解决这样的问题 - 实现一个计算由以下内容组成的表达式的函数以下操作数:“(”、“)”、“+”、“-”、“*”、“/”。中的每个数字表达式可能很大(与由字符串表示的一样大)1000 位)。 “/
我有一组主机和一组任务。 每个主机都有 cpu、mem 和任务容量,每个任务都有 cpu、mem 要求。 每个主机都属于一个延迟类别,并且可以与具有特定延迟值的其他主机通信。 每个任务可能需要以等于或
该程序的作用:从文件中读取一个包含 nrRows 行和 nrColomns 列的矩阵(二维数组)。矩阵的所有元素都是 [0,100) 之间的整数。程序必须重新排列矩阵内的所有元素,使每个元素等于其所在
世界!我有个问题。今天我尝试创建一个代码,它可以找到加泰罗尼亚语号码。但是在我的程序中可以是长数字。我找到了分子和分母。但我不能分割长数字!此外,只有标准库必须在此程序中使用。请帮帮我。这是我的代码
我确定我遗漏了一些明显的东西,但我想在 Objective C 中创建一个 NSInteger 指针的实例。 -(NSInteger*) getIntegerPointer{ NSInteger
这个问题在这里已经有了答案: Difference between self.ivar and ivar? (4 个答案) 关闭 9 年前。
我如何将 v[i] 分配给一系列整数(v 的类型是 vector )而无需最初填充 最佳答案 你的意思是将 std::vector 初始化为一系列整数? int i[] = {1, 2, 3, 4,
我想寻求分配方面的帮助....我把这个作业带到了学校......我必须编写程序来加载一个 G 矩阵和第二个 G 矩阵,并搜索第二个 G 矩阵以获取存在数第一个 G 矩阵的......但是,当我尝试运行
我必须管理资源。它基本上是一个唯一的编号,用于标识交换机中的第 2 层连接。可以有 16k 个这样的连接,因此每次用户希望配置连接时,他/她都需要分配一个唯一索引。同样,当用户希望删除连接时,资源(号
是否有任何通用的命名约定来区分已分配和未分配的字符串?我正在寻找的是希望类似于 us/s 来自 Making Wrong Code Look Wrong ,但我宁愿使用常见的东西也不愿自己动手。 最佳
我需要读取一个 .txt 文件并将文件中的每个单词分配到一个结构中,该结构从结构 vector 指向。我将在下面更好地解释。 感谢您的帮助。 我的程序只分配文件的第一个字... 我知道问题出在函数 i
我是一名优秀的程序员,十分优秀!