anchor.diff:        CHARACTER(*),                   INTENT(  OUT)  :: ErrMsg      !< Error message if ErrStat /= ErrID_None
   
         CHARACTER(*), PARAMETER                        :: RoutineName = 'SrvD_UpdateDiscState'
  -      REAL(ReKi)                                     :: temp
         
            ! Initialize ErrStat
   
  
positive.code: 
     PRIVATE
  
     TYPE(ProgDesc), PARAMETER            :: SrvD_Ver = ProgDesc( 'ServoDyn', 'v1.06.00a-bjj', '17-Jun-2016' )
     
  #ifdef COMPILE_SIMULINK
     LOGICAL, PARAMETER, PUBLIC           :: Cmpl4SFun  = .TRUE.                            ! Is the module being compiled as an S-Function for Simulink?
  
negative.code: 
     INTEGER                      :: ErrStat2                                        ! temporary (local) error status
     INTEGER                      :: I                                               ! Generic loop-counting index
     INTEGER                      :: INDX                                            ! Index for valid arrays
  
     LOGICAL                      :: CheckOutListAgain                               ! Flag used to determine if output parameter starting with "M" is valid (or the negative of another parameter)
  