╨╧рб▒с>■  %'■   $                                                                                                                                                                                                                                                                                                                                                                                                                                                ье┴9 ЁR┐F bjbj¤╧¤╧9ЯеЯеF      lммммммм└ *└+ ЄJJJJJJJJЖ И И И И И И $ = lм 9мJJJJJм XммJJх XXXJЄмJмJЖ XJЖ X.XЖ ммЖ J> Pw╖∙$└└^<Ж Ж √ 0+ Ж й N й Ж X└└мммм┘C/C++╟С(uДv/f:wМ(uж~Ъ[/fSTDCALLж~Ъ[.(WC zП^-N,яSхN(W¤QpeЯSЛWДvЁXf-NO(u_stdcallsQ.ХW[egcf╟П z╟С(uSTDCALLМ(uж~Ъ[0 Fortran╟П z╟С(uДv:wh╞Л&{/f  hQшР'YЩQДv╟П z TаR N _ MRМT @n T0(WC zП^-N▌OYuh╞Л&{Дv'Y\ЩQ0╤Л zП^O┘~╟С(uSTDCALLж~Ъ[Дv╟П zh╞Л&{аR N _ MRМT @n T0 Fortran╟П z:wДv┬Spe OР╣e_/f_(u╣e_/f0∙[ОN NbЧ┘П*NFortarn╟П z  SUBROUTINE ForSub(ivar,rvar) INTEGER ivar REAL rvar WRITE(*,*) ivar,rvar END (WCэЛК zП^-NФ^┘~·Q╟П zДv¤QpeЯSЛW╩SМ(u╣e_:N  void main() { extern void__stdcall FORSUB(int*I,float*f); int iCVAR=1; float rCVAR=2.0; FORSUB(&iCVAR,&rCVAR); } (WC++-NМ(uFortanДv╟П z  (WЁXf¤QpeЯSЛWЎeЧБЙ(uextern C эЛхS  хNРMQC++╤Л zП^∙[h╞Л&{ДvюOpЩ v^NC++_NяSхNР╟П_(u╣e_ OР┬Spe0∙[ОN NbЧДvFortran╟П z  C++ zП^Ф^┘~·QДv¤QpeЯSЛW╩SМ(u╣e╒l/f  void main() { extern  C {void__stdcall FORSUB(int*I,float*f);} int iCVAR=1; float rCVAR=2.0; FORSUB(&iCVAR,&rCVAR); } цSY  _NяSхN(WFortran-N(u!MS$ATTRIBUTES╤Л*OcфNeg9e╪SFortranP[╟П zДvМ(uж~Ъ[  хN┐OОNлИvQ╓NэЛКДv zП^М(u0(W NbЧДvЛOP[-N  ╟П zForSubwQ gCэЛКДvМ(uж~Ъ[0 SUBROUTINE ForSub(ivar,rvar) !MS$ATTRIBUTES C  ForSub INTEGER ivar REAL rvar WRITE(*,*) ivar,rvar END ┘П7h  ┘П*N╟П zO(uДv/fCМ(uж~Ъ[  v^N┬Spe OР╣e__N╪S:N O