anchor.diff:  
       end if
   
  -    do i = 1, NPT
  -       write(*,*) (Y(i,j), j = 1,n), FF(i)
  -    end do
  +    ! do i = 1, NPT
  +    !    write(*,*) (Y(i,j), j = 1,n), FF(i)
  +    ! end do
   
       ! MATRIX Q
   
  
positive.code:           5X,3X,3X,'Objective value:',33X,1PD12.5,/, &
            5X,3X,3X,'Feasibility:',37X,1PD12.5,/,&
            5X,3X,3X,'Gradient norm:',35X,1PD12.5)
  1002 FORMAT(5X,3X,'Penalization:',39X,D12.5,/, &
            5X,3X,"Number of non-binding alpha's:",24X,I10,/, &
            5X,3X,"Number of non-binding alpha''s:",23X,I10)
  9000 FORMAT(5X,3X,'w^Tw:',47X,1PD12.5)
            
  
  
negative.code:        b = SOMAB / (CONT1 + CONT2)
      END IF
  
  !    write(*,*) b
  
      ! NON-EXECUTABLE STATEMENTS
  
  