如何将单个Fortran文件拆分为单独的子例程和函数文件
将单个Fortran文件拆分为单独的子例程和函数文件可以通过以下步骤实现：
- 首先，打开Fortran文件，找到可以拆分的子例程和函数的代码块。子例程和函数通常由
SUBROUTINE和FUNCTION关键字定义。 - 根据代码块的逻辑和功能，将其复制到新的文件中。确保复制的代码块是完整的，包括所有相关的变量和参数。
- 在新的文件中，根据需要添加必要的模块和变量声明。这些声明应该与原始文件中的声明保持一致，以确保代码的正确性。
- 重复步骤2和步骤3，直到将所有的子例程和函数都拆分到单独的文件中。
- 最后，保存所有的子例程和函数文件，并确保它们位于同一个目录下。
拆分Fortran文件为单独的子例程和函数文件的优势是：
- 提高代码的可维护性：将代码拆分为多个文件可以使代码更加模块化和可重用。这样，当需要修改或更新特定功能时，只需修改相应的文件，而不会影响其他部分的代码。
- 促进团队合作：拆分代码可以使多个开发人员同时工作在不同的文件上，从而提高团队的协作效率。
- 提高代码的可读性：将代码拆分为多个文件可以使每个文件的代码量更少，从而提高代码的可读性和理解性。
- 便于调试和测试：拆分代码可以使调试和测试更加方便。可以针对单个子例程和函数进行测试和调试，从而更容易定位和解决问题。
拆分Fortran文件为单独的子例程和函数文件的应用场景包括：
- 大型项目开发：在大型项目中，将代码拆分为多个文件可以提高开发效率和代码的可维护性。
- 多人协作开发：在多人协作开发的场景下，拆分代码可以使每个开发人员负责不同的模块或功能，从而提高团队的协作效率。
- 代码重用：将代码拆分为单独的子例程和函数文件可以使这些代码更容易被其他项目或模块重用，提高代码的可复用性。
腾讯云提供的与Fortran相关的产品和服务包括：
- 腾讯云弹性计算服务（Elastic Compute Service，ECS）：提供高性能、可扩展的计算资源，适用于运行Fortran程序的虚拟机实例。详情请参考：腾讯云ECS产品介绍
- 腾讯云对象存储（Cloud Object Storage，COS）：提供安全、可靠的云存储服务，适用于存储Fortran代码和相关文件。详情请参考：腾讯云COS产品介绍
请注意，以上只是腾讯云提供的一些相关产品和服务，其他云计算品牌商也提供类似的产品和服务。
相关·内容
我继承了大约400行非常怪异的Fortran 77代码，我正试图一步一步地分析它，以使它在我的脑海中清晰。
无论如何，我有一个名为getarg.h的头状文件(实际上是一个.h，但其中的代码是用fortran编写的，而不是C/C++)，其中只有两个语句
character*80 serie
integer ln
然后，我有另一个名为getserie.h的fortran文件(.f)，其中包含以下代码：
subroutine getserie(serie, ln)
include 'getarg.h'
call getarg(1, serie)
ln = index(serie, &
浏览 2提问于2012-11-01得票数 2
回答已采纳
1回答
在让不同的编程语言相互通信方面，我还是个新手，希望能得到一些帮助。基本上我有一个Fortran代码和一个Matlab代码。这两个代码首先被初始化，然后必须按顺序运行。每个代码都需要来自另一个代码的输入。当这个过程重复得足够频繁时，就会达到一些收敛标准，迭代就会终止。让事情变得更复杂的是，Fortran代码不仅需要来自Matlab的输入，还需要来自它自己先前迭代的输入。这同样适用于Matlab。因此，据我所知，最好在迭代过程中保持两个程序都打开，因为我有很多变量，因此不能只将它们写在文本文件中，将它们交给另一个程序，并为下一次迭代保留它们。
所以从本质上讲，我正在尝试这样做：
初始化变量集合A、
浏览 8提问于2014-10-28得票数 3
是否可以从fortran中获取fortran模块中定义的所有函数和sobroutine的列表？例如，在python中，我可以这样做：
import math
dir(math)
我得到了数学模块中所有名字的列表。我正在寻找在fortran中类似的东西(但我不会屏住呼吸)。
浏览 0提问于2013-05-07得票数 0
回答已采纳
我想用SymPy码元实用工具生成一个Fortran子例程。我可以在没有codegen(("f", x*y*z), "f95", "filename")问题的情况下生成Fortran函数。但是我想要生成一个Fortran子例程，这样我就可以修改输入数组。我该怎么做？文件非常贫乏。
浏览 0提问于2014-08-15得票数 3
回答已采纳
1回答
我是第一次接触Fortran，我正在尝试使用f2py在python中运行fortran。当fortran函数将输出作为单个值提供时，我很幸运。但是，当我修改fortran函数以给出一个数组时，我得到了分段错误。
有谁能帮帮我吗？代码如下：
Fortran函数:在名为‘fortfunc.f95’的文件中：
function fut(x,n)
implicit none
real, intent(in) :: x
integer, intent(in) :: n
real, dimension(2) :: fut
! My aim is to return an array fut which
浏览 5提问于2018-07-13得票数 2
1回答
使用直接从R调用Fortran 子例程是直接的，并且有在线可用的示例。然而，我还没有找到任何直接的方法来调用来自R.
目前，我为此使用了一个接口，它获取Fortran函数并在子例程中使用它，但是对于所有外部函数来说，这样做非常耗时。
有没有一种优雅的方法可以直接从R调用Fortran 函数？
浏览 3提问于2022-08-03得票数 4
Ubuntu 20.04.1 64-bit
Kernel Linux 5.4.0-42-generic x86_64
MATE 1.24.0
gfortran: GNU Fortran (Ubuntu 9.3.0-10ubuntu2) 9.3.0
PLplot library version: 5.15.0
pkg-config --cflags --libs plplot-fortran :
-I/usr/include/plplot \
-I/usr/lib/x86_64-linux-gnu/fortran/modules/plplot \
-I/usr/include/plpl
浏览 34提问于2020-08-25得票数 0
我从C++调用一个Fortran函数，该函数分配一个向量，然后从C++返回一个指向该向量的指针。问题是，当我使用这个指针在C++中打印值时，向量的第一个元素的值就会丢失。我不确定我是否做错了什么。
以下是我的C++代码：
#include <iostream>
#include <cstdio>
using namespace std;
extern"C" {
void fortfunc_(int *ii, void *ff);
}
main()
{
int ii=5;
double *ff;
int i;
// Ca
浏览 4提问于2015-03-19得票数 3
回答已采纳
2回答
我目前正在学习FORTRAN (我对MatLab很熟悉)，我对子程序的意义非常困惑。为什么会有人使用它们而不是函数。此外，在主程序中调用时，它们如何返回值？例如：
PROGRAM SUBDEM
REAL A,B,C,SUM,SUMSQ
CALL INPUT( + A,B,C)
CALL CALC(A,B,C,SUM,SUMSQ)
CALL OUTPUT(SUM,SUMSQ)
END
SUBROUTINE INPUT(X, Y, Z)
REAL X,Y,Z
PRINT *,'ENTER THREE NUMBERS => '
浏览 0提问于2015-02-04得票数 7
1回答
我最近正在用cBLAS阅读一些源代码，有些东西让我不太清楚。在许多函数中，.c文件调用Fortran包装器，而不是直接在C文件中编写代码，如下所示：
/*
* cblas_sdsdot.c
*
* The program is a C interface to sdsdot.
* It calls the fortran wrapper before calling sdsdot.
*
* Written by Keita Teranishi. 2/11/1998
*
*/
#include "cblas.h"
#include "cblas_f77.
浏览 3提问于2021-10-18得票数 3
回答已采纳
我正在创建一个使用fortran的C# net4.5控制台项目。此dll的方法在第一次调用时工作良好，在第二次调用时安装，没有任何类型的错误消息。
运行一些测试后，我发现--如果我不使用module1 --意味着将变量声明放在子例程上，它可以在任意数量的调用上正常工作
C#
static void Main(string[] args)
{
TestMyArray();//WORKS FLAWLESLY
TestMyArray();//INSTAKILLS PROGRAM
}
private static void TestMyArr
浏览 1提问于2014-05-16得票数 1
回答已采纳
我看到Fortran有'call‘和'include’语句。两者之间的区别是什么？.i文件类型有什么意义吗？
即：
include 'somefile.i'
call 'somesubroutine.f'
谢谢!
浏览 15提问于2011-12-08得票数 2
回答已采纳
1回答
此程序在fortran 95上的输出显示星号而不是数字。我也不能让Experiment#像这样打印出来:实验1、实验2、实验3等等。相反，它打印如下:实验1，实验1，实验1。
对如何解决这个问题有什么建议吗？下面是我的整个程序。
耽误您时间，实在对不起。
PROGRAM numbersgen
IMPLICIT NONE
!Variable declaration
INTEGER, DIMENSION(:,:),ALLOCATABLE::numarray
INTEGER, DIMENSION(:),ALLOCATABLE::temparr
浏览 0提问于2011-04-13得票数 1
回答已采纳
如何在Fortran中编写同时接受输入和输出作为参数的函数？例如：
fun(integer input,integer output)
我想要利用输出值。我尝试过这样的方法，但是输出变量没有保存这个值。
具体地说，我从Fortran中调用一个C函数，该函数将输入和输出作为参数。我可以成功地传递输入值，但输出变量没有获取值。
浏览 2提问于2009-08-26得票数 3
我已经经历了公开可用的晶体可塑性FORTRAN ，然而，我无法理解输入材料是如何通过子程序和函数传递的。
因此，在主UMAT中，变量支持指向输入文件中*USER main选项中输入的物质常量。对于子例程，此值为125。
现在，UMAT调用的子例程定义了另一个变量支柱，它采用不同的值，如
行1430；
C PROP(1) - PROP(3) -- direction of the first vector in
C local cubic crystal system
在第2167行中，(i= 1)
C
浏览 0提问于2020-08-27得票数 0
回答已采纳
2回答
我正在尝试使用以下代码中的f2py为Fortran函数创建包装：。它来自一篇关于简化密度矩阵( )的论文，代码在fortran中运行时运行良好。
现在尝试在Fortran文件"partial_trace.f90“上使用f2py创建一个包装器，结果是
/tmp/tmpBwIuHh/src.linux-x86_64-2.7/partial_tracemodule.c:325:15: error: invalid type argument of unary ‘*’ (have ‘int’)
w_Dims[0]=2**nqb;
^
我对Fortran和C都很不熟悉，在
浏览 0提问于2016-02-02得票数 0
我正在学习Fortran的基础知识。我创建了一个初始化矩阵的简单的子例程：
program test
integer, parameter :: n = 1024
real :: a(n, n)
call init(a)
write (*, *) a(1, 1)
end program
subroutine init(a)
real :: a(n, n)
a(:, :) = 3.0
end subroutine
然后，输出是0.0而不是预期的3.0。除此之外，valgrind说：
==7006== Conditional jump or move depe
浏览 0提问于2017-02-03得票数 1
回答已采纳
我在Fortran 90中有一个优化求解器。因此，如果我想要更改目标函数，我必须修改main文件，并以这种方式编写目标函数：
subroutine fobj(n,x,f)
implicit none
integer :: n
real(8) :: f
real(8) :: x(n)
intent(in ) :: n,x
intent(out) :: f
!OBJECTIVE FUNCTION
f = x(1)**2-x(2)+2*x(3)
end subroutine fobj
我有一个很大的目标函数，所以我想从外部文件
浏览 2提问于2012-03-10得票数 0
回答已采纳
1回答
我没有使用Fortran的经验，但我正在尝试用Fortran语言运行一个非常简单的循环，方法是通过.Fortran()函数从R调用它。每当我运行粘贴在下面的R代码的最后一行时，R gui崩溃，我没有得到任何结果。我感兴趣的是将实值x的向量从Fortran带回R进行进一步分析。G是0到1之间的数值，n是整数，它们都是由用户在R中提供的。
任何帮助都将不胜感激！最好的
文森
保存在bar.f中的Fortran代码：
subroutine bar(n, g, x)
integer n
double precision g
double precision
浏览 0提问于2011-01-19得票数 13
回答已采纳
1回答
f2py数组值函数
、、、、
最新版本的f2py是否支持包装数组值的fortran函数？在一些古老的文档中，这是不被支持的。现在怎么样？
例如，让我们将以下函数另存为func.f95。
function func(x)
implicit none
double precision :: x(:),func(size(x))
integer :: i
do i=1,size(x)
func(i) = i*x(i)
end do
end function
我用f2py --fcompiler=gnu95 -c -m func func.f95编译了这段代码
然后让下面的p
浏览 1提问于2012-06-06得票数 6
回答已采纳
我想知道如何最好地处理Fortran中的一个子例程，这个子程序需要一个未知数的论点。例如：
Real * 8 :: array1(2,2),array2(2,2,3)
call mysubroutine(array1)
call mysubroutine(array2)
现在，我总是需要修复子例程中的形状(排名数)。
例如，内部子程序random_number(array)可以做到这一点。(但也许它不是用Fortran编码的？)
浏览 4提问于2013-05-28得票数 5
回答已采纳
real triangle(0:2, 0:1)
其中“三角形”是一个向量数组(1-dim数组)，我还有一个子程序
subroutine vecSub(lhs, rhs, result)
real lhs(0:1), rhs(0:1), result(0:1)
result(0) = lhs(0) - rhs(0)
result(1) = lhs(1) - rhs(1)
return
end
有没有办法把“三角形”变量中的一个向量传递给这个子例程？Fortran-90可以这样做：triangle(0, :)，它给出了第一个三角形数组，但我只允许使用FORTRAN-77，
浏览 5提问于2020-02-16得票数 2
2回答
在Fortran module中，我试图将初始值赋给派生数据类型，该数据类型的组成部分是过程指针，但得到错误消息:意外的指针分配。
在module中，如何将初始值赋给包含过程指针的派生类型？
module pointer_mod
use legendrePolynomials
implicit none
interface
function func (z)
real*8 :: func
real*8, intent (in) :: z
end function func
end interface
浏览 4提问于2013-03-05得票数 0
回答已采纳
1回答
我已经将几个子程序放入.f95文件中，用gfortran -shared -fPIC -o bin/Debug/libpr10.so main.f95编译了它，现在我想在C程序中使用库中的一些子程序。我该怎么做(在语法上)？我是否必须在Fortran库中生成任何"headers“，在那里我应该声明我想在库之外使用的子程序(如果是C的话，我必须这样做)？如果我只是告诉链接器库在哪里，并尝试调用main()中的任何子例程，我就会得到一个错误
更新我不想混淆fortran和C！我只想使用Fortran共享库中的一个子例程，甚至是w/o参数。尽管我已经指出了通往.so库的路径，但对于C程序来说
浏览 3提问于2014-06-13得票数 3
回答已采纳
1回答
我正在尝试为一个文件写出一个假定的秩数组：
subroutine write_dbl_gen(filename, array)
Implicit None
character(len=*), intent(in) :: filename
real(8), intent(in) :: array(..)
open(unit=p_un, file=filename, form="unformatted",&
access="strea
浏览 1提问于2019-11-19得票数 3
回答已采纳
1回答
首先，我对同时使用Fortran和Matlab这一领域还不熟悉，所以如果我没有看到非常明显的情况，请耐心等待。
这就是我的问题:我有一个Fortran90代码，它可以计算两个大型的复杂矩阵A和B。我将这些矩阵写到一个文件中，在MATLAB中读取它，并进行一些操作(具体来说，求解特征值)。这种方法的问题是，即使以二进制格式写入和读取数据也需要非常长的时间。在某些情况下，写入和读取操作比实际解决特征值问题的时间更长。
那么，有没有什么方法可以直接将Fortran 90代码生成的矩阵传递给MATLAB，而不需要编写和读取？
我在Fortran中读到过关于call system的内容，但它似乎没有传递
浏览 9提问于2017-01-07得票数 1
1回答
关于F2Py的声明如下：
回调函数也可以在模块中显式设置。然后，不需要将参数列表中的函数传递给Fortran函数。如果调用python回调函数的Fortran函数本身由另一个Fortran函数调用，则可能需要这样做。
然而，我似乎找不到这样做的例子。
考虑以下Fortran / Python组合：
test.f
subroutine test(py_func)
use iso_fortran_env, only stdout => output_unit
!f2py intent(callback) py_func
external py_func
integer py_fu
浏览 2提问于2014-02-17得票数 5
回答已采纳
1回答
我有一个简单的Fortran代码(stack.f90)：
subroutine fortran_sum(f,xs,nf,nxs)
integer nf,nxs
double precision xs,result
dimension xs(nxs),result(nf)
external f
result = 0.0
do I = 1,nxs
result = result + f(xs(I))
print *,xs(I),f(xs(I))
enddo
浏览 3提问于2013-07-03得票数 3
回答已采纳
我正在尝试用一个源文件在IBM xl系统上构建一个Fortran代码库，它的编译错误如下：
line 152.16: 1516-036 (S) Entity ctime has undefined type
通过谷歌搜索，我发现ctime是一个GNU Fortran函数，这就是xl编译器不喜欢它的原因。有人能建议一下IBM xl fortran编译器中是否有ctime的替代函数吗？
ctime函数将系统时间值转换为字符串。参考第9.74页124页
浏览 1提问于2014-11-04得票数 0
我希望在指定的时间内运行代码(或外部可执行文件)。例如，在Fortran，我可以
call system('./run')
我是否可以将它的运行限制为10秒，例如：
call system('./run', 10)
我想从Fortran代码中执行这个操作，上面的示例用于系统命令，但我也想对代码中的其他子程序执行此操作。例如,
call performComputation(10)
在这里，performComputation只能运行10秒。它将运行的系统是Linux。
谢谢!
浏览 1提问于2014-06-05得票数 1
回答已采纳
我对Fortran有些陌生，但我开始在反复使用的模块中收集许多函数和子例程。我一直在尝试构建自己的库，这样我就可以从我编写的新源代码中调用其中一些函数和子例程。到目前为止，我已经能够使子例程工作，但不能让函数工作。我只是不知道如何在代码中使用来调用函数。
下面是一个例子。下面的函数接受一个整数并返回单位矩阵。
module test
contains
function IDENTITY(rows) !RETURNS THE IDENTITY MATRIX
real, dimension(rows,rows) ::
浏览 0提问于2012-12-21得票数 3
我的印象是，Fortran中的子例程和函数之间的主要区别在于，函数返回值，而子例程更改作为参数传递的部分或全部值。但后来我了解到，您也可以修改作为参数传递给函数的变量。我很困惑，并且找不到一个很好的参考来解释它们之间的差异。
那么，这两种构造之间的区别是什么，以及何时以及为什么应该优先于另一种构造？
浏览 1提问于2014-12-17得票数 11
2回答
我在Fortran中有以下函数签名。我是第一次接触Fortran语言-在下面的函数中0.是什么意思？
ANTY(IAN,NA,0.,0.)
浏览 7提问于2009-08-18得票数 0
2回答
我使用fortran有一段时间了，但是在使用fortran中的子程序时，我没有检查隐式强制转换问题。例如
subroutine printa(a)
double precision :: a
...
endsubroutine printa
当我调用子程序时
call printa(1)
我看到了错误#6633:实际参数的类型与虚拟参数的类型不同。1我知道这是因为我使用一个整数而不是双精度作为输入参数。但我只是意识到在使用子程序时没有隐含的强制转换。
如果我想要一个处理整数和双精度数据的子程序，那么我似乎必须定义两个子程序来处理这些事情。
浏览 4提问于2014-05-02得票数 1
回答已采纳
我有一个Fortran77源代码，其中包含大量的表单打印命令：
写( fileID，label )
这个F77代码通过“RCMDSHLIBcode.f”编译成一个DLL，这个DLL从R.调用，如果在F77代码fileID中是一个常规文本文件，那么命令可以正常工作。但是，对于标准控制台输出，即fileID = 0，R创建一个"fort.0“临时文件，而不是在R控制台窗口中显示输出。
此问题仅在我的Windows 64位版本中发生。在Linux32位和64位下，fileID = 0的输出将正确地显示在控制台中。
我已经尝试了flush.console()命令。没有成功。
也许有人知道如何解
浏览 3提问于2016-03-08得票数 1
回答已采纳
2回答
在运行我的代码(用gfortran编译)时，我会得到fortran运行时警告“创建了一个临时数组”，我想知道是否有更好的方法来解决这个警告。
我的原始代码是这样的：
allocate(flx_est(lsign,3))
allocate(flx_err(lsign,3))
do i=1,lsign
call combflx_calc(flx_est(i,:),flx_err(i,:))
enddo
在子例程中，我定义如下所示的变量：
subroutine combflx_calc(flx_est,flx_err)
use,intrinsic :: ISO_Fortra
浏览 4提问于2015-03-04得票数 9
回答已采纳
在Fortran 77代码中，有公共块和等价语句的组合使用。例如,
common /X/ a,b,c,d
dimension arr(4)
equivalent(arr(1),a)
有没有人能提供一个可行的解决方案，将这种Fortran 77代码转换成Fortran 90代码？
浏览 5提问于2013-06-07得票数 2
回答已采纳
5回答
在Fortran中，函数和子例程之间有一个明显的区别:函数返回一个值，子例程不返回值。这引入了两者之间的级联差异。一个例子是调用语义:您可以像在其他语言中一样调用一个函数，但是为了调用子例程，您必须首先发出一条call语句。
通过在Fortran95中添加指针和数据类型，似乎没有技术限制使子程序成为一个函数，并只为遗留保留子例程。函数可以返回零(您只返回一个伪整数)、一个或多个值(例如，您可以返回一个指向某个类型的已分配实例的指针，如C++ STL对)。
我说错了吗？在Fortran编程中，我们是否仍然需要子例程，因为子例程有一些功能，而函数没有？
浏览 2提问于2010-10-15得票数 6
回答已采纳
4回答
我经常使用FORTRAN，但我从来没有得到过以正确的方式编写源代码的正式指导。我目前使用模块来存储全局变量，但我知道您也可以使用它们来存储子例程和函数。我使用的代码有很多子例程，因为它们非常大和复杂。所有的函数和子例程都应该放在模块中吗？如果有，原因何在？
浏览 2提问于2012-08-14得票数 6
回答已采纳
基本上，我想在Ubuntu(Linux环境)中的Eclipse(并行应用程序开发) IDE中使用C和FORTRAN编写一种混合编程语言。
我的主程序是用C语言编写的，而调用函数是用FORTRAN编写的。现在，我应该如何将这个FORTRAN源程序链接到C项目？
我能够从终端(Linux)编写和编译相同的(混合编程)，没有任何问题。
浏览 3提问于2013-01-19得票数 2
我正在尝试使用f2py封装C代码。
作为第一个测试，我准备了两个非常基本的C源文件：
模1.c
double multiply(double a, double b);
double multiply(double a, double b) {
return a*b;
}
模2.c
double divide(double a, double b);
double divide(double a, double b) {
return a/b;
}
我将这两个文件编译如下：
$ gcc -c -fPIC -o module1.o module1.c
$ gc
浏览 5提问于2021-06-24得票数 2
回答已采纳
1回答
我在fortran 77中有一个ema函数。我知道在fortran 2003中有一个iso_c_bindings，但是我需要一些旧的77标准的解决方案。
subroutine ema(inarray,leninarray,n,outarray,lenoutarray)
integer leninarray, lenoutarray, n, i
double precision inarray(leninarray), outarray(lenoutarray)
do 10 i = n+1, leninarray
outarray = inarray(i) * (1/n) + out
浏览 2提问于2010-09-16得票数 1
1回答
包含语句
、、、
我不理解fortran 90中包含语句的重要性
例如
PROGRAM BLABLA
IMPLICIT NONE
INTEGER :: i,j,k
i = 1; j = 1;k =1
PRINT *, i,j,k
CALL ABC(i,j,k)
PRINT *, i,j,k
CONTAINS
SUBROUTINE ABC(r,s,t)
IMPLICIT NONE
INTEGER, INTENT(IN) :: r,s
INTEGER, INTENT(OUT) :: t
t = r + s
END SUBROUTINE ABC
E
浏览 1提问于2016-03-04得票数 10
1回答
我有一个fortran子程序。一旦开始，它就会运行相当长的时间。
现在，我想编写一个程序，它在线程中从C++调用fortran子例程。当用户请求时，应该停止(或取消)线程。但是子例程不支持在运行过程中终止计算的任何方法。
据我所知，子程序只使用堆栈变量(不使用分配)。子例程由windows静态库(.lib文件)提供。
在这种情况下，我是否可以假设杀死子例程线程不会导致任何问题，例如资源泄漏？
FYI，这是运行环境：
操作系统: Windows 7 64位或以上
编译器: MSVC 2015用于C++，Intel Parallel用于fortran
浏览 1提问于2017-01-19得票数 0
回答已采纳
我将在Fortran中做一个标准的高斯消除过程，我想知道是否已经有了一些现成的解决方案？最好是以函数的形式。我看了很多fortran的数字书，但似乎没有什么好的解决方案。
浏览 2提问于2013-10-22得票数 2
读取值为0和实*8的实*4变量会产生大量的结果，有时没有警告。
我不擅长Fortran。我只是在运行一个来自其他人的Fortran代码，它造成了一个分段错误。在调试它时，我发现其中一个子程序是读取一个值为0的变量，该变量的值由real*8定义为real*4，结果值很大。
我试图用简单的代码再现它，但是编译器显示了参数不匹配的警告。我不得不嵌套代码来用简单的代码来重现被抑制的警告，但我不确定抑制警告的确切条件是什么。
实际上，出于某种原因，我怀疑这可能是我的编译器的问题，因为代码(不是示例代码，原始代码)在给我代码的人的PC上运行得很好。
hello.f**:** 文件
implicit n
浏览 0提问于2019-06-18得票数 1
1回答
我想在不同的Fortran可执行文件中使用静态库(用Fortran编写)中编写的子例程。这是我的工作例子：
subroutine my(a,b,c)
implicit none
real*8, intent(in) :: a,b
real*8, intent(out) :: c
!
c = a + b
!
end subroutine
生成一个XXX.lib文件，我用这个主文件指向该文件：
program main
implicit none
!
real*8 :: var1, var2
real*8 :: ou
浏览 0提问于2019-08-28得票数 0
回答已采纳
--我的问题是，是如何(以及它是否)对编译为外部模块(通过f2py)并由f2py脚本使用的Fortran模块进行垃圾收集的？
背景
我目前正在编写一个有限元程序，主要是用Python编写的(为了方便)，它使用Fortran子程序的几个模块来执行一些无法避免的任务(即装配/更新切线刚度矩阵)。这是使用f2py ()成功编译的，生成的.dll文件在python脚本中作为python模块导入。然后，Python可以成功地调用函数/子程序。
Fortran模块的结构如下所示，不同的子程序使用模块中定义的一些全局变量以及它们自己的虚拟变量。
module mod
integer, parameter
浏览 3提问于2019-11-04得票数 0
回答已采纳
3回答
Fortran返回语句过时了吗？
、、、、
我只想知道Fortran 2008中的return语句是否过时了，因为似乎没有必要在子程序和函数的末尾编写它。
它还有其他用途吗？
浏览 0提问于2018-04-12得票数 9
回答已采纳
1回答
我有一个已经存在的Fortran源代码，我正在努力将C添加到其中，并且很难将数组从C传递到Fortran函数，然后再接收另一个数组。
它编译时没有任何错误，但是当我试图运行代码时，它说：
数组'p2‘的维数(在Fortran函数中)的范围为3，而不是-4537421815 (或其他类似的数字)
我不知道这是怎么回事。我会附上下面的两个代码。
注意:我删除了许多额外的变量初始化行，我认为这些行似乎没有必要找到问题。
C职能：
#include <stdio.h>
#include <stdlib.h>
extern "C" double*
浏览 1提问于2016-07-21得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
