如何在Fortran子例程中使用可分配数组？
在Fortran子例程中使用可分配数组可以通过以下步骤实现：
- 声明可分配数组：在子例程中，首先需要声明一个可分配数组。可分配数组的声明需要使用
allocatable关键字，并指定数组的维度。 - 分配内存空间：在子例程中，使用
allocate语句为可分配数组分配内存空间。allocate语句需要指定数组的维度和数据类型。 - 使用可分配数组：在子例程中，可以像使用普通数组一样使用可分配数组。可以对可分配数组进行赋值、读取和修改操作。
- 释放内存空间：在子例程结束时，需要使用
deallocate语句释放可分配数组所占用的内存空间。
以下是一个示例代码，展示了如何在Fortran子例程中使用可分配数组：
subroutine sub_example(n)
implicit none
integer, intent(in) :: n
real, allocatable :: arr(:)
! 声明可分配数组
allocate(arr(n))
! 使用可分配数组
arr = 0.0
arr(1) = 1.0
arr(n) = 2.0
! 打印可分配数组的值
print *, arr
! 释放内存空间
deallocate(arr)
end subroutine sub_example在上述示例中，sub_example是一个Fortran子例程，接受一个整数参数n。在子例程中，首先声明了一个可分配数组arr，并使用allocate语句为其分配了n个元素的内存空间。然后，对可分配数组进行了赋值操作，并打印了数组的值。最后，使用deallocate语句释放了可分配数组所占用的内存空间。
这是一个简单的示例，展示了如何在Fortran子例程中使用可分配数组。在实际应用中，可分配数组可以用于处理动态大小的数据结构，提高代码的灵活性和可扩展性。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网平台：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发：https://cloud.tencent.com/product/mobdev
- 腾讯云区块链服务：https://cloud.tencent.com/product/tbaas
- 腾讯云元宇宙：https://cloud.tencent.com/product/mu
相关·内容
1回答
可分配数组还是指针数组？
、、、、
我正在用Fortran写一段新代码，在使用可分配数组还是指针数组之间犹豫不决。我在某处读到可分配数组比指针数组有显著的优势：
1)效率更高，因为它们在内存中始终是连续的
2)不可能发生内存泄漏
有人能证实这一点吗？你建议使用哪一个？这两个备选方案在代码执行速度方面的结果是什么？
浏览 2提问于2010-02-20得票数 13
回答已采纳
我想将可分配数组的一部分传递给子例程。源阵列由三个指标组成。子例程期待一个包含两个索引的数组。假设我想对源数组的第五个索引进行操作。我做了这样的事，但最后一句被抓住了：
module lots_of_stuff
...
contains
subroutine process_points(points)
integer, allocatable, intent(inout) :: points(:,:)
! do stuff
end subroutine
end module
program foo
use lots_of_stuff
integer, allocatable :: inpo
浏览 2提问于2018-12-03得票数 3
回答已采纳
2回答
我想在fortran90中填充一个大小未知的数组。这是MATLAB中的等效代码：
for i=1:10
A[i] = i
end
我知道我可以传递大小，但是如何在不传递数组大小的情况下在fortran90中做到这一点。我读到我们可以使用指针，但我真的不知道如何处理指针
浏览 6提问于2017-07-11得票数 0
回答已采纳
1回答
有没有一种方法可以在堆栈上的Fortran 中创建可变大小的数组？分配()不适合我，因为它将数组放置在堆上。这可能会导致并行化的问题(请参阅我的另一个问题： )。当然，一些智能内存管理可以解决这个问题，但是Fortran中的内存管理听起来很傻。
本质上，我正在寻找一个与C中的Fortran等价的元素：
scanf("%d", N);
int myarray[N];
重新迭代:我不想
Integer, PARAMETER :: N=100
Integer, Dimension(N) :: myarray
因为这决定了编译时的数组大小。我也不想
Integer, Dimension
浏览 4提问于2011-07-07得票数 13
回答已采纳
2回答
我知道在Fortran中我可以声明一个由N个元素组成的数组，如果N之前被声明为一个parameter (因此定义为某个值)。
另一方面，我知道通过使用子例程get_command_arg，我可以让程序从命令行接受参数。
我的问题是：
当从命令行调用程序时，我可以以某种方式声明一个由命令给出的多个元素组成的数组吗？
我正在寻找类似于命令行的东西：
./main -30
main.f03会从下面这样的内容开始：
integer, parameter :: N = get_command_arg(1)
real :: x(N) ...
我尽量不将数组定义为可分配的。
浏览 0提问于2017-11-24得票数 1
我想知道Fortran中是否存在派生类型的类似构造函数的机制，这样，每当创建一个类型的实例时，构造函数就会自动调用。我读过的问题，但对我来说不满意。
完整性示意图示例：
module mod
integer :: n=5
type array
real, dimension(:), allocatable :: val
contains
procedure :: array()
end type
subroutine array(this)
allocate(this%val(n))
end subroutine
end module
现在，当我创建一个type
浏览 0提问于2018-10-05得票数 6
回答已采纳
我正在尝试适当地构建我的Fortran程序。我有一个程序GridGeneration.f90生成我的网格网格。我想在我的主程序中控制网格的大小，也就是网格大小参数N_x和N_y。
module MySubsAndParameters
implicit none
integer :: N_x, N_y
include 'GridGeneration.f90'
code
end module MySubsAndParameters
program main
use MySubsAndParameters
N_x = 100
N_y = 50
code
end pro
浏览 2提问于2013-05-12得票数 0
我的fortran 95子例程的参数是一个假设的形状数组，意图是inout：
the_subroutine(my_argument)
real, dimension(:,:), intent(inout) :: my_argument
(...)
在主程序中，我有一个可分配的数组。我给它分配，并重命名索引。然后调用子例程并将(正确分配的)数组传递给子例程：
allocate(the_array( 5:1005 , 5:1005 ))
call the_subroutine(my_argument=the_array)
子例程执行某些计算，并用值填充数组。在--子例程结束之前的最后一行--中，我
浏览 5提问于2016-12-07得票数 2
回答已采纳
1回答
我想使用一个数组Ar(-3:3，5)，它是模块全局中的一个可分配变量，并在一个子例程中分配它，然后在下一个子例程中访问它(参见下面的代码片段)。第二个子例程中的索引是从-3到3和从1到5，还是必须在子例程中指定？
module global
real, allocatable(:,:) :: Ar
end module global
subroutine allocateAr
use global
ALLOCATE(Ar(-3:3, 5))
end subroutine allocateAr
subroutine useAr
use global
Ar(-
浏览 0提问于2013-04-29得票数 2
回答已采纳
4回答
现代Fortran中的语法是什么，可以在不给数组长度的情况下声明数组并让编译器根据声明确定数组的长度？
以下示例不工作：
program ONE
real :: V = [1,2,3]
end program
program ONE
real :: V(*) = [1,2,3]
end program
但是这个例子确实有效：
program ONE
real :: V(3) = [1,2,3]
end program
为什么编译器不能从声明中计算所需的长度？有办法这样做吗？
浏览 5提问于2012-02-20得票数 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
回答已采纳
在将数组从Fortran传递给c函数时，我遇到了一个问题:在fortran中，数组定义为
REAL(KIND=real_normal) , DIMENSION(:), ALLOCATABLE :: array
call cFunc(array)
如果将cFunc定义为
void cFunc(double *data){...}
则数据只包含“垃圾”值。在这种情况下，问题在哪里？(使用整数可以很好地解决这个问题)。
谢谢。编辑:我的平台:编译器: VS 2008，英特尔编译器11版操作系统: Win7
编辑2:我像这样定义了c-function的接口(代码简化为一个元素，这会造成问题，real
浏览 2提问于2010-07-19得票数 2
回答已采纳
我尝试向由编写的添加一个过程，该过程在Fortran2003中实现了一个通用链表。
subroutine list_as_array(self, arrayOut)
class(list),intent(inout) :: self
class(*),dimension(1:self%length),intent(out) :: arrayOut
integer :: i
type(list_node), pointer :: nodeIter
nodeIter = self%first
do i = 1,self%length
浏览 0提问于2018-04-03得票数 2
3回答
我可以在Fortran ( 77标准)中创建和使用动态二维数组。现在，我想用Fortran程序中的C函数(假设使用'malloc')创建我的动态二维数组，并能够通过Fortran程序访问它。在Fortran中，我还希望能够像(1:n，2)或a(1,2)那样执行smth，并且还能够从Fortran子例程中传递和检索数组。请您给我举个例子，并花点时间解释一下(如果可能的话，我真的很感激)记忆将如何对齐？非常感谢！另外，如果二维不能直接工作，我可以在C函数中创建一维数组，但可以从Fortran访问它，因为它是一个二维数组……谢谢！
浏览 0提问于2012-06-30得票数 4
回答已采纳
考虑以下子例程
subroutine myProc(m,n,flag,X)
Integer, intent(in) :: m,n
logical, intent(in) :: flag
real(8), intent(out), allocatable :: X(:,:)
if (flag) then
allocate(X(m,n))
! some more code here
else
allocate(X(m-1,n))
! some more code here
end if
end subroutine myProc
!!!!!!!!!!!!!!!!!!!
另外，如
浏览 7提问于2018-01-27得票数 5
1回答
在fortran中，可以使用allocated语句检查是否分配了可分配的数组：
program test_allocated
integer :: i = 4
real(4), allocatable :: x(:)
print *, 'before allocation of x'
print *, 'allocated(x)'
print *, allocated(x)
allocate(x(i))
print *, 'after allocation of x'
print *, 'allocat
浏览 12提问于2017-08-27得票数 1
我希望在Fortran中创建具有多个分配级别的交错数组。但是，对于构造函数和析构函数过程，我的错误是“泛型‘new’at (1)没有特定的子例程”。
我在Fortran是个新手。我认为问题是我的第一个论点"M1“不合适。然而，我似乎不知道为什么。
module JaggedArrayModule
implicit none
save
private
public JaggedArray, New, Delete
type JaggedArray
private
real, allocatable :: vector(:)
浏览 4提问于2020-05-11得票数 1
回答已采纳
我试图编译一个fortran90库(特别是)，以便从python (3.4.0)调用它。通常，在这种情况下，我会为f2py编写一个包装器，并将其称为一天，但是库本身使用派生类型，这似乎会导致f2py失败。完整的stderr是，但相关行是
getctype: No C-type found in "{'typename': 'optim_type', 'typespec': 'type'}", assuming void.
基于的另一个选项是使用ctype，这也会失败。
Python 3.4.0 (default,
浏览 0提问于2015-08-25得票数 7
我在Fortran中编写了Knuth洗牌程序如下
subroutine knuth_shuffle(array, length)
implicit none
integer :: length
integer :: array(length)
integer :: randomIndex
integer :: temp
do i = 1, length - 2
randomIndex = floor(randomBetween(real(i), real(length)))
temp = array(i)
浏览 4提问于2017-09-21得票数 0
回答已采纳
2回答
我需要摆脱Fortran程序使用的一些库，所以我必须在程序中创建库中的所有子程序。
其中一个子程序是内存分配，它是由C语言完成的。
我为分配创建了自己的子例程
MODULE ARRAY_ALLOCATION
CONTAINS
SUBROUTINE ARRAY_ALLOCATE (ARR, ARR_SIZE, ARR_IDX, CODE_RET)
! DECLARE AN ALLOCATABLE PARAMETER
INTEGER, ALLOCATABLE, INTENT (INOUT) :: ARR(:)
I
浏览 5提问于2016-08-19得票数 2
回答已采纳
1回答
我需要从Fortran程序中的文件中读取大量数据。数据的大小是可变的，所以我想动态地分配数组。我的想法是创建一个子例程来读取所有数据并分配内存。该程序的一个简化版本是：
program main
implicit none
real*8, dimension(:,:), allocatable :: v
integer*4 n
!This subroutine will read all the data and allocate the memory
call Memory(v,n)
!From here the program will have oth
浏览 3提问于2013-08-02得票数 4
回答已采纳
我有以下Fortran代码的这一部分，在allocate(temp)中，valgrind表示绝对是内存丢失。我在分配这些数据的方式上有什么错误吗？
subroutine insert_linked_list_grids(l,ncell,nclust,corner,headlev)
implicit none
integer :: ig, jg, kg, k, l, m1, m2, m3, nx, ny, nz, ncell, &
nclust, bsaux, bnaux, bwaux, beaux, bbaux, btaux
double
浏览 0提问于2014-01-20得票数 0
1回答
我可以用可分配数组来定义用户定义的数据类型。
当我们仍然在相同的子例程中时，分配是完美的。但我不知道如何将这种类型的用户定义的数据类型作为子例程参数传递。
Intel编译器显示错误# 6530：
"Error 1 error #6530: The array spec for this component must be of explicit shape and each bound must be an initialization expression."
下面共享了代码以显示错误。它是用FORTRAN 77编写的。我在FORTRAN 77中工作，因为我必须在只接
浏览 1提问于2017-03-01得票数 2
此代码在英特尔编译器上运行时工作。但是，当使用pgi运行时，它会在列出的子例程中的*和**之间设置错误。我用的是pgi编译器和-mcmodel-medium。我需要使用PGI开始对这段代码使用openacc。有什么可能是错的吗？提前感谢！
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!Reading in trajectories from 'md.traj' file
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
浏览 1提问于2014-06-20得票数 2
2回答
我的主要问题是，为什么数组会做如此奇怪的事情，以及是否有任何方法以“干净”的方式执行以下操作。
我目前有一个C程序foo.c通过dlopen/dlsym接口Fortran程序bar.f90，大致如下所示：
foo.c:
#include <dlfcn.h>
#include <stdio.h>
int main()
{
int i, k = 4;
double arr[k];
char * e;
void * bar = dlopen("Code/Test/bar.so", RTLD_NOW | RTLD_LOCAL);
void (*allocA
浏览 6提问于2012-08-13得票数 3
回答已采纳
3回答
用指针数组查找特定索引
、、、、
我对Fortran相对来说是个新手，几个小时以来我一直在为一件事绞尽脑汁：
我想编写一个子例程，用于为实际的一维数组中的特定元素寻找索引(作为输入给例程)。
我已经生成了一个包含100个随机reals的数组，名为arr，现在我希望确定那些元素的索引，这些元素大于一个实际值min，后者也被传递给子例程。
另外，最后我希望有一个指针在最后分配，有人说这比使用包含索引的数组indices更好。
我只是没有找到解决这个问题的方法，我有以下方法：
SUBROUTINE COMP(arr, min)
real, intent(in) :: arr(:)
real
浏览 4提问于2014-01-18得票数 1
回答已采纳
我可以用Fortran 95编译器编译Fortran 90文件吗？Fortran 95似乎有很多功能，但Fortran 90没有。
浏览 1提问于2011-05-17得票数 4
回答已采纳
我有一个带有可分配数组A的Fortran程序，如下所示：
real, dimension(:,:) allocatable :: A
...
allocate(A(x0:x1;y0:y1))
此数组最终作为参数传递给子例程，如下所示
subroutine my_subroutine(arr)
real, dimension(x0:x1,y0:y1) :: arr
...
end subroutine my_subroutine
我想用在C库中实现的自定义内存分配函数my_alloc替换Fortran中的allocate语句。我将第一个代码示例更改为：
type(c_ptr) ::
浏览 0提问于2012-02-21得票数 4
我正在阅读一段Fortran代码，其中有一点让我感到困惑。
有一个子例程，比如说
SUBROUTINE SSUB(X,...)
REAL*8 X(0:N1,1:N2,0:N3-1),...
...
RETURN
END
它在另一个子例程中通过以下方式调用：
CALL SSUB(W(0,1,0,1),...)
其中W是一个“工作数组”。W中的一个特定值似乎被传递给了X，然而，X被标注为一个数组。到底怎么回事？
浏览 1提问于2010-03-23得票数 4
回答已采纳
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
假设我们有这个变量定义
Real*8, Dimension(:), Allocatable :: dblA
Allocate (dblA(1000))
现在我把这个子例程称为：
Call MySub(dblA)
其中：
Subroutine MySub(dblA)
Real*8, INTENT(Out), DIMENSION(1000) :: dblA
End
这种做法的副作用是什么？我应该避免这样做吗？
浏览 0提问于2017-01-16得票数 3
回答已采纳
我首先创建一个动态字符数组。
! whatever I assign to line will be its length
character(len=:), allocatable :: line
然后，我想使它成为这些动态字符数组的动态数组，因此重构如下：
type(character(len=:)), allocatable, dimension(:) :: lines
allocate(lines(21))
产生这一错误；
Allocate-object at (1) with a deferred type parameter requires either a type-spec
浏览 9提问于2022-08-04得票数 4
2回答
我正在努力使用一些现代Fortran包装器来处理一些MPI散布/聚集例程。我正在尝试一个包装器接口，它在输入上只有一个数组，并在输出上返回MPI操作的结果，对于几个派生类型，执行如下操作：
type(mytype), allocatable :: chunk(:),whole(:)
! [...] chunk descends from previous parts of the code
! Get global array
whole = gatherv(array=chunk,receiver_node=cpuid)
我使用返回allocatable数组的函数来做这件事。然而，每当我
浏览 6提问于2018-01-09得票数 2
回答已采纳
我正在创建一个使用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
回答已采纳
2回答
我有一个带有函数的模块，它接受起始点和结束点，并读取.txt中的一些浮点值。我希望这个函数返回一个表，我不知道它在开始之前会有多大。
我希望在主程序中两次使用这个函数来制作第三个真正的数组。但Fortran不太喜欢。
下面是函数的代码：
module ReadData
!in this part, you need to know :
! -the starting (cannot be the first or second point)
! -end point
! -the file name (here : cham/comp or flow
浏览 5提问于2014-06-04得票数 0
回答已采纳
1回答
我试图重载自定义类型的赋值操作符，并且希望它能够使用自动分配。我阅读了线程，并编写了以下内容：
module overload_op
implicit none
PUBLIC ASSIGNMENT(=)
TYPE, PUBLIC :: my_type
real :: real_member
END TYPE my_type
INTERFACE ASSIGNMENT (=)
MODULE PROCEDURE assign_my_type_my_type_elem
MODULE PROCEDURE assign_my_type_my_type
E
浏览 4提问于2021-08-05得票数 3
回答已采纳
分析我们的fortran代码之一，有两个子例程占用了大部分计算时间(22.1%和17.2%)。在每个例程中，大约5%的时间用于分配和释放内存。这些例程如下所示
MODULE foo
CONTAINS
SUBROUTINE bar( ... )
...
IMPLICIT NONE
...
REAL, ALLOCATABLE, DIMENSION(:,:) :: work
...
ALLOCATE (work(size1,size2))
...
DEALLOCATE (work)
END SUBROUTINE bar
...
END MODULE foo
在我的基准测试中，这些子例程被调用了大
浏览 1提问于2012-06-27得票数 9
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
2回答
理解Fortran指针
、、、
在Fortran中，可以将内存分配给指针，或者不能：
real(kind=jp), target :: bt(100,100)
real(kind=jp), pointer :: pt(:,:)
但是，您可以将内存分配给指针pt。
allocate(pt(100,100))
我的问题是:利弊是什么？我所能看到的是，将内存分配给指针会使指针的用途失效，占用更多的内存。诚然，我对指针的了解是有限的，所以如果有人能向我解释一下这里发生了什么，我将不胜感激。
我使用的是混合FORTRAN 77和Fortran 90代码的模型，另外，我正在使用Intel编译器编译代码。
浏览 11提问于2015-03-08得票数 1
回答已采纳
对于这个相当简单的问题，我很抱歉，我似乎找不到任何好的fortran文档。
我正在尝试编写一个函数，该函数从一个单元中读取数据，修剪输出并附加空结束符，类似于：
character(*) function readCString()
character*512 str
read(1, *) str
readCString = TRIM(str)//char(0)
return
end function readCString
然而，我知道这是不能工作的，但它可以编译。分割故障最近并不是我的好朋友。如果在function关键字前没有“字符(*)”，它将不会编译，并且如果使用任何值
浏览 0提问于2010-06-29得票数 3
回答已采纳
1回答
当我运行Fortran代码时，我得到这样的警告：
Fortran运行时警告:为过程'zgemm‘的参数'_formal_11’创建了临时数组
与这部分代码相关
do iw=w0,w1
!
do a=1,nmodes
Vw(a,:)=V(a,:)*w(iw,:)
end do
call zg
浏览 5提问于2021-06-20得票数 0
我是fortran的新手，我一直在努力解决这个问题:我想在fortran中创建和数组，它具有用户定义的大小和形状。
例如，在python中，我只需要向用户询问数组的上限和下限，然后用这些参数声明一个数组。但在fortran中，我必须首先声明所有变量，包括数组。在声明数组时，我需要定义大小/形状。
我的第一个猜测是这样做(我将省略开始/结束部分)：
INTEGER, parameter :: lower, upper
INTEGER, dimension(lower:upper) :: list
READ(*,*) lower, upper
WRITE(*,*) list
但是这是行不通的，因为
浏览 1提问于2015-09-17得票数 0
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中有一个派生数据类型，如下所示：
TYPE mytype
INTEGER a
DOUBLE COMPLEX, dimension(:), allocatable :: elem
END TYPE mytype
现在，我想编写一个函数，它将一个双复数组作为参数。这个数组应该成为"mytype“的数组"elem”，而不需要分配内存和复制数据。我试图以以下方式使用一个cray指针：
DOUBLE COMPLEX, INTENT(IN) :: eleminput(5) !input array which should become x
浏览 2提问于2015-03-23得票数 2
回答已采纳
1回答
目前，我正在用Fortran 95编写一个数值模拟程序。我的平台是WIndows，我利用英特尔Fortran编译器的MSVC环境。这段代码和这一领域中的许多代码一样，创建了一个有待解决的方程组。在数值上，这会存储一个方阵和一个已知值的向量。现在，为了优化内存，矩阵以方便的形式存储，如压缩稀疏行格式(CSR)或类似的，因此不存储零值。
鉴于这一简短的介绍，我对此表示怀疑。由于编译时我不知道数组的维数，所以我只声明它们为：
REAL, DIMENSION(:), ALLOCATABLE :: myArray
一旦我检索到这样一个向量的维数，我就调用
ALLOCATE(myArray(N)) whe
浏览 0提问于2013-01-25得票数 0
2回答
我试图在fortran中为ABAQUS编写一个子程序，在研究如何编写子程序时，我只遇到了3D模型的子程序。所以我在徘徊，是否可以做一维子程序。
浏览 20提问于2022-05-02得票数 0
我试图为Lennard势编写一个Fortran代码，并从文件中读取坐标，但我遇到了SIGSEGV, segmentation fault occurred --如何找到问题所在。我是Fortran的新手，所以任何帮助都是有帮助的。
PROGRAM lennardjones_1
IMPLICIT NONE
REAL(8), allocatable :: rat(:,:) ! coordinates of atoms
REAL(8), allocatable :: fat(:,:) ! force between atoms
INTEGER :: nat
浏览 1提问于2014-10-11得票数 0
回答已采纳
我对Fortran很陌生。我的问题是，为什么我们需要在Fortran中分配数组？我知道一个好处是你不需要事先知道维度。但是，是否也有性能方面的原因？
例如，在以后不再重用数组之后，我们将重新定位该数组。与不使用可分配数组(即常规数组)相比，此释放是否有助于释放更多的内存？
浏览 3提问于2016-04-14得票数 2
回答已采纳
在我的Fortran代码中，我需要通过向这些变量添加一些内容来更新它们。例如，如果x是我的变量，我可能需要这样做：
x = x + 1
问题是，我的变量是数组元素，并且有大名等等，所以在上面的方程中重复x是一项繁琐的任务。例如，在Python中，我们有+=操作符来实现这一点。我们在Fortran有类似的东西吗？
浏览 2提问于2014-08-14得票数 4
回答已采纳
背景：
我的程序目前在Python中组装数组。这些数组连接到前端UI，因此具有交互式元素(即数组元素中的用户指定值)。然后将这些数组保存到.txt文件中(取决于它们以后的使用)。然后，用户必须离开Python程序，运行一个单独的Fortran脚本，该脚本模拟基于Python输出文件的系统。虽然这最多只需要几分钟，但理想情况下，我希望在不离开Python的情况下自动化这个过程。
组装数组()->编辑数组(Python) ->导出到文件(Python)
-> Import (Fortran) ->运行模拟(Fortran) ->将结果导出到文件(Fortran)
-&
浏览 4提问于2014-01-18得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
