anchor.diff:          if( fstrPARAM%fg_couple_first==6 ) then
             call fstr_get_convergence( revocap_flag )
             if( revocap_flag == 0 ) then
  -            do j = 1, hecMAT%NP * 3
  +            do j = 1, hecMAT%NP * ndof
                 hecMAT%B(j) = prevB(j)
               enddo
             endif
  
positive.code:         if( fstrPARAM%fg_couple_first==5 ) then
            call fstr_get_convergence( revocap_flag )
            if( revocap_flag==0 ) then
              do j = 1, hecMAT%NP * 3
                prevB(j) = hecMAT%B(j)
              enddo
            endif
  
negative.code:         endif
  
          if( fstrPARAM%fg_couple_first==6 ) then
            do j = 1, hecMAT%NP * ndof
              prevB(j) = hecMAT%B(j)
            enddo
          endif
  