anchor.diff:        subroutine dumpTimeSeries()
         use timedata   !allows collection of time series
         include "common.h"
  +      include "mpif.h"
          character*60    fvarts
          character*10    cname2
      
  
positive.code: c
        return
        end subroutine
  
         subroutine initEQS(iBC, rowp, colm)
  
  
negative.code: c
  c.... close varts file for probes
  c
        call finalizeTimeSeries()
  
        if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
        if(myrank.eq.0)  then
  