anchor.diff:     PUBLIC :: SrvD_JacobianPConstrState           ! Routine to compute the Jacobians of the output (Y), continuous- (X), discrete-
                                                    !   (Xd), and constraint-state (Z) equations all with respect to the constraint
                                                    !   states (z)
  +   PUBLIC :: SrvD_GetOP                          ! Routine to pack the operating point values (for linearization) into arrays
      
      
   CONTAINS
  
positive.code:       END IF      
     
     END IF
     
        !............................................................................................
        ! Clean up the local variables:
  
negative.code:          dYdu(Indx_Y_GenTrq, Indx_u_HSS_Spd)   = GenTrq
           dYdu(Indx_Y_ElecPwr,Indx_u_HSS_Spd)  = ElecPwr
  
              
           ! Pitch control:
        !> \f$ \frac{\partial Y_{BlPitchCom_k}}{\partial u} = 0 \f$
                    
  