anchor.diff:       open(206, file='checkinit.txt', access='append')
        WRITE(206,*)' KLOK: ',KLOK,  ' ; TIME: ',T
        close(206)
  +
        message = 'cell l266'
  -
  -     call dumpstatus(klok, message, 'status.txt')
  +     call dumpstatus(klok, message, 'status.txt')
  +
        call wrstart(lcube, nu, rho,td,klok,ur,vr,wr, pr, &
             xfn,xpi,firstn,number,nextn,elmnew,shpint,shpfs, xcenterold, ycenterold, zcenterold)
        message = 'cell l270'
  
positive.code: 
  
    !     MAIN LOOP --
    DO 5 KLOK=KLOK1,KLOKEND
       message = 'cell l216'
       call dumpstatus(klok, message, 'status.txt')
       T = T+TD
  
negative.code:      end if
       message = 'cell l299'
       call dumpstatus(klok, message, 'status.txt')
  
       if (minval(xfn(1,:)) < 0.5d0) then
          message = 'Nodes exited box in -x direction, terminating job.'
          call dumpstatus(klok, message, 'status.txt')
          stop
       end if
       if (maxval(xfn(1,:)) > flngx + 0.5d0) then
          message = 'Nodes exited box in +x direction, terminating job.'
          call dumpstatus(klok, message, 'status.txt')
          stop
       end if
       if (minval(xfn(2,:)) < 0.5d0) then
          message = 'Nodes exited box in -y direction, terminating job.'
          call dumpstatus(klok, message, 'status.txt')
          stop
       end if
       if (maxval(xfn(2,:)) > flngy + 0.5d0) then
          message = 'Nodes exited box in +y direction, terminating job.'
          call dumpstatus(klok, message, 'status.txt')
          stop
       end if
       if (minval(xfn(3,:)) < -0.5d0) then
          message = 'Nodes exited box in -z direction, terminating job.'
          call dumpstatus(klok, message, 'status.txt')
          stop
       end if
       if (maxval(xfn(3,:)) > flngz - 0.5d0) then
          message = 'Nodes exited box in +z direction, terminating job.'
          call dumpstatus(klok, message, 'status.txt')
          stop
       end if
    end do
  
       message = 'cell l304'
       call dumpstatus(klok, message, 'status.txt')
  