anchor.diff:              write(*,*)'  '
    6          format(6f15.11)
            endif
  -c         call mpi_barrier(mpi_comm_world,ierr)
            call shmem_barrier_all()
         enddo
   
  
positive.code: c  Copyright (c) 2011 - 2014
  c    University of Houston System and Oak Ridge National Laboratory.
  c  
  c  All rights reserved.
  c  
  c  Redistribution and use in source and binary forms, with or without
  c  modification, are permitted provided that the following conditions
  c  are met:
  c  
  c  o Redistributions of source code must retain the above copyright notice,
  c    this list of conditions and the following disclaimer.
  c  
  c  o Redistributions in binary form must reproduce the above copyright
  c    notice, this list of conditions and the following disclaimer in the
  c    documentation and/or other materials provided with the distribution.
  c  
  c  o Neither the name of the University of Houston System, Oak Ridge
  c    National Laboratory nor the names of its contributors may be used to
  c    endorse or promote products derived from this software without specific
  c    prior written permission.
  c  
  c  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  c  "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  c  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  
negative.code: 
              call shmem_double_put(buff(1,buff_id1),buff(1,buff_id),
       >           buff_len, nbr( axis, dir, k ))
  
  
           endif
  