Question

我正在尝试编译并运行一些代码，但是我不断收到错误：在（1）处出现错误：Unclassifiable statement。

代码的起始位看起来像

      IMPLICIT COMPLEX*16 (Z)
      IMPLICIT DOUBLE PRECISION (A-H,O-Y)
      DIMENSION X(0:40000),ZV(0:4000),ZW(0:4000)
      DIMENSION ZA(-40000:4000),ZB(-40000:4000)
      common/constants/pi,zi
      COMMON/XCO/X
      COMMON/zab/za,zb
      COMMON/RFI/T0,zga,zgb,zca1,zcb1,omd,vs,vsd,rvc
      common/nonpara/zsgmb

      OPEN(3,FILE='check.dat')
      OPEN(2,FILE='resb.dat')
      OPEN(4,FILE='resa.dat')

     pi=4.D0*datan(1.D0)
     zi=(0.D0,1.D0)

C Generate grid
      t0=-5.d0
      te=10 !15.d0                    
      nt00=1500 !2000           
      nco=nt00+1
      H=(TE-T0)/FLOAT(NT00)
      NG=3*(NCO+2)
      NT0=NT00+1
      DO 1 I=0,NG
1       X(I)=FLOAT(I-1)*H

C Artificial parameters
      zga=1.d0/5.d0                      
      zgb=1.d0
      omd=1.d0
      vs=10.d0
      phi=0.d0
      zca1=1.d0*cdexp(zi*phi)     
      zcb1=1.d0/5.d0*0.d0                
      za0=0.01d0

      zb0=0.01d0

当我在终端中运行它时，我得到以下

dyn1239-223:testing Alex$ gfortran amp-nonparallel.f
amp-nonparallel.f:59:7:

   zb0=0.01d0
       1
Error: Unclassifiable statement at (1)
dyn1239-223:testing Alex$

我不明白与之前的所有内容相比，定义方式的问题是什么。任何帮助将不胜感激。

编辑：包括完整的命令行输入/输出

Answer 1

TAB字符的存在阻止了代码编译。将所有内容重置为第一列并逐行缩进手动修复它。（谢谢roygvib）

至于为什么一行是问题的第一个实例，我不知道因为上面有TAB字符。

Implicit Complex不允许定义？

1 个答案: