如何将下列函数改写成fortran程序

苏坡，man

现在我是想使用fortran写这个函数，写为fortran后，再调用c中的一个函数，将这个改写的fortran子程序的地址传递给c函数。

[C] 纯文本查看 复制代码

void my_neighbors(void** neighbor_addrs,int* num_neigh, targs* args)
{
    int starti=args->starti;
    int startj=args->startj;
    void* src_addr=args->src_addr;

    *num_neigh=0;
    if(starti - BLKX>=0)
      neighbor_addrs[(*num_neigh)++]=(void*)(src_addr - BLKX * SIZEY * SIZEZ * 8);
    if(starti + BLKX < SIZEX)
        neighbor_addrs[(*num_neigh)++]=(void*)(src_addr + BLKX * SIZEY * SIZEZ * 8);
    if(startj - BLKY >= 0)
        neighbor_addrs[(*num_neigh)++]=(void*)(src_addr - BLKY * SIZEZ * 8);
    if(startj + BLKY < SIZEY)
        neighbor_addrs[(*num_neigh)++]=(void*)(src_addr + BLKY * SIZEZ* 8);
}

群主告诉我在fortran中没有类似void类型。那改成integer,即integer，dimension(:),pointer ::　neighbor_addrs．改成指针数组后，我知道有一个库函数ｌｏｃ（）可以获得对象地址。但是如果改成ｉｎｔｅｇｅｒ会不会造成信息丢失？
neighbor_addrs[(*num_neigh)++]=(void*)(src_addr - BLKX * SIZEY * SIZEZ * 8);改写方式我是这样想的，如下：　前面已经改成了ｉｎｔｅｇｅｒ类型。
ｉｎｔｅｇｅｒ　ｌｏｃ
neighbor_addrs　＝＞　ｌｏｃ（src_addr - BLKX * SIZEY * SIZEZ * 8）　不知道我改写的对不对？我实际上想希望这条语句改写可以想原来语句似得。可以
neighbor_addrs（ｎｕｍ＿ｎｅｉｇｈ）　＝　ｌｏｃ（src_addr - BLKX * SIZEY * SIZEZ * 8）．
具体如何改写，请大家教教我。

苏坡，man

a. neighbor_addrs 指向的内容是指定的是 在c中void**类型
b. args->src_addr 指向的内容是void*
c. neighbor_addrs 这个指针数组有256大小
我今天将这个void my_neighbors(void** neighbor_addrs,int* num_neigh, targs* args)进行了改写，改写如下：
subroutine neighbor(neighbor_addrs,num_neigh,args)
28           implicit none
29           include 'global.h'
30           integer(c_int),pointer :: neighor_addrs ！改成整形的指针
31           integer(c_int),pointer :: num_neigh
32           integer(c_int) num
33           class(struct),pointer :: args
34           integer(c_int) starti,startj
35           integer(c_int),pointer :: src  ！也写成了整形指针
36              starti = args%starti
37              startj = args%startj
38              src => args%src_addr
39              num = 0
40         
41           if (starti>=BLKX)then
42              neighbor_addrs=>c_loc(src-BLKX*BLKY*Z*8)
43              num=num+1
44             num_neigh=>num  ！num_neigh实际上是计数用的
45           endif
46           if (starti<X-BLKX)then
47              neighbor_addrs=>c_loc(src+BLKX*BLKY*Z*8) ！这个c_loc是不是应该写为loc，或者说不需要使用c_loc，直接赋值给neighbor_addrs
48              num=num+1
49              num_neigh=>num
50           endif
51           if (startj>=BLKY)then
52              neighbor_addrs=>c_loc(src-BLKY*Z*8)
53              num=num+1
54              num_neigh=>num
55           endif
56           if (startj<Y-BLKY)then
57              neighbor_addrs=>c_loc(src+BLKY*Z*8)
58              num=num+1
59              num_neigh=>num
60           endif
61          end subroutine neighbor
这个函数最后也是要传递给系统中c的函数，在系统中使用的 neighbor_addrs类型仍然是void**,num_neigh是int*,src_addr是void*。
原先的c程序的代码如下：原先c程序代码改写fortran语言编写。
typedef struct{
  int starti, endi;
  int startj, endj;
  int k_N;
  int iter;
void* src_addr;
}targs;
void my_neighbors(void** neighbor_addrs,int* num_neigh, targs* args)
{
    int starti=args->starti;
    int startj=args->startj;
    void* src_addr=args->src_addr;
  
    *num_neigh=0;
    if(starti - BLKX>=0)
        neighbor_addrs[(*num_neigh)++]=(void*)(src_addr - BLKX * SIZEY * SIZEZ * 8);
    if(starti + BLKX < SIZEX)
        neighbor_addrs[(*num_neigh)++]=(void*)(src_addr + BLKX * SIZEY * SIZEZ * 8);
    if(startj - BLKY >= 0)
        neighbor_addrs[(*num_neigh)++]=(void*)(src_addr - BLKY * SIZEZ * 8);
    if(startj + BLKY < SIZEY)
        neighbor_addrs[(*num_neigh)++]=(void*)(src_addr + BLKY * SIZEZ* 8);
}