anchor.diff:      call swap_data()
   
     end do
  +
  +  ! stop timer
  +  timespent = timespent + omp_get_wtime();
  +  PRINT *, nt ' time steps took total ', timespent, ' seconds, average ', timespent/nt , ' seconds'
   
     ! ****************** cleanup ******************
   
  
positive.code: program extended_examples
  
    ! modules
  
    use constants, only: ir
  
  
negative.code:   real (kind=ir), allocatable :: data_in(:,:,:), data_out(:,:,:)
    real (kind=ir), allocatable :: cflx(:,:,:), cfly(:,:,:)
    real (kind=ir), allocatable :: dcoeff, kcoeff
  
    real (kind=8) :: timespent
  
    integer :: ierr
    integer :: i, j, k, it
    integer :: istart, iend, jstart, jend, kstart, kend
    integer :: nincout
    integer :: iseed(80), nseed
  
    write(*,'(a)') 'Welcome to stencil3d!'
  
  