deploy: e1e4e57

ch08-03-pointertips.html

@@ -164,7 +164,20 @@ <h2 id="数组的维数变换"><a class="header" href="#数组的维数变换">
 write(*,*)pa(1::size(a,dim=1)+1) !获取对角项
 </code></pre>
 <p>如果在子程序或者函数中，我们则需要为数组设置<code>contiguous</code>关键字</p>
-<pre><code>program main
+<pre><code class="language-fortran">module diag_mod
+    implicit none
+contains
+    function diag(a)result(ptr)
+        real,intent(in),target,contiguous::a(:,:) !需要加contiguous属性
+        real,pointer::ptr(:)
+        ptr(1:size(a))=&gt;a
+        ptr=&gt;ptr(1::size(a,dim=1)+1) !取对角项
+    end function diag
+end module diag_mod
+
+program main
+    use diag_mod
+    implicit none
     real,target::a(10,10)
     integer::i
     real,pointer::p(:)
@@ -175,13 +188,6 @@ <h2 id="数组的维数变换"><a class="header" href="#数组的维数变换">
     do i=1,10
         write(*,*)a(i,i)
     end do
-contains
-    function diag(a)result(ptr)
-        real,intent(in),target,contiguous::a(:,:) !需要加contiguous属性
-        real,pointer::ptr(:)
-        ptr(1:size(a))=&gt;a
-        ptr=&gt;ptr(1::size(a,dim=1)+1) !取对角项
-    end function diag
 end program main
 </code></pre>
 <ul>

print.html

@@ -2285,7 +2285,20 @@ <h2 id="数组的维数变换"><a class="header" href="#数组的维数变换">
 write(*,*)pa(1::size(a,dim=1)+1) !获取对角项
 </code></pre>
 <p>如果在子程序或者函数中，我们则需要为数组设置<code>contiguous</code>关键字</p>
-<pre><code>program main
+<pre><code class="language-fortran">module diag_mod
+    implicit none
+contains
+    function diag(a)result(ptr)
+        real,intent(in),target,contiguous::a(:,:) !需要加contiguous属性
+        real,pointer::ptr(:)
+        ptr(1:size(a))=&gt;a
+        ptr=&gt;ptr(1::size(a,dim=1)+1) !取对角项
+    end function diag
+end module diag_mod
+
+program main
+    use diag_mod
+    implicit none
     real,target::a(10,10)
     integer::i
     real,pointer::p(:)
@@ -2296,13 +2309,6 @@ <h2 id="数组的维数变换"><a class="header" href="#数组的维数变换">
     do i=1,10
         write(*,*)a(i,i)
     end do
-contains
-    function diag(a)result(ptr)
-        real,intent(in),target,contiguous::a(:,:) !需要加contiguous属性
-        real,pointer::ptr(:)
-        ptr(1:size(a))=&gt;a
-        ptr=&gt;ptr(1::size(a,dim=1)+1) !取对角项
-    end function diag
 end program main
 </code></pre>
 <ul>