-
-1 votesanswersviews
Fortran代码给出错误[关闭]
我从一本书中学习了这个Fortran程序，该书基本上运行良好，以适应某些数据的测试并提供输出 . 代码及其实际结果/输出如下： real*4 x(50),xc(50,20),omega(50) integer ir(50) real*8 xx c This code tests goodness of fit. n=47 c The method of Bak, Nielsen, and Mads... -
6 votesanswersviews
Fortran：将同一个数组作为两个伪参数传递给子程序
假设我有一个子程序，它接受两个数组作为输入 . 一个是意图（in），另一个是intent（out） . 后者以任意方式来自前者 . 但是，如果我为两个伪参数传递相同的实际参数，该怎么办？通常，结果将不是子例程的预期结果 . 请参阅下面的代码段 . 问题是，编译器似乎并不关心，即使我已经给出了意图标志 . 我正在使用英特尔Visual Fortran Composer 12，具有所有诊断功能 . 有... -
1 votesanswersviews
Fortran矩阵生成代码错误
这个fortran代码应该从txt文件中的简单矩阵表中复制数据，然后根据每行和每列的先前等级计算等级和平均值 . 出于某种原因，我无法获得等级或平均值打印出来，它们显示为空白或0或星标 . 该程序在从txt文件打印矩阵表后运行时崩溃，它表示错误是访问冲突 - 所以根本没有多大帮助 . 到目前为止，我的代码是： program calculate1 real,dimension(:,:),alloc... -
0 votesanswersviews
FORTRAN遇到过早的EOL
~~求助，见编辑4） 我在OSX上用Java创建一个输入文件，当我尝试运行读取输入文件的FORTRAN程序时，我在第一行遇到EOF： At line 37 of file ../fortran.f (unit = 5, file = 'input2.txt') Fortran runtime error: End of file 第37行开始的地方： open (5,file='input2.t... -
1 votesanswersviews
Fortran中数组中某些元素的总和
我有这样一个数组： 1717.531 1717.364 1716.725 1716.723 1716.536 1716.304 1716.221 1715.998 1715.799 1715.702 1715.648 1715.254 1715.186 1714.733 1714.532 1714.266 1714.223 1714.094 1713.943 1713.873 1713.803 1... -
3 votesanswersviews
Fortran未明确引用'gplot_'
在过去的几天里，我无法获得一些Fortran代码进行编译（请注意，我不是此代码的作者，我是从author's web page下载的 . 它是开源的） . 主程序名为multitaper.f95，它使用名为plot和spectra的模块，以及名为mwlib.a和gplot.a的库 . 为简单起见，我将multitaper.f95，mwlib.a，gplot.a，plot.mod和spectra.m... -
4 votesanswersviews
fortran 90中的自动宽度整数描述符
我想在fortran 90中使用自动整数宽度描述符 . 我提到Output formatting: too much whitespace in gfortran这个问题说我可以使用 I0 和 F0,0 来获得"auto"宽度 . 这是我的示例代码（符合GNU Fortran编译器）： PROGRAM MAIN IMPLICIT NONE INTEGER :: i REAL ... -
6 votesanswersviews
Fortran DO循环，警告仅使用整数
我在我的Ubuntu 15.04系统上安装了gfortran . 在编译Fortran代码时，DO循环仅要求获取整数参数，而不是实数值或变量 . 这包括循环变量和步骤表达式 . 为什么它也不能采取真正的 Value 观呢？ 以下是一个程序取自here，练习3.5的嵌套do循环部分 . program xytab implicit none !constructs ... -
-2 votesanswersviews
fortran中的错误括号错误
以下行中的fortran中的错误括号错误（行中的行不一定相同） . P. S， - 我正在使用强制编译器 QWE(8)=(1.+5.*HILF+RWS(6)*(2*((RWS(6)**2-1)/(HILF1)-RWS(6)-HILF1) IF (ZWEIP .EQ. 2) S(47)=0.25+(HILF)/300 IF (ZWEIP .EQ. 4) S(47)=0.2 +(HILF)/500... -
-2 votesanswersviews
在Fortran中运行子例程时出错
我将这些作为运行线性集成的程序的一部分，这是我的函数和子程序，这是问题的一部分 SUBROUTINE interpol(x,f,xd,fd) IMPLICIT NONE REAL::linterp EXTERNAL linterp REAL,DIMENSION(5)::x REAL,DIMENSION(5)::f REAL,DIMENSION(9)::xd REAL (KIND=8),DIMENS... -
1 votesanswersviews
基本FORTRAN功能错误
我是Fortran的新手 . 我面临一个奇怪的问题，我不知道如何解决这个问题 . 我已粘贴最小工作代码来演示下面的问题 . 在代码中，除了 cosine 函数调用之外，一切都有效 . 它给出了错误的结果 . 最奇怪的是如果我取消注释下面的注释行（结果与返回的值没有任何关系），结果会发生变化 . （正如我在几个SO问题中看到的那样，这看起来像是无效内存访问的结果，但无法解决任何问题） program...