为什么ifort-warn都在接口不匹配时抛出错误？
以下是一些示例代码： ! Author: Svetlana Tkachenko svetlana@members.fsf.org ! License: GPLv3 or later subroutine myprint(var) ! integer :: var ! print *, 'Hi, my ', var end subroutine module testi
..
fortran相关内容
Make：F90：找不到命令
我正在尝试在ubuntu 16.04中运行我的项目团队的一些旧的Fortran代码。我没有对现有代码进行任何修改。我所做的就是安装gfortran，打开一个终端，然后使用cd命令转到文件位置。这里我有很多文件，但只考虑这两个：脚本文件compile.sh和Makefileremail.make。 在compile.sh中： make -f remail.make 在remail.m
..
Fortran LAPACK例程中的分段错误
我正在尝试使用Fortran 95运行一个带有LAPACK库的简单程序。我正在解线性方程组：Ax=B A = [4 -2 3] [1 3 -4] [3 1 2] B=[ 1 -7 5] x是解向量 解决方案 x = [-1 2 3] 以下是代码。我使用了两个子例程：SGETRF和SGETRS。第一个函数SGETRF计算矩阵
..
如何在DO循环中区分结果和前一个结果？
此子例程用于确定复合梯形 我要提取最终结果(积分)和前一个结果(积分-1)之间的差异，并将该差异用作重复我的间隔数的限制。 Subroutine Trapezoid(a,b,n,integration) real,external :: f real :: h,a,b,summ,p real,intent(out) :: integration integer :: n integer
..
如何用隐含的DO循环逐行写矩阵？
我的IDE是带有MinGW 9.2.0的代码块。 我需要帮助在文本文件中逐行编写矩阵。 这是我的简单代码： program matrix integer :: i, j integer, dimension(2,2) :: a_mat forall( i = 1 : 2, j = 1, 2 ) a_mat(i,j) = i + j end fo
..
编辑设置以允许GCC编译中的参数不匹配
我正在尝试安装this python package。不幸的是，由于排名不匹配，我遇到了编译错误。 here已报告此程序包的错误。错误报告指出，最实用的解决方案似乎是将编译器标志-休眠-参数-不匹配添加到安装脚本中。 我不知道该如何着手做这件事。Setup.py脚本仅包含以下内容： from numpy.distutils.core import setup from numpy.dis
..
使用Makefile将多个源目录中的多个可执行文件编译为单个bin目录
我正在尝试为我正在处理的一组程序创建一个Makefile。这些程序都是用Fortran编写的，源文件位于不同的目录中。我似乎想不出怎么才能让事情运转起来。我当前的Sumfile是 #Compiler and compiler flag variables FCOMP=/usr/local/bin/gfortran F_FLAGS=-O2 -fbounds-check -Wall F_FLA
..
错误：逻辑运算符(1)的操作数为整数(4)/Hollerith
我是Fortran新手。所以我需要帮助。我在SuSE上使用gfortran编译代码，收到以下错误： 200 IF ( ID .EQ. 4HEOT ) GO TO 20 1 Error: Operands of logical operator '.eq.' at (1) are INTEGER(4)/HOLLERITH 代码的主文件附加在下面的链接中，在1
..
Fortran：包含已编译模块的生成文件
我有一个这样的项目结构 -Project --Common ---types.f90 ---global.f90 ---common_routines.f90 --Program 1 ---program1.f90 ---module1.f90 ---module2.f90 ---etc... --Program 2 --etc...
..
正在尝试使用netlib代码(故障诊断灯)。什么是xerror？
我正在尝试如何使用quadpack。 在一个文件夹中，我找到了“qag.f plus dependencies”的内容，代码显示为qag_test.f： (可能这段代码本身并不是很重要。这实际上只是quadpack document) 中的一个片段 REAL A,ABSERR,B,EPSABS,EPSREL,F,RESULT,WORK INTEGER IER
..
定义赋值和内在赋值(使用nagfor)之间存在冲突？
本征多态赋值是某些Fortran编译器(例如ifort 18、nagfor 6.2)的最新功能，在旧版本(例如ifort 17、gfortran 6.3)中不提供。适用于这些旧版本的一个众所周知的解决方案是使用以下示例中定义的赋值(取自《齐弗斯与史莱特姆》一书并改编自该书)： module deftypes type, abstract :: shape_t int
..
Fortran中的指针数组
我已经为热力学计算编写了一个大型Fortran程序将近10年了，当我开始时，我对新的Fortran标准还很陌生(我熟悉F77，太老了，学不了其他东西)。我发现新的类型构造非常好，并且经常使用它们，但我没有意识到一些限制，比如它不允许创建指针数组，这是我后来发现的。 现在我正在更正我的一些旧代码，我很惊讶地在记录声明中发现：type GTP_PHASE_ADD 声明：type(Tpfun
..
英特尔堆数组的gfortran标志[大小]
intel ifort's 对应的gfortran标志是什么 -heap-arrays [size] 推荐答案 这是一个旧问题，但接受的答案并不完全正确，我希望为像我这样遇到帖子寻找答案的未来用户添加上下文。 我相信英特尔的ifort和GCC的gfortran都有一定的字节限制，超过该限制的数组不会分配到堆栈上，而是在静态内存中。 Intel：-heap-arrays [
..
程序接收信号SIGSEGV：分段故障-大容量数组中的无效内存引用
我在运行此代码时遇到错误。当我用L=16或L=32这样的小L运行代码时，我没有得到错误，但在L=128或L=96的7000-8000步之后，我得到了以下错误： Program received signal SIGSEGV: Segmentation fault - invalid memory reference. Backtrace for this error: #0 0x7FBA
..
Gfortran：使用实数作为数组索引
在使用gfortran编译时，是否可以使用实数作为迭代器和数组索引？以下是一些示例代码： program test real i real testarray(5) testarray = 0. do i=1,5 write(*,*) testarray(i) end do end program 我想运行一些不是我编写的代码。它在
..
如何使用可分配组件设置名为常量的派生类型的值？
编译正确： type t1 integer :: a, b(2), c end type t1 type(t1), parameter :: t1a = t1(1, [2, 3], 4) 我想写这样的代码，但它不能编译： type t2 integer :: a integer, allocatable :: b(:) integer :: c en
..
Fortran中特定的双精度函数有用吗？
我注意到在使用gfortran时，tan函数返回与其参数相同类型的实值；例如，可以将real(kind=4)、real(kind=8)或real(kind=16)传递给它，并分别在real(kind=4)、real(kind=8)或real(kind=16)中得到结果。 另一方面，像dtan这样的双精度函数就没有那么灵活了。如果默认双精度类型为8[1]，则只接受并返回real(kind=8)；如
..
使用gfortran续行不起作用
我正在使用Mingw编译我的gfortran代码。我很难找到一种方法，如何在代码的下一行继续我的公式。我根据标准Fortran代码的说明尝试使用连续字符&，但不起作用。 我的代码如下： program test implicit none real :: a a=1.+ & 2. print *,'Gfortran code ',a end
..
在Fortran中统计文本数据中变量的频率
我有一个数据文件，其中包含以下信息： x y k !name for the columns to explain 200316157 123 2004121 200316157 456 2004121 200316157 789 2004121 200519776 456 2007234 200519776 789 200
..
Fortran取消分配x函数
在Fortran编码语言中，取消分配(X)是用来做什么的？X变量是一个数组。我听说它删除了里面的所有元素。是真的吗？ 其中一个例子是： Toplam = 0.0 DO K = 1, N Toplam = (Ort - X(K))**2 END DO ! bellek bloğu boşaltılıyor DEALLOCATE(X) Std_S
..