anchor.diff:        enddo
         exit
       enddo loop1
  -    if ( IDBg/=0 ) write (6,"(20I3)") (Zpiv(i),i=1,Neqns)
  +    if ( IDBg_ini/=0 ) write (6,"(20I3)") (Zpiv(i),i=1,Neqns)
     end subroutine ZPIVOT
   
     !======================================================================!
  
positive.code:     !*Allocations
      allocate (val(NDEg*NDEg),stat=ierr)
      if ( ierr/=0 ) stop "Allocation error:val"
      !write (6,*) "nuform:stage = ", STAge
      kk = 0
      ndof2 = ndof*ndof
  
  
negative.code:     endif
  
      !* Solve
      do i=1,hecMAT%NP*hecMESH%n_dof
        hecMAT%X(i) = hecMAT%B(i)
      end do
  