deploy: 7c50f3c

fortran-fans · Mar 31, 2024 · dc8218f · dc8218f
1 parent 09d5e22
commit dc8218f
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/ch08-03-pointertips.html b/ch08-03-pointertips.html
@@ -161,7 +161,7 @@ <h2 id="数组的维数变换"><a class="header" href="#数组的维数变换">
 <p>这时候我们就获得了一个<code>a</code>的一维数组别名</p>
 <pre><code class="language-fortran">integer::i
 pa=[(i,i=1,16)]
-write(*,*)pa(1::size(a,dim=1)) !获取对角项
+write(*,*)pa(1::size(a,dim=1)+1) !获取对角项
 </code></pre>
 <p>如果在子程序或者函数中，我们则需要为数组设置<code>contiguous</code>关键字</p>
 <pre><code>program main

diff --git a/print.html b/print.html
@@ -2282,7 +2282,7 @@ <h2 id="数组的维数变换"><a class="header" href="#数组的维数变换">
 <p>这时候我们就获得了一个<code>a</code>的一维数组别名</p>
 <pre><code class="language-fortran">integer::i
 pa=[(i,i=1,16)]
-write(*,*)pa(1::size(a,dim=1)) !获取对角项
+write(*,*)pa(1::size(a,dim=1)+1) !获取对角项
 </code></pre>
 <p>如果在子程序或者函数中，我们则需要为数组设置<code>contiguous</code>关键字</p>
 <pre><code>program main

diff --git a/searchindex.js b/searchindex.js
diff --git a/searchindex.json b/searchindex.json