gfortran编译Fortran数组问题

最新推荐文章于 2024-01-08 19:52:17 发布
转载 最新推荐文章于 2024-01-08 19:52:17 发布 · 543 阅读 · 2 ·
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/renshengbuduanxuexi/p/5127260.html

本文深入探讨了Fortran编程语言中数组复制存在的问题，并提供了正确的使用reshape函数解决的方法，通过实例展示了如何正确地进行数组重塑。

可能是IVF(inter visual fortran)比LF（lahey Fortran）编译器比较严格的原因

real :: A(L,M) = (/ 1,2,3,4,5,6,7,8,9,10,11,12 /)
real :: B(M,N) = (/ 1,2,3,4,5,6,7,8 /)

这种复制方式不正确，要用到reshape函数

integer :: a(2,4)=reshape([1,2,3,4,5,6,7,8],[2,4])
integer :: b(4,3)=reshape([1,2,3,4,5,6,7,8,9,10,11,12],[4,3])

转载于:https://www.cnblogs.com/renshengbuduanxuexi/p/5127260.html

gfortran编译Fortran程序
zs1996sjtu的博客
11-08 2239
content in test.f90： character(20)::a,b character(40)::c a='hello' b='there' c=a//b print *,c end compile： gfortran -c test.f90 link： gfortran -o test test.o run: ./test output: hello there
fortran 虚拟数组不匹配解决办法
whysnlc的专栏
01-24 6445
error #7836: If the actual argument is scalar, the corresponding dummy argument shall be scalar unless the actual argument is an element of an array that is not an assumed-shape or pointer array, or a
递归调用遇到的问题
jiangbinbin的博客
06-28 922
//递归方法： privateList<DepartmentUtil> queryAllDepat(List<DepartmentUtil>departmentUtils,String enterpriseId,String departmentId) {         // = new ArrayList<DepartmentUtil>();     ...
用gfortran编译C和Fortran
yzhuang的专栏
01-14 1776
gfortran 编译 C和Fortran 混合编程
Fortran 当数组大小不一样时，会出现什么情况。
kunpengku
03-31 1859
如果 数组 arr 是2*2的，如 1,3 2,4调用子程序 fun()但是子程序里面的数组的长度和外面的数组不匹配时， 就会可能不是你想要的结果。这里分成两种情况，情况1， 函数里面比外面的小。 如 将 2*2 的数组，传入 3*3的数组。 2*2是这样的： 1,3 2,4那么 3*3就会变成 1，4，0 2，0，0 3，0，0这是因为数组中数据的存放导致的。情况2，将大数组
【gfortran编译指南】：掌握gfortran编译过程中的常见问题及解决方案
gfortran编译器作为科学计算和工程领域广泛应用的工具，其编译流程、优化技术以及调试方法对于提高程序性能和解决编译问题至关重要。本文对gfortran编译器进行了全面概述，详细介绍了安装、配置、基本编译命令以及...
详细的Fortran基础教程.docx Fortran中的数组是非常强大的数据结构
02-10
- 使用 Fortran 编译器（如 `gfortran`）编译源文件。 ```bash gfortran your_program.f -o your_program ``` 3. **运行** - 运行编译后的可执行文件。 ```bash ./your_program ``` #### 四、进阶主题 1...
【gfortran与Fortran90标准】：深入理解Fortran90的特性和改进
本文首先回顾了Fortran的发展历史及其语言进化，然后深入探讨了Fortran90语言的核心特性，包括基本语法、数据结构、数组编程以及并行编程特性。接下来，文章重点介绍了Fortran90的面向对象编程特点，如类的定义、...
Ubuntu 24.04 上实现 Python 调用 Fortran
09-11
4. 编译Fortran代码：使用GFortran编译器将Fortran源代码编译成共享库。例如，使用命令`gfortran -shared -fPIC -o libmodule.so module.f90`可以将`module.f90`编译成名为`libmodule.so`的共享库。 5. 在Python中...
批处理fortran77转fortran90格式
11-23
而Fortran 90则引入了大量增强，如模块化、面向对象编程、可变尺寸数组等，使其更符合现代编程需求。 在面临需要在Fortran 77代码中添加新功能时，如果这些功能在F77中不可用，如可变数组，就需要将代码升级到...
gcc编译器（F77 G77）
09-17
gcc编译器（F77 G77）
fortran用法小结
04-29
fortran语言的用法，关键实用点，使用技巧。
Fortran77编译错误
yujiflying的专栏
01-12 3836
遇到了fortran77编译错误，自己上网查了很长时间，算是初步解决了数组维数的问题，不过还有错误，需要进一步解决。 下面列出具体问题和解决办法。 原有的f77程序，在我的虚拟机ubuntu系统下编译出错，上面是部分makefile代码，我将FFLAGS路径修改后还是有问题，具体问题如下： l****@ubuntu:~/Downloads/soft3$ make f77 -O2
linux f95编译器,gfortran如何告诉我是否正在编译f90或f95代码？
weixin_35135581的博客
05-02 893
gfortran可以从文件扩展名中猜出某些东西;如果文件的扩展名为.f，.f90，f95，.f03或.f08，则它将采用具有适当标准的固定(.f)或自由格式。但你可以强制它使用选项-std = f2003编译(比方说)fortran2003代码。例如，来自documentation，-std=stdSpecify the standard to which the program is expec...
gcc的进阶用法与以及第三方代码的了解与使用
mistake11a的博客
10-13 865
用 gcc 生成 .a 静态库和 .so 动态库 1.编辑生成例子程序 hello.h、hello.c 和 main.c 使用vim编译器创建上述三个文件。 hello.h #ifndef HELLO_H #define HELLO_H void hello(const char *name); #endif//HELLO_H hello.c #include <stdio.h> void hello(const char *name) { printf("Hello %s!\n",
gcc,gfortran和g++的编译原理的简单介绍
穷则独善其身，达则兼济天下。
09-03 4985
gcc,gfortran和g++的和编译原理的简单介绍 gcc,g++的介绍 GCC：最初的全名：GNU C Compiler．随着GCC支持的语言越来越多，它的名称就变成了GNU Compiler Collection。 gcc是GCC中的GUN C Compiler（C 编译器） g++是GCC中的GUN C++ Compiler（C++编译器） gfortran是GCC中的fortran编译器． 对于 .c和.cpp文件，gcc分别当做c和cpp文件编译（cpp的语法规则比c的更强一些） 对于
gfortran: error: unrecognized command-line option ‘-f90=ifort’
m0_46808930的博客
03-24 2972
我试图手动输入该命令，以确保它与makefile没有任何关系，但我得到了同样的错误。我尝试寻找原因并解决。
Win10 编译运行Fortran77程序，开发环境搭建
eloudy的专栏
11-04 7542
有个朋友说我讲的blas中的fortran语法有个地方不正确，非说他自己的理解是对的。 我说你拿出证据来才行。他说自己不知道怎么编译f77程序——好吧，那还这么自信呀^^ 首先，可以使用intel的 parallel studio套件来编译运行f77； 其次，如果嫌intel的套件太大了，可以任何当前版本的gfortran编译f77程序。既可以使用较流行的code blocks 内部配搭MinGW，也可以直接单独使用MinGW。加上code blocks只是为了能有个IDE环境，方便编辑代码和调试。
【SWAT】 最简便的SWAT源码编译方法（gfortran）
```On Earth, Be Water, By Coding```
01-08 2291
相比于OneAPI全家桶，使用gfortran直接编译swat会非常简单方便，不会Fortran，也能编译成功~
fortran虚拟数组不匹配的
最新发布
05-10
<think>嗯，用户遇到了Fortran中虚拟数组不匹配的问题，这应该是在子程序或函数调用时，实际参数和虚拟参数的数组声明不一致导致的。首先，我需要回忆一下Fortran中关于参数传递的规则。Fortran在传递数组时，可以通过显式形状数组、假定形状数组或者可调整数组来声明虚拟参数。如果实际参数和虚拟参数的维度、形状或者大小不匹配，就会引发错误。 接下来，我需要考虑常见的错误原因。比如，虚拟数组的维度与实际数组不同，或者使用了错误的声明方式。例如，在子程序中声明了一个二维虚拟数组，但实际传递的可能是一维数组，或者维度顺序相反。此外，Fortran对大小写不敏感，但其他语法细节如数组上下界也可能影响匹配。 然后，解决方案可能包括检查虚拟数组的声明方式，确保与实际数组的维度一致。例如，使用假定形状数组（如`integer, dimension(:,:) :: arr`）而不是显式形状数组（如`integer, dimension(5,5) :: arr`）。同时，注意在接口明确的情况下使用假定形状数组，可能需要模块或接口块来提供显式接口。 另外，用户可能需要检查是否在子程序中正确地处理了数组的上下界，或者是否在传递数组切片时导致形状变化。例如，传递`arr(2:5,3)`这样的切片会得到一个一维数组，而子程序如果期望二维数组就会出错。 还有，Fortran的数组内存布局是列优先的，如果实际参数和虚拟参数的存储顺序不一致，也可能导致问题，但这种情况可能更多涉及性能而非编译错误。不过，用户可能在跨语言调用时遇到类似问题，但这里的问题可能更基础。 最后，用户可能需要确保编译器选项正确，比如检查是否启用了严格的类型检查，或者是否有隐式接口导致编译器无法检测到不匹配。提供示例代码会帮助用户对照检查自己的情况，比如正确和错误的声明方式对比，以及如何修正。 总结下来，解决虚拟数组不匹配的问题需要从声明方式、维度一致性、接口显式性以及数组切片处理等方面入手，逐步排查可能的原因，并调整代码以符合Fortran的参数传递规则。</think>在Fortran中解决虚拟数组（虚参）与实际数组（实参）不匹配的问题，需要从参数传递规则、数组声明方式和接口一致性三个层面排查： ### 一、常见错误原因 1. **维度不一致** 子程序声明为二维数组，实际传递一维数组 ```fortran ! 错误示例 subroutine sub(arr) real :: arr(3,3) ! 虚拟数组是二维 end subroutine real :: a(9) call sub(a) ! 实际数组是一维 ``` 2. **大小声明方式错误** 使用显式形状数组(`dimension(n,m)`)但尺寸不匹配 ```fortran subroutine err_case(arr) real :: arr(5,5) ! 显式声明5x5 end subroutine real :: a(4,4) call err_case(a) ! 4x4实际数组无法匹配5x5虚拟数组 ``` 3. **接口不明确** 当使用假定形状数组(`dimension(:,:)`)时，缺少显式接口 ```fortran ! 错误示例（缺少interface） subroutine assumed_shape(arr) real :: arr(:,:) end subroutine ``` ### 二、解决方案 #### 方法1：使用假定形状数组（推荐） ```fortran module array_mod contains subroutine correct_sub(arr) real, dimension(:,:) :: arr ! 假定形状数组 print *, '数组维度:', shape(arr) end subroutine end module program main use array_mod real :: a(2,3) call correct_sub(a) ! 正确传递二维数组 end program ``` * 必须通过`module`或`interface`提供显式接口[^1] #### 方法2：显式传递数组尺寸 ```fortran subroutine explicit_size(arr, n, m) integer :: n, m real :: arr(n,m) ! 显式形状数组 ! 操作arr(1:n,1:m) end subroutine real :: b(4,5) call explicit_size(b, 4, 5) ! 显式传递维度参数 ``` #### 方法3：处理数组片段 当传递数组片段时确保维度匹配： ```fortran real :: matrix(10,10) ! 正确传递二维片段 call correct_sub(matrix(2:5, 3:8)) ! 错误示例（变成一维数组） call correct_sub(matrix(:, 3)) ! 第二维度被压缩 ``` ### 三、验证工具 1. 启用编译器严格检查： ```bash gfortran -fcheck=all -Wall -Wextra program.f90 ``` 2. 使用`shape()`函数验证维度： ```fortran print *, '实际数组维度:', shape(actual_array) ```
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值