Chinaunix

标题: aix平台c语言调用fortran库文件的编译文件 [打印本页]

作者: stronggirl 时间: 2014-05-30 11:36
标题: aix平台c语言调用fortran库文件的编译文件
aix下有一个fortran库文件，我写了一个c语言程序调用fortran库文件中的函数，但是同样的程序在linux下没有问题，aix环境下要怎么修改呢，请高手指教。

   bus012_(&length, kbuff , ksup, ksec0, ksec1, ksec2,  &kerr) ;
   buprs0_(ksec0);
   buprs1_(ksec1);

   if (ksup[5] > 1)
      kelem = kvals/ksup[5];
   else
      kelem = KELEM;

   if ( kelem > KELEM ) kelem = KELEM;
   kerr = 0;
    bufrex_(&length,(long *)kbuff,ksup,ksec0,ksec1,ksec2,ksec3,ksec4,
            &kelem,(char **)cnames,(char **)cunits,&kvals,
            values,(char **)cvals,&kerr);
   if ( kerr )
      {
      kerr = 0;
      }

   buukey_(ksec1,ksec2,key,ksup,&kerr);

   busel_(&ktdlen,ktdlst,&ktdexl,ktdexp,&kerr);
   buprs3_(ksec3,&ktdlen,ktdlst,&ktdexl,ktdexp,&kelem,(char **)cnames);

   icode = 0;
   current_ss = 1;
   buprt_(&icode,&current_ss,&current_ss,&kelem,(char **)cnames,
                     (char **)cunits,(char **)cvals,
                     &kvals,values,ksup,ksec1,&kerr);

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)