程序员经验分享-hwhale

Fortran 中等级（形状）未知的子例程参数

2023-11-22

我想知道如何在 Fortran 中最好地处理采用未知等级参数的子例程。例如：

Real * 8 :: array1(2,2),array2(2,2,3)

call mysubroutine(array1)
call mysubroutine(array2)

就目前而言，我总是需要修复子程序中的形状（等级数）。

例如，内部子程序随机数(array） 可以做。 （但也许它不是用 Fortran 编码的？）


您必须为每个数组等级编写一个特定的子例程，但您创建一个通用接口，以便您可以对所有等级使用通用调用，而不必找出要调用的特定子例程。示例代码位于如何编写“分配”的包装器

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

Fortran

RANK

Fortran 中等级（形状）未知的子例程参数 的相关文章

  • Fortran 指针多态性

    我正在尝试使用指针在对象之间创建链接 使用 Fortran 下面是代码片段 module base pars module type abstract public base pars end type end module module

  • 使用 Fortran (CLFORTRAN) 在 OpenCL 中将两个选项作为参数传递

    当我的主机程序采用 C 语言时 我可以传递两个选项作为 OpenCL 函数的参数 例如 我可以通过两个 标志到clCreateBuffer像这样的函数 clCreateBuffer context CL MEM READ ONLY CL M

  • 编译错误：无法打开模块文件

    我有这个代码 PROGRAM xfit driver for routine fit USE nrtype USE nrutil USE nr USE ran state ONLY ran seed IMPLICIT NONE INTEGE

  • R 如何进行精确的 wilcoxon 秩和检验？

    我阅读了 R 中的文档wilcox test 并想要确定 计算机如何wilcox test 文档说 当样本数量很小时 它会精确地进行测试 而不是使用正常的近似值 它使用哪些表来精确地执行此操作 wilcox test default 隐藏

  • FORTRAN 写()

    在开始之前 我必须先声明一下 我是 FORTRAN 的新手 我正在维护 1978 年的一段遗留代码 它的目的是从文件中读取一些数据值 处理这些值 然后将处理后的值输出到另一个文本文件 给出以下 FORTRAN 代码 INTEGER NM S

  • Fortran if stop 需要 endif 吗？

    在 fortran 90 中 if stop 语句是否需要结束 endif example if foo eq 1 stop do some stuff do some stuff 是循环的一部分还是 stop 意味着程序结束时 endif

  • gfortran 未定义的引用

    我正在尝试编译一个依赖很多东西的程序 我使用并修改了提供的 makefile 来代表我的计算机设置 但在编译的最后一步中我不断收到许多未定义的引用 导致问题的命令行是 gfortran o cosmomc ParamNames o Matr

  • 如何调用模块中子程序内部的函数？

    我有一个包含子例程的模块 该子例程又包含一个函数 我说use themodule在我的主程序中 我可以call thesubroutine 但是如何访问子例程中包含的函数呢 代码如下所示 module useful integer para

  • 将数组从 .npy 文件读入 Fortran 90

    我使用 Python 以二维数组 例如 X 的形式生成一些初始数据 然后使用 Fortran 对它们进行一些计算 最初 当数组大小约为 10 000 x 10 000 时 np savetxt 在速度方面表现良好 但是一旦我开始增加数组的维

  • 尝试读取名单后返回的状态不是预期的

    我想从文件中读取名单 但在名单不存在的情况下实现捕获选项 从我读到的here http msg ucsf edu local programs IBM Compilers Fortran html pgs lr76 htm我期望状态为 84

  • 识别操作系统

    我在 Intel 编译器上的 Fortran 90 代码取决于它运行的操作系统 例如 if OS win7 then do X else if OS linux then do y end if 我如何以编程方式执行此操作 您可以使用预处理

  • Fortran gfortran linux 中的“分段错误（核心转储）”错误

    我正在创建一个程序 该程序将分析目录中的文件 fits 然后它将在另一个目录中创建另一个文件 txt 它只是一个转换器 当我尝试执行该程序 编译正常 时 它给了我一条错误消息 程序收到信号 SIGSEGV 分段错误 无效的内存引用 此错误的

  • forrt1：严重（170）：程序异常 - 堆栈溢出

    并提前感谢您的帮助 我已经编译了一个程序 不是我编写的 它在 Mac 上运行得很好 但是当我尝试在 Windows 上执行该程序时 在程序开始执行后不久 我收到以下错误消息 forrt1 严重 170 程序异常 堆栈溢出 我不是 ifort

  • GO TO 语句 - Fortran 到 Matlab

    我一直在努力将此网格搜索代码从 Fortran 转换为 Matlab 但是我无法正确合并 GO TO 语句 我正在尝试使用 while 循环 但我认为我需要其他东西来结束搜索 任何帮助将不胜感激 vmax 1 0E 15 amax G 1

  • Fortran 内部计时例程，哪个更好？ cpu_time 或 system_clock

    当对 FORTRAN 程序进行计时时 我通常只使用命令call cpu time t 然后我偶然发现call system clock count count rate count max 这似乎做了同样的事情 然而 在更加困难的庄园里 我

  • 这些双精度值如何精确到小数点后 20 位？

    当精度是一个问题时 我正在测试一些非常简单的等价错误 并希望以扩展双精度执行操作 这样我就知道答案在 19位数字中 然后以双精度执行相同的操作 其中第 16 位会有舍入误差 但不知何故 我的双精度算术保持了 19 位精度 当我在扩展双精度中

  • 带有过程参数的通用类型绑定过程

    我正在尝试编写一个通用的类型绑定过程 它将不同的回调函数作为参数 当编译以下代码 使用 ifort 12 1 3 时 我收到以下警告 module test type a type contains procedure t s gt at

  • MPI_Gather 在最基本的代码中给出了 seg 错误

    我正在开发一个更大的程序 但我在 MPI Gather 上遇到了困难 我编写了一个最小的示例代码 请参见下文 program test use MPI integer ierr rank size double precision allo

  • 如何从 Fortran 调用 R 函数？

    根据http gallery rcpp org articles r function from c http gallery rcpp org articles r function from c Rcpp 允许用户从 C 调用 R 函数

  • sql server 按组排名

    问题看似简单 但我却无法理解 这是针对 sql 服务器的 what I have in a table What I need as a output cksum id cksum id 2162514679 204 2162514679

随机推荐

  • preg_match_all 如何获得*所有*组合？甚至重叠[重复]

    这个问题在这里已经有答案了 PHP 正则表达式函数有没有办法获取正则表达式的所有可能匹配项即使这些匹配重叠 例如获取所有 3 位子字符串 d 3 您可能期望得到 123456 gt 123 234 345 456 但 preg match

  • Objective-C 错误：初始化元素不是常量

    为什么编译器在提供的代码上给出以下错误消息 初始化器元素不是常量 相应的C C 代码在gcc下完美编译 import

  • 如何在 XAML 中将颜色转换为画笔？

    我想将 System Windows Media Color 值转换为 System Windows Media Brush 颜色值通过数据绑定到 Rectangle 对象的 Fill 属性 Fill 属性采用 Brush 对象 因此我需要

  • python 获取调用函数的当前变量

    def foo a 1 b 2 dir prints a b bar der bar foo pointer print dir foo pointer should print a b 我试图使用bar sys modules name

  • Matplotlib 动画在 PyCharm 中不起作用

    我发现了各种使用 matplotlib 生成动画的短文件 一般来说 它们在从命令行运行时工作正常 但在 PyCharm 中我只能得到一个静止帧 我问同样的问题Matplotlib 在 IDE PyCharm 中使用时不会更新绘图 那里发布了

  • WPF - FlowDocument - 将表拉伸到整个宽度？

    我有一个包含任意数量的列和行的数据表 我正在尝试打印它们 到目前为止 我所拥有的最好的运气是将数据放入表中 然后将该表添加到 FlowDocument 中 到目前为止 一切都很好 我现在遇到的问题是表格只 想要 占据文档宽度的大约一半 我已

  • C语言中变量名是如何存储的？

    我想问C中的变量是如何存储在C中的 为了更清楚 请考虑以下代码 int main int a 1 b b a 2 return 0 例如 这里的内存 C 存储变量位置的名称 eg if a 0x12A7 认为 b 0x123B1 那么如何以

  • 将文件转换为 Base64 函数输出

    Public Function ConvertFileToBase64 ByVal fileName As String As String Dim ReturnValue As String If My Computer FileSyst

  • 如何清除 pyqt QTableWidget？

    我想清除我的 QTableWidget 首先 我在 qcombobox 中选择一个用户 然后单击 qpushbutton 并从数据库记录中填充它 当我选择其他用户并单击 qpushbutton 添加数据时 我尝试使用以下方法清除 self

  • 裁剪 UIImage

    我有一些调整图像大小的代码 这样我就可以获得图像中心的缩放块 我用它来拍摄UIImage并返回图像的小方形表示 类似于照片应用程序的相册视图中看到的内容 我知道我可以使用UIImageView并调整裁剪模式以达到相同的结果 但这些图像有时会

  • 在主线程中运行代码

    这与许多问题相似 但不是rly 我需要类似的东西BeginInvoke适用于 Winforms 但不仅仅适用于 winforms 所以我需要单一方法 适用于任何类型的应用程序 所以我打电话 void ExecuteInMainContext

  • cpp 空数组声明

    你好 我有以下测试代码 我对 cpp 感到困惑 如果你在library h中声明一个带有空元素子句的数组 编译器会选择什么 它也没有抱怨 我使用 Cygwin 在library cpp中 我将值分配给两个元素 编译器是否假设一个包含一个元素

  • Nullable DateTimes 和 AddDays() 扩展

    我有一个日期时间变量 可以为 null 或日期时间 我认为可以为 null 的 DateTime 类型可以工作 但我收到一条错误消息 告诉我说 Nullable

  • 为整个应用程序应用圆角

    如何实现应用于整个视图的圆角 如屏幕截图所示 请注意 导航栏和键盘角都是圆角的 我尝试过设置cornerRadius 10 and masksToBounds YES对彼此而言window layer and window rootView

  • Django - 导入错误：没有名为 *.urls 的模块

    我正在努力通过官方 Django 教程并使用 Django 版本 1 6 1 Python 2 7 6 稍微调整以满足我自己的需要 我现在正在映射 URL 但当很明显有一个模块内有一个适当命名的文件时 我总是收到 没有名为customers

  • 使用带有回调函数的 array_filter 删除空数组元素

    我正在尝试使用函数 array filter 删除数组中的空元素 当我使用这样的外部回调时 function callback a return empty a arr array abc ghi res array filter arr

  • 将实时摄像头视图嵌入 UIView 中

    我一直在尝试找出如何在 iPhone 中嵌入一个小型实时摄像头视图UIView无济于事 我什至无法在网上找到任何样本 我知道这是可行的 但我什至不知道从哪里开始 似乎有很多例子表明其他人已将视图添加到相机的完整屏幕视图中 但反之则不然 看起

  • 在 WPF 中制作图表的最佳方法是什么？ （或者一般来说这也适用于 WPF）

    所以我正在 WPF 中制作一个软件 我希望能够根据我存储的数据制作图表 只是带有 x 和 y 轴的线图 理想情况下 我希望它们具有优雅 简洁的风格 我知道 WPF 没有附带图表 并且我在 WinForms 项目中尝试过 ZedGraph 但

  • 如何向现有 CSS 类添加新规则

    在下面的代码中 我已经说明了我想要实现的目标 通过向现有 CSS 类添加新规则来更改它 h4 hello h4 这是针对在不同尺寸的屏幕上运行的站点的预处理

  • Fortran 中等级（形状）未知的子例程参数

    我想知道如何在 Fortran 中最好地处理采用未知等级参数的子例程 例如 Real 8 array1 2 2 array2 2 2 3 call mysubroutine array1 call mysubroutine array2 就

热门标签