[Chasm-interop-cvs] chasm/test/descriptors test_ga.f90,1.3,1.4

[<ras...@us...>]

Update of /cvsroot/chasm-interop/chasm/test/descriptors
In directory sc8-pr-cvs1:/tmp/cvs-serv2160

Modified Files:
	test_ga.f90 
Log Message:
Changed to pass 1D shape array to C.

Index: test_ga.f90
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/test/descriptors/test_ga.f90,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** test_ga.f90	13 Aug 2003 22:31:09 -0000	1.3
--- test_ga.f90	5 Nov 2003 05:03:28 -0000	1.4
***************
*** 2,8 ****
    implicit none
    interface
!     subroutine create_ga(a, nx, ny, error)
        integer, pointer :: a(:,:)
!       integer, intent(in) :: nx, ny
        integer, intent(out) :: error
      end subroutine create_ga
--- 2,8 ----
    implicit none
    interface
!     subroutine create_ga(a, ashape, error)
        integer, pointer :: a(:,:)
!       integer, intent(in) :: ashape(2)
        integer, intent(out) :: error
      end subroutine create_ga
***************
*** 20,24 ****
    nx = 9
    ny = 5
!   call create_ga(a, nx, ny, rc)
  
    if (rc .ne. 0) then
--- 20,28 ----
    nx = 9
    ny = 5
!   ashape(1) = nx
!   ashape(2) = ny
!   call create_ga(a, ashape, rc)
!   ashape(1) = 0
!   ashape(2) = 0
  
    if (rc .ne. 0) then