2

我试图弄清楚如何将值分配给名为 ipntr 的数组，该数组在 ARPACK 中存储指针。我对 fortran 比较陌生，我无法准确弄清楚这个数组的值最初是如何设置的。我正在查看的代码是与 ARPACK 一起分发的非对称驱动程序示例 dndrv1.f，我不理解的部分如下

      program dndrv1 

      integer           maxn, maxnev, maxncv, ldv
      parameter         (maxn=256, maxnev=12, maxncv=30, ldv=maxn)
c
c     %--------------%
c     | Local Arrays |
c     %--------------%
c
      integer           iparam(11), ipntr(14)
      logical           select(maxncv)
      Double precision
     &                  ax(maxn), d(maxncv,3), resid(maxn), 
     &                  v(ldv,maxncv), workd(3*maxn), 
     &                  workev(3*maxncv), 
     &                  workl(3*maxncv*maxncv+6*maxncv)
c
c     %---------------%
c     | Local Scalars |
c     %---------------%
c
      character         bmat*1, which*2
      integer           ido, n, nx, nev, ncv, lworkl, info, j,
     &                  ierr, nconv, maxitr, ishfts, mode
      Double precision
     &                  tol, sigmar, sigmai
      logical           first, rvec
c
c     %------------%
c     | Parameters |
c     %------------%
c
      Double precision
     &                  zero
      parameter         (zero = 0.0D+0)
c
c     %-----------------------------%
c     | BLAS & LAPACK routines used |
c     %-----------------------------%
c
      Double precision
     &                  dlapy2, dnrm2
      external          dlapy2, dnrm2, daxpy
c
c     %--------------------%
c     | Intrinsic function |
c     %--------------------%
c
      intrinsic         abs

      write(*,*) ipntr

写语句的结果是：

1606679396 32767 1606696480 32767 1606918048 32767 0 0 0 0 0 0 0 0

显然没有像 ipntr(1) = 1606679396 这样的东西，那么这些值是如何分配的呢？

谢谢

4

1 回答 1

3

如果变量没有分配到任何地方，那么它们的值将由恰好驻留在内存中的任何随机字节序列决定。您应该看到重新运行程序将产生不同的输出序列。

于 2011-09-02T06:32:33.537 回答