anchor.diff:  
        ! Nacelle Tuned Mass Damper (StC):
   
  +!FIXME: need to expand this out for more NStC
      INTEGER(IntKi), PARAMETER      :: NStC_XQ   =  8
      INTEGER(IntKi), PARAMETER      :: NStC_XQD  =  9
      INTEGER(IntKi), PARAMETER      :: NStC_YQ   = 10
  
positive.code:       ! Define parameters here:
        !............................................................................................
     CALL SrvD_SetParameters( InputFileData, p, ErrStat2, ErrMsg2 )
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN      
     !p%DT  = Interval
  
        ! Set and verify BlPitchInit, which comes from InitInputData (not the inputfiledata)
     CALL AllocAry( p%BlPitchInit, p%NumBl, 'BlPitchInit', ErrStat2, ErrMsg2 )
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN
     p%BlPitchInit = InitInp%BlPitchInit
  
     IF ( ANY( p%BlPitchInit <= -pi ) .OR. ANY( p%BlPitchInit > pi ) )  THEN
        CALL CheckError( ErrID_Fatal, 'BlPitchInit must be in the range (-pi,pi] radians (i.e., (-180,180] degrees).' )
        IF (ErrStat >= AbortErrLev) RETURN
     END IF     
     
        !............................................................................................
  
negative.code:       ! Define system output initializations (set up mesh) here:
        !............................................................................................
     CALL AllocAry( y%BlPitchCom, p%NumBl, 'BlPitchCom', ErrStat2, ErrMsg2 )
        if (Failed())  return;
  
        ! Commanded Airfoil UserProp for blade.  Must be same units as given in AD15 airfoil tables
        !  This is passed to AD15 to be interpolated with the airfoil table userprop column
     CALL AllocAry( y%BlAirfoilCom, p%NumBl, 'BlAirfoilCom', ErrStat2, ErrMsg2 )
        if (Failed())  return;
     y%BlAirfoilCom = 0.0_ReKi
  
        ! tip brakes - this may be added back, later, so we'll keep these here for now
     CALL AllocAry( y%TBDrCon, p%NumBl, 'TBDrCon', ErrStat2, ErrMsg2 )
        if (Failed())  return;
  
     
     IF (InitInp%NumCtrl2SC > 0 .and. p%UseBladedInterface) THEN
        CALL AllocAry( y%SuperController, InitInp%NumCtrl2SC, 'y%SuperController', ErrStat2, ErrMsg2 )
        if (Failed())  return;
        y%SuperController = 0.0_SiKi
     END IF
        
  