From 8e2654541c6eae0f308908f501cccbc86b2f9101 Mon Sep 17 00:00:00 2001
From: Travis Oliphant <oliphant@enthought.com>
Date: Wed, 4 Jan 2006 17:26:31 +0000
Subject: Moved scipy directory to numpy

---
 numpy/f2py/docs/usersguide/allocarr.f90 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 numpy/f2py/docs/usersguide/allocarr.f90

(limited to 'numpy/f2py/docs/usersguide/allocarr.f90')

diff --git a/numpy/f2py/docs/usersguide/allocarr.f90 b/numpy/f2py/docs/usersguide/allocarr.f90
new file mode 100644
index 000000000..e0d6c2ec8
--- /dev/null
+++ b/numpy/f2py/docs/usersguide/allocarr.f90
@@ -0,0 +1,16 @@
+module mod
+  real, allocatable, dimension(:,:) :: b 
+contains
+  subroutine foo
+    integer k
+    if (allocated(b)) then
+       print*, "b=["
+       do k = 1,size(b,1)
+          print*, b(k,1:size(b,2))
+       enddo
+       print*, "]"
+    else
+       print*, "b is not allocated"
+    endif
+  end subroutine foo
+end module mod
-- 
cgit v1.2.1