整数、do 循环、fortran、错误

我在下面定义了以下 fortran 代码。如果我改变 n 的值，我试图改变 do 循环的长度。当我尝试编译时出现错误：
(1) 处固有的“floor”参数“a”必须为 REAL。但是当我将 q 和 w 更改为真实值时，我收到另一条错误消息。我怎样才能解决这个问题？当我使用 Floor(...) 时，q 和 w 显然是一个整数

subroutine boundrycon(n,bc,u,v)


!input
integer :: n,bc

!output
real(8) :: u(n+2,n+2), v(n+2,n+2)

!lokale
integer :: j,i,w,q

n=30

q=floor(n/2)
w=(floor(n/2)+floor(n/6))


do j=q,w  
u(q,j)=0.0;
v(q+1,j)=-v(q,j);

u(w,j)=0.0;
v(w+1,j)=-v(w,j);

end do

do i=q,w 

v(i,q)=0.0;
u(i,q)=-u(i,q+1);


u(i,w+1)=-u(i,w);
v(i,w)=0;

end do

end subroutine boundrycon

很多人已经在对你的问题的评论中指出了这一点，但这里再次作为答案：

在 Fortran 中，如果将两个整数值相除，则结果是一个整数值。

6/3 = 2

如果分子不能被分母整除，则舍去余数：

7/3 = 2

让我们看看你的代码：

q=floor(n/2)

它首先评估n/2其中，由于两者n and 2是整数，就是这样的整数除法。正如前面提到的，这个结果是一个整数。

然后这个整数作为参数传递给floor. But floor需要一个浮点变量（或者，正如 Fortran 所说：REAL）。因此出现错误消息：

“[的]论点floor... 必须是REAL."

因此，获得所需内容的最简单方法就是删除floor总而言之，因为整数除法正是您想要的：

q = n/2 ! Integer Division

如果需要进行浮点除法，即想要将两个整型变量除以一个实型变量，则必须将至少其中一个转换为浮点型before部门：

print *, 3/2           ! wrong, prints 1
print *, real(3)/2     ! right
print *, 3/2.0         ! right
print *, (3 * 1.0) / 2 ! right
print *, real(3/2)     ! wrong, prints 1.0