2

ARPACKでポインタを格納するipntrという配列にどのように値を代入するのかを調べています。私は 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

write ステートメントの結果は次のとおりです。

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

明らかに、ipntr(1) = 1606679396 のようなものはありません。では、これらの値はどのように割り当てられたのでしょうか?

ありがとう

4

1 に答える 1

3

変数がどこにも割り当てられていない場合、変数の値は、たまたまメモリに存在するランダムなバイト シーケンスによって決定されます。プログラムを再実行すると、異なる出力シーケンスが生成されることがわかります。

于 2011-09-02T06:32:33.537 に答える