我正在试着写一个包含很多if语句的程序。然而，我不能理解这个错误是从哪里来的。任何帮助都将不胜感激。else if (i == 1 .AND. j==L) then
E = E + A(i,j-1) + A(i+1,j) + A(i,1) + A(L,
浏览 4提问于2017-03-03得票数 1
回答已采纳
2回答
我的目标是在0到1之间创建10,000个随机生成的数字，将它们组织成10个在0到1之间均匀间隔的垃圾箱，并计算每个垃圾箱的频率。到目前为止这是我的密码。program listrandinteger :: n,preal :: xran
!(xran>0.4 .and. xr
浏览 6提问于2017-11-14得票数 1
回答已采纳
s2=0 s4=0
l2=1 l4=1
if (x(i) >=0 .AND. x(i)<=500) then
if( y(i) >= 0 .AND
浏览 1提问于2017-07-06得票数 0
我试图对我的函数施加的具体条件是，在所有不同的空间点上都是相同的，所以我想有一种方法可以在一个循环中完成所有这一切。或者我如何将所有这些If/else语句合并成一个语句？psi(kk,3,i+1,j) - f0*psi(kk,3,i,j)
ELSE IF ( i == nxx .AND.</em
浏览 0提问于2018-11-13得票数 4
回答已采纳
我正在尝试创建一个使用b-样条线和递归函数的铝箔截面。问题是它会返回一些非常大的浮点数或NaN格式的值，有时甚至是无穷大的。哪个值在重新编译后似乎会发生变化，有时由于某些原因会比其他值更多。2 T2(i)=0
ELSE IF (((degree+2) <= i) .and.i==0) T
浏览 1提问于2016-09-22得票数 1
这是我的代码。帮帮我。 !!DEFINES THE DIFFERENT VARIABLES USED IN CONVERSION1 PROGRAM!!L=1 READ(1,'(A150)') ROW1 A(L<
浏览 1提问于2012-08-08得票数 0
2回答
((j>-1).and.do while (j<n) do while((i>-1).and.end if
i=i+1; j=j+
浏览 1提问于2017-07-18得票数 1
回答已采纳
我正在调试一个Fortran项目，在这个项目中，循环索引的逻辑语句执行了一些愚蠢的操作。j=1,na*nb*nk*nxi do k=1,na*nb*nk
浏览 3提问于2015-09-15得票数 0
2回答
调用函数
、
:1):: loglike real, dimension(1:625):: x do l = 1,625
read(10,*,end = 200) x(l), y(l), inftime(l</
浏览 1提问于2012-02-18得票数 1
回答已采纳
1回答
/ 1,5,9 /) if (fboard(win(i,1)) == 1 .and. fboard(win(i,2))== 1 .and. fboard(win(i,3)) == 1) then
CHECK_WINNER =
浏览 0提问于2017-11-30得票数 0
回答已采纳
1回答
We will index as A(i), B(j), C(k), D(l) j = 1else if (j > size(B) .and. k > size(C)) then
D(l) = A(
浏览 0提问于2020-03-16得票数 2
回答已采纳
2回答
使子例程更快
、、
在我的Fortran代码的主要部分中，我有以下几行do i=1,indCompMaxl=1else if ((k==nup+1).AND.j,l,m
if ((PBCfl
浏览 2提问于2016-03-19得票数 0
回答已采纳
1回答
用垃圾填充的数组
、、
我正在编写一个最长的公共子序列程序，由于某种原因，我的数组一直被垃圾填充，即使在我将其中的所有内容初始化为NULL之后。else if (c[i - 1][j] >= c[i][j - 1]) c[i][j] = c[i - 1][j];Trav
浏览 0提问于2015-11-11得票数 0
它在最后给出了一个额外的垃圾值。在s的末尾有'\0‘字符，那么为什么以及如何读取这个垃圾值。我试图通过在代码之间放置printf语句来调试它，但是无法解决它。请帮帮忙。#include<stdio.h>{ for(i=0;s[i]!{
printf("%
浏览 0提问于2015-07-28得票数 0
回答已采纳
2回答
重要的事实是，在这里，数组a(i，l，m)仅对于a(l，m，n)的一组值是非零的。下面是设置a(i，l，m)的代码。do i=1,n do m=1,n
if(i.eq.l+m .or. i.eq.-l+m .or.
浏览 0提问于2020-02-13得票数 0
回答已采纳
我使用Ubuntu 16.04，并尝试运行一条语句，但得到以下错误：Fortran runtime error:CLOSE(11)
IF((yy(k).GE.y(j)).AND.(i)).AND.+1,j+1)
剩下
浏览 1提问于2017-05-05得票数 0
这是我用VisualFORTRAN6.6A编写的代码的一部分： . DO 24 I=1,80-^
C:\Documen
浏览 3提问于2015-02-18得票数 1
回答已采纳
(k .NE. 1) .AND.) print*,"hello" else if ((k /= 1) .and.((k /= <
浏览 1提问于2014-10-18得票数 1
回答已采纳
云服务器
ICP备案
云直播
腾讯会议
实时音视频
腾讯云开发者
