program testalloc
c     real (kind=8), allocatable:: test(:)
      real*8 test(100000)
!$SGI DISTRIBUTE TEST(BLOCK)
      common /fck/ test
      integer va2pa
      call getsize( mxvar )
c     allocate( test(mxvar) )
!$omp  parallel default(private) shared(test,mxvar)
      id = omp_get_thread_num()
      num = omp_get_num_threads()
!$omp  master
      test = 0
!$omp  end master
!$omp  barrier
!$omp  single
      print *,"I am Thread ",id," out of ",num," threads"
      do i = 1, mxvar, 2048
        node = va2pa( test(i) )
        print *,"A(",i,") on node ",node
      enddo
!$omp  end single
!$omp  end parallel
      stop
      end
      subroutine getsize( size )
      integer size
      size = 100000
      return
      end