subroutine basis_function_b_val ( tdata, tval, yval ) ! !******************************************************************************* ! !! BASIS_FUNCTION_B_VAL evaluates the B spline basis function. ! ! ! Discussion: ! ! The B spline basis functio…

轨道力学中二体问题下求解兰伯特方程. 老外写的Matlab程序,我把它转成了Fortran程序. !***************************************************************** subroutine solve_lambert(r1,r2,tt,GM,lw,N,nBranch,v1,v2) implicit real(8)(A-H,O-Z) dimension r1(3),r2(3),v1(3),v2(3),tmp3(3),wih(3),r1…

以前写了个获取硬盘序列号的fortran程序,但未经实证 program FortranDemo Use Kernel32 Implicit None Interface SUBROUTINE GetDiskSerialNumber1(drive, pout, poutsize) !DEC$ ATTRIBUTES STDCALL :: GetDiskSerialNumber1 !DEC$ ATTRIBUTES Alias:'GetDiskSerialNumber1':: GetDiskSeria…

一.C++动态调用Fortran DLL (1)创建FORTRAN DLL工程,生成forsubs.dll文件供调用. ! forsubs.f90 ! ! FUNCTIONS/SUBROUTINES exported from FORSUBS.dll: ! FORSUBS - subroutine ! INTEGER*4 FUNCTION Fact (n) !DEC$ ATTRIBUTES DLLEXPORT::Fact INTEGER*4 n [VALUE] INTEGER*4 i, amt…

参考http://yxbwuhee.blog.sohu.com/143577510.html 一.C++动态调用Fortran DLL (1)创建FORTRAN DLL工程,生成forsubs.dll文件供调用. ! forsubs.f90 ! ! FUNCTIONS/SUBROUTINES exported from FORSUBS.dll: ! FORSUBS - subroutine ! INTEGER* FUNCTION Fact (n) !DEC$ ATTRIBUTES DLLEXPO…

在CentOS7上安装了PGI编译器,但是调试过程中遇到的“段错误(吐核)”一直让人很头疼. 通常采用在程序中增加屏幕输出代码的方式来追踪和定位出错的变量,比如下面这个样例程序就在第16行和第18行增加了两句输出: real*, allocatable :: mlat(:),mlon(:) integer cnti,LenMLAT,LenMLON ,LenMLAT- mlat(cnti) = dble(cnti) enddo ! ,LenMLAT ! write(*,'("mlat("…

比如程序: program main implicit none write(*,*) "AAAAAAAAAAAAAAAAAAAAAAAA" stop end 虽然可以看见DOS窗口显示AAAAAAAAAAAAAAAAAAAAAAAA,不过是一闪而过,请问怎样解决呢? 解答: stop的上一行加pause. 比如程序: program main implicit none write(*,*) "AAAAAAAAAAAAAAAAAAAAAAAA" pause sto…

本来python下面调用fortran最傻瓜方便的办法就是f2py,但是若fortran和C混合编程的代码,分别指定gfortran和gcc为编译器,在windows下面f2py直接报错 那么ctypes就是另一种可行的替代办法,且stackoverflow上面这类问题的回答也比较全面 这里需要注意的两点是: 1.python里面的float对应Fortran的REAL(kind=8).C中的Double 2.从python传递字符串到Fortran的话,需要给出字符串的长度 下面是传送门: h…

第一种方法 ifort -o outprogram Source1.f90 Source2.f90 第二种 在主程序中include 'Source2.f90' program main call prhello end program include 'Source2.f90' subroutine prhello write(*,*)'hello,world' end subroutine 代码如上,include 只是简单的把文件中的东西放到目标位置 然后 ifort -o outprog…

前言 C#发展到现在,已是一门相当完善的语言,他基于C语言风格,演化于C++.并依靠强大的.NET底层框架.C#可以用来快速构建桌面及Web应用.然而在我们的实际工作中,尽管C#已经非常完善,但还是不能完成我们所有的工作.在很多工程计算中,C#语言的计算速度,精度,以及执行效率相对来说都达不到项目的要求.因此我们便考虑是否有一种方式将我们的工程计算部分和我们的项目分开,将计算部分用另一种执行更快,精度更高的语言来编写,然后在C#中调用,最后完成我们的工作.答案是肯定的. Fortran是一门古老…