向高手请教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
请高手帮忙。
帮顶~~
顶
相关问答：
#include <stdio.h>
#include <graphics.h>
void main()
{
int x0,y0,x1,y1,driver,mode,i;
driver=VGA;
mode=VGAHI;
initgraph(&driver,&mode,&qu ......
目前遇到的问题是：
存放在远程服务器端c/s程序一有更新，如何做到客户端立即响应弹出有最新升级的提示窗口。
本来有点思路：采用WCF+windowns服务+定时器的方式也能实现，但是每台客户端机子每隔都去访问一下远程 ......
问题一：
在对齐为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 ......
<table width="100%" border="1" cellpadding="0" cellspacing="0">
<c:forEach items="${quaeres}" var="q">
......
以下分析基于：
Developer Platform :S60 3rd Edition, Feature Pack 2 SDK
Operating System :Symbian OS v9.3
一，为什么要使用Client/Server架构
在Symibian OS中所有的异步服务都是Server通过C/S架构来实现� ......
