fortran

1热度

1回答

如何在不换行的情况下打印多个值？ PRINT *, "foo:", foo, ", bar:", bar, ", baz:", baz 显然，这是可能的WRITE（here和there）。在打印多个值时如何与PRINT及其不同的语法实现相同？

2热度

1回答

写入一个未格式化的，直接访问的二进制文件C

我试图用这个死硬的回购测试随机性数字流（https://github.com/reubenhwk/diehard）。它给这些细节为它读取文件类型：然后命令死忠将提示输入文件名进行测试。该文件必须是一个格式=“未格式化”，访问=“直接”二进制文件从10到1200万字节。这些是特定于fortran的文件约定，不是？问题是，我正在使用一个lfsr生成器来生成我的随机二进制流，这是在C中。我尝

1热度

1回答

从.txt文件中读取和写入.txt文件

这是我的代码： Program Input_Output Implicit none Integer::i Real::R_sn,X_sn,G_sn,B_sn Open(Unit=2,File='Input.txt',Status='Unknown') Read(2,'(4(1x,En8.2))')R_sn,X_sn,G_sn,B_sn Close(Unit=2,St

1热度

1回答

如何在Fortran中检查REAL是否作为DOUBLE传递？

我正在将一个子例程链接到Fortran中的另一个调用程序。我无法访问调用程序。调用程序根据用户输入开关传递我的程序单精度数字或双精度数字。例如，这里的一些代码 subroutine myCode(x) implicit double precision (a-h,o-z) ! do something with x end subroutine myCode 同样，调用程序可通过x作为单

1热度

1回答

如何仅使用一个索引遍历数组？

我的代码的那种像这样的F90： real(8), dimension(10,10,10) :: A do i = 1, 1000 print*,A(i,1,1) enddo 我很惊讶这个工作，这比简单地i,j,k循环超过3名维更快。有人可以解释为什么这个工程？

0热度

1回答

错误在FORTRAN

我写了下面的代码在Fortran和具有功能definintion program bisection_method implicit none real:: a=2.5,b=4.5,c,f if (f(a)*f(b).gt.0) then write(*,*) "error" else do while ((b-a)/2.0>0.0001) c = (a+b

1热度

1回答

Fortran语言无法读取由另一程序

创建TXT文件： double precision inp(100) open(1,file='whatever.txt') do i=1,100 read(1,*) inp(i) enddo close(1) 程序，当它到达读句子刚刚结束。我尝试其他方法来写循环，就像 do read(1,*) inp enddo ，但它是相同的。有趣的是，如果我用fortran或手写一个t

2热度

1回答

在Fortran中忽略NaN项总和

有没有一种方法可以以不同的方式将NaN与普通数字结合起来，然后通常在Fortran中完成？我有几个总结，其中包含'安全'条款，它不能是NaN，以及其他一些条款可以是NaN。我想对表达式的评估忽略加数，如果它们是NaN。我不能只是摆脱他们乘以一个空因子时，他们是NaN因为NaN x 0无论如何给NaN。想法？感谢

2热度

2回答

在Fortran 90基于“查找”的逻辑索引

我想使用几种不同的方法在数组（EP_G2）中基于.1和.999之间的值在逻辑索引中使用逻辑数组（B））其中循环2）任何。 program flux_3d implicit none INTEGER :: RMAX, YMAX, ZMAZ, timesteps DOUBLE PRECISION, PARAMETER :: pmin=0.1 DOUBLE PRECISION, PARAME

2热度

1回答

（/ value /）是什么意思？值是子程序的输入参数

我正在阅读Fortran代码，其中我不明白为什么我们使用（/ value /）而不是value。你能解释一下有什么不同吗？我不知道（/ /）做了什么。 CALL BOUNDARY_CONDITIONS_SET(BOUNDARY_CONDITIONS,(/DOF_INDEX/),(/CONDITION/), & & (/VALUE/)) 谢谢。