← Back to branch summary

~ubuntu-branches/ubuntu/feisty/python-numpy/feisty

« back to all changes in this revision

Viewing changes to numpy/f2py/docs/usersguide/allocarr.f90

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2006-07-12 10:00:24 UTC
  • Revision ID: james.westby@ubuntu.com-20060712100024-5lw9q2yczlisqcrt
Tags: upstream-0.9.8
Import upstream version 0.9.8

Show diffs side-by-side

added added

removed removed

Lines of Context:
numpy/f2py/docs/usersguide/allocarr.f90
 
1
module mod
 
2
  real, allocatable, dimension(:,:) :: b 
 
3
contains
 
4
  subroutine foo
 
5
    integer k
 
6
    if (allocated(b)) then
 
7
       print*, "b=["
 
8
       do k = 1,size(b,1)
 
9
          print*, b(k,1:size(b,2))
 
10
       enddo
 
11
       print*, "]"
 
12
    else
 
13
       print*, "b is not allocated"
 
14
    endif
 
15
  end subroutine foo
 
16
end module mod