anchor.diff:  
       integer, intent(in) :: N,Nrun
   
  -    integer(i64) :: tic,toc,tmin
  +    integer(i64) :: tic,toc
  +    integer(i64) :: tmin[*] = huge(0_i64)
       real(dp) :: psum[*] = 0.0_dp
       integer :: k,j, im, Nimg
       real(dp), parameter :: pi = 4.0_dp*atan(1.0_dp)
  -
  -    tmin = huge(0_i64)
   
       im = this_image()
       Nimg = num_images()
  
positive.code:             error stop 'FORTRAN pisum fail to converge'
          endif
  
          pisum = sysclock2ms(tmin)
      endif
  
  End Function pisum
  
  
negative.code: 
      if (im==1) then
          psum = 4.0_dp*psum
  
          if (abs(psum-pi) > 1e-4_dp) then
              write(stderr,*) 'final value',psum
  