anchor.diff:        if ( casenumber .eq. 6 ) then
           xtsl     = 2.0000000000000e-4
           dyn_org  = 2.6250000000000e-3 + DBLE(lstep) * xtsl
  -        write(*,*) "current lstep:", lstep, "dyn_org:", dyn_org
  +        if (myrank .eq. master) then
  +          write(*,*) "current lstep:", lstep, "dyn_org:", dyn_org
  +        endif
           rotf     = 90.0
           do i = 1,numnp
             if ( (ibits(iBC(i),14,3) .eq. 7) .and.
  
positive.code:         enddo ! end collect total force
  
          acc = totalForce(1) / objMass
  
          do i = 1,numnp
            if ( (ibits(iBC(i),14,3) .eq. 7) .and.
  
negative.code:         xtsl     = 2.0000000000000e-4
          dyn_org  = 2.6250000000000e-3 + DBLE(lstep) * xtsl
          dyn_lnt  = 2.0000000000000e-3 * 0.9**lstep
          if (myrank .eq. master) then
            write(*,*) "current lstep:", lstep, "dyn_org:", dyn_org
          endif
          rotf     = 90.0
          shrkfactor = 2.0
          do i = 1,numnp
  