向高手请教fortran 调用C 的问题
我现在要些一个fortran调用C接口的问题，但是不知道 C语言里面分配的指针怎么付给fortran,又不能在fortran立马先分配好，业务上不允许。
我写了个测试的例子。但是不行。
test.c
#include <stdio.h>
#include <string.h>
#include <malloc.h>
#include <stdlib.h>
int itest_(char **p)
{
*p = (char*) malloc(sizeof(char) * 18);
sprintf(*p,"%s","gbcd");
return 1;
}
test.F90
program main
interface
integer function itest(pchar)
CHARACTER,pointer::pchar(:)
end function
end interface
CHARACTER ,pointer:: pchar(:)
integer iout
CHARACTER ac
CHARACTER ab,ad
iout = itest(pchar)
ac=pchar(1)
ab=pchar(2)
ad=pchar(3)
write(*,*)ac
write(*,*)ab
write(*,*)ad
end program
但是运行结果是
g
g
g
请高手帮忙。
帮顶~~
顶
相关问答：
QQ群 29152388
友情UP
帮顶
up
帮up
up 支持！
up jf
...难道有分..?
up up up
希望有得加分，哈哈。
支持，我加了，希望楼主能加我，共同学习哈
加了。
顶上，每天收获一点，支持� ......
有个winform程序,使用c#+mysql,需要在一个窗体设置mysql自动删除功能,包括自动删除多少天之前的数据以及是否开启自动删除功能,我程序退出后,还怎么控制Mysql自己删除啊?是不是要用mysql的event来实现?c#可以调用mysq ......
1. 如下定义会有什么错误发生
//file1.c
int a[10];
//file2.c
extern int *a;
2. 大容量全局变量有什么危害，如
//file.c
......
问题一：
在对齐为4的情况下
struct BBB
{
long num；
char *name;
short int data;
char ha;
short ba[5];
}*p;
p=0x1000000;
p+0x200=____;
(Ulong)p+0x200=____;
(char*)p+0x200=____;
假设在32位C ......
以下分析基于：
Developer Platform :S60 3rd Edition, Feature Pack 2 SDK
Operating System :Symbian OS v9.3
一，为什么要使用Client/Server架构
在Symibian OS中所有的异步服务都是Server通过C/S架构来实现� ......
