擅长:python、mysql、java
<p>Python:</p>
<pre><code># -*- coding: utf-8 -*-
import MArray
print MArray.__doc__
print MArray.s1dim_array.__doc__
print MArray.s2dim_array.__doc__
print "="*60
print help(MArray)
print "="*60
print help(MArray.s1dim_array)
print "="*60
MArray.s1dim_array([6.,7.,8.])
print "="*60
MArray.s2dim_array([[6.,7.,8.],[1,2,3]])
subroutine S1dim_Array (iN_dim, rArray)
implicit none
integer, intent(in) :: iN_dim
real, intent(in) :: rArray(iN_dim)
print*, iN_dim
print*, rArray
Return
End subroutine
subroutine S2dim_Array (iN_Row, iN_Col, rArray)
implicit none
integer, intent(in) :: iN_Row, iN_Col
real, intent(in) :: rArray(iN_Row, iN_Col)
integer :: i , j
print*, iN_Row, iN_Col
do i = 1 , iN_Row
write(*,*) (rArray(i,j), j = 1,iN_Col)
enddo
Return
End subroutine
</code></pre>