!*********************************************************************** 
!  This program swaps the values in arrays A and B using a temporary 
!  array. 
!*********************************************************************** 
subroutine swap(a,b,temp) 
implicit none 
real*8,dimension(:,:,:,:),intent(inout)    :: a,b,temp 
 
   temp = a 
   a = b 
   b = temp 
 
return 
end 
