fortran语言vs编译器时，数组或矩阵（GB）显示发生未指定的

LYCD

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

 DIMENSION GB1(2,2),GB2(2,2),JB(2,10),GB(2,2),
     $                GE1(10,2),GE2(10,2),JE(10,10),GE(2,2),XB(2)
        common /INV/GBx(70,70),GBy(70,70),GBai(70,70)
        common /MATRIX/A(100,100),B(100,100),AA(100,100)
         DOUBLE PRECISION GBX,GBY,GBAI,GB1,GB2,GB,GE1,GE2,GE,JE,A,B,AA
C
        CHARACTER  RI*12,R*1,ZZI*10,ZZO*10
        REAL L
C
        WRITE(*,'(1X,''Input the name of input file :'')')        
        READ(*,'(A)')ZZI
        OPEN(1,FILE=ZZI,STATUS='OLD')
        WRITE(*,'(1X,''Input the name of output file :'')')
        READ(*,'(A)')ZZO          
        OPEN(2,FILE=ZZO,STATUS='NEW')
C        * * * * * * * (ARES=mm**2,rp=Kg/dm**3,E=GPa(N/mm**2),L=mm) * * * * * * * *
        READ(1,*) ARES,RP,E,L
        READ(1,*) NN
        rp=rp*1.E+3
        ares=ares*1.E-6
        E=E*1.E+6
        L=L*1.E-3
c        
c        * * * * * * * * U2=1,U8=2,F2=3,F8=4 * * * * * * * * *
c         * * * * * * * K1 & K2 are the reserved variables * * * * * * * *
c
        read(1,*)k1,k2
C
        GB1(1,1)=-0.5
        GB1(1,2)=0.5
        GB1(2,1)=0.5
        GB1(2,2)=-0.5
C        
        GB2(1,1)=0.
        GB2(1,2)=-0.5*L/(ARES*E)
        GB2(2,1)=-0.5*L/(ARES*E)
        GB2(2,2)=0.
C
        DX=L/NN
        X=0
        DO 10 I=1,NN
          X=X+DX
          JB(1,I)=-RP*DX*0.5*X/E
          JB(2,I)=-RP*DX*0.5*(L-X)/E
          GE1(I,1)=0.5
          GE1(I,2)=0.5
          GE2(I,1)=0.5*X/(ARES*E)
          GE2(I,2)=-0.5*ABS(L-X)/(ARES*E)
          X2=X
          X1=0.
          DO 20 J=1,NN
            X1=X1+DX
            JE(I,J)=-0.5*ABS(X1-X2)*RP*DX/E          
20          CONTINUE
10        CONTINUE

Transpose

代码文件的后缀改成.f
第1行的从第7列开始
代码加上end


然后把错误截图

LYCD

Transpose 发表于 2023-11-14 16:27
代码文件的后缀改成.f
第1行的从第7列开始
代码加上end

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

      DIMENSION GB1(2,2)
      DOUBLE PRECISION GB1   
      GB1(1,1)=-0.5
        GB1(1,2)=0.5
        GB1(2,1)=0.5
        GB1(2,2)=-0.5
      WRITE(*,*) GB1[img]G:\NewDesk\AAA.png[/img]
      END

您好，感谢您的帮助，比如这个程序，我定义了个GB1（2x2的矩阵，但是在调试过程中，局部变量中值的地方会显示’发生未指定的错误‘）就是局部变量和监视中都显示不出来矩阵

Transpose

安装oneapi base 里面的gdb了吗

LYCD

Transpose 发表于 2023-11-15 08:37
安装oneapi base 里面的gdb了吗

您好，我不太懂这个，刚开始接触，您可以帮忙查看下么，我的qq：1808257628，十分感谢您

Transpose

https://www.bilibili.com/video/B ... id_from=333.999.0.0  可以查看这个安装教程

LYCD

Transpose 发表于 2023-11-16 08:56
https://www.bilibili.com/video/BV1oh411o7AT/?spm_id_from=333.999.0.0  可以查看这个安装教程

好滴好滴 ，我先研究下 十分感谢您呢

LYCD

Transpose 发表于 2023-11-16 08:56
https://www.bilibili.com/video/BV1oh411o7AT/?spm_id_from=333.999.0.0  可以查看这个安装教程

您好，我装base的时候，会提示‘There is no lDE installed, so the product cannot be integrated. lf you aim at better experienceplease install Microsoft Visual Studio 2019 or 2022.Otherwise ignore this message and continuethe installation.‘然后点击下一步，会出现’‘There is no IDE installed, so the product cannot be integrated. If you aim at better experienceplease install Microsoft Visual Studio 2019 or 2022.Otherwise ignore this message and continuethe installation.
’‘。这个影响么，如何处理呢，先谢谢您呢(已经装了vs2019)