anchor.diff:       end if
   
     END DO
  -  !mvm:
  +  !coprocessing:
     call coprocessorfinalize()
   
     CALL system_clock(finish,count_rate)
  
positive.code: 
    ! save initial data
    n = 0
    !mvm: removed savedata calls from coprocessing version
    !mvm: could have this after the coprocessor initialize and
    !mvm: followed by a call to the coprocessor to write out the initial data
    !mvm: image. Otherwise, these are just wasted calls at this spot.
    call coprocessorinitialize("pipeline.py", 11)
  
    DO k=decomp%xst(3),decomp%xen(3); DO j=decomp%xst(2),decomp%xen(2); DO i=decomp%xst(1),decomp%xen(1)
  
negative.code:           xpass2c, ypass2c, zpass2c)
       deallocate(xpass2c, ypass2c, zpass2c)
    else
       !coprocessing: case 4: send both upper y and upper z halo
       allocate(xpass2c(decomp%xsz(1)*(decomp%xsz(2)+1)*(decomp%xsz(3)+1)))
       allocate(ypass2c(decomp%xsz(1)*(decomp%xsz(2)+1)*(decomp%xsz(3)+1)))
       allocate(zpass2c(decomp%xsz(1)*(decomp%xsz(2)+1)*(decomp%xsz(3)+1)))
  