字符已经设置了类型,仍然提示需要定义类型

Forrest · 发表于 2019-12-6 08:58:12

[Fortran] 纯文本查看 复制代码

01program Console12
02    implicit none
03   integer,parameter::N=400  !一共400个粒子,
04    integer::posx(N),posy(N)
05    integer ::t,i,j,L
06    real::pi,cell(8,8)
07    real :: z,s,k
08    
09    k=0
10    do i=-10,9           !初始化400个粒子的位置,都在-10*-10的区域
11                         !行走之前,格点上只有一个粒子,开始行走之后,格点上允许有多个粒子,
12        do j=-10,9
13            k=k+1
14            posx(k)=i
15            posy(k)=j
16        end do
17    end do
18    open (10,file='dis-0.txt')
19    do i=1,N
20        write(10,*)posx(i),posy(i)
21    end do
22    do t=1,6000000    !总共进行多少次选择
23        call RANDOM_SEED()
24        call RANDOM_NUMBER(z)
25        k=integer(z*N+1)     ! k表示第几个粒子
26        L=integer(z*4+1)     ! l表示1,2,3,4,的哪一个数
27        select case(l)        ! 随机选中的粒子往哪里走,行走的区域是一个-100*100的表格
28        case(1)
29            posy(k)=posy(k)+1
30            if(posy(k)>=100) posy(k)=posy(k)-1
31        case(2)
32            posy(k)=posy(k)-1
33            if(posy(k)<-100) posy(k)=posy(k)+1
34        case(3)
35            posx(k)=posx(k)-1
36            if(posx(k)<-100)posx(k)=posx(k)+1
37        case(4)
38            posx(k)=posx(k)+1
39            if(posx(k)>=100)posx(k)=posx(k)-1
40        end select
41        !2000步计算一下熵
42        if(mod(t,2000)==0)then
43        cell(i,j)=0   !cell(i,j)表示第几个格点区域有多少个粒子,相当于一个8*8的矩阵,
44        do k=1,N
45            i=(posx(k)+100)/25+1   !计算每个格子中的粒子数目
46            j=(posy(k)+100)/25+1    
47            cell(i,j)=cell(i,j)+1.0
48        end do
49        pi=cell(i,j)/N
50        s=0
51        do i=1,8
52            do j=1,8
53                if(pi<1.0/2000.0)cycle  !即在2000步的行走中,该格点区域仍然没有一个粒子
54                s=s-pi*log(pi)
55            end do
56        end do
57        write (10,*)s
58        end if
59    end do
60    close(10)
61    end program Console12

错误 1 error #6404: This name does not have a type, and must have an explicit type. [INTEGER] C:\文件\FORTRAN\Console12\Console12\Console12.f90 41

Forrest · 发表于 2019-12-6 08:58:59

谢谢了,哪位指导一下啊,万分感谢

li913 · 发表于 2019-12-6 10:22:56

integer 改为 int； k为整型。

Forrest · 发表于 2019-12-6 11:09:15

li913 发表于 2019-12-6 10:22
integer 改为 int； k为整型。

谢谢了,

[求助] 字符已经设置了类型,仍然提示需要定义类型