anchor.diff:  
            ! Local variables
   
  -      TYPE(IfW_HHWind_InitInputType)                     :: HH_InitData       ! initialization info  
  -      TYPE(IfW_HHWind_InputType)                         :: HH_InData         ! input positions.      
  -      TYPE(IfW_HHWind_ContinuousStateType)               :: HH_ContStates     ! Unused               
  -      TYPE(IfW_HHWind_DiscreteStateType)                 :: HH_DiscStates     ! Unused               
  -      TYPE(IfW_HHWind_ConstraintStateType)               :: HH_ConstrStates   ! Unused               
  -      TYPE(IfW_HHWind_OutputType)                        :: HH_OutData        ! output velocities   
  -
  -      TYPE(IfW_FFWind_InitInputType)                     :: FF_InitData       ! initialization info 
  -      TYPE(IfW_FFWind_InputType)                         :: FF_InData         ! input positions.     
  -      TYPE(IfW_FFWind_ContinuousStateType)               :: FF_ContStates     ! Unused             
  -      TYPE(IfW_FFWind_DiscreteStateType)                 :: FF_DiscStates     ! Unused               
  -      TYPE(IfW_FFWind_ConstraintStateType)               :: FF_ConstrStates   ! Unused               
  -      TYPE(IfW_FFWind_OutputType)                        :: FF_OutData        ! output velocities    
  +      TYPE(IfW_HHWind_InitInputType)                     :: HH_InitData       ! initialization info
  +      TYPE(IfW_HHWind_InputType)                         :: HH_InData         ! input positions.
  +      TYPE(IfW_HHWind_ContinuousStateType)               :: HH_ContStates     ! Unused
  +      TYPE(IfW_HHWind_DiscreteStateType)                 :: HH_DiscStates     ! Unused
  +      TYPE(IfW_HHWind_ConstraintStateType)               :: HH_ConstrStates   ! Unused
  +      TYPE(IfW_HHWind_OutputType)                        :: HH_OutData        ! output velocities
  +
  +      TYPE(IfW_FFWind_InitInputType)                     :: FF_InitData       ! initialization info
  +      TYPE(IfW_FFWind_InputType)                         :: FF_InData         ! input positions.
  +      TYPE(IfW_FFWind_ContinuousStateType)               :: FF_ContStates     ! Unused
  +      TYPE(IfW_FFWind_DiscreteStateType)                 :: FF_DiscStates     ! Unused
  +      TYPE(IfW_FFWind_ConstraintStateType)               :: FF_ConstrStates   ! Unused
  +      TYPE(IfW_FFWind_OutputType)                        :: FF_OutData        ! output velocities
   
   
   
  
positive.code: 
           ! Local variables
  
        TYPE(IfW_HHWind_InitInputType)                     :: HH_InitData       ! initialization info   
        TYPE(IfW_HHWind_InputType)                         :: HH_InitGuess      ! input positions.      
        TYPE(IfW_HHWind_ContinuousStateType)               :: HH_ContStates     ! Unused                
        TYPE(IfW_HHWind_DiscreteStateType)                 :: HH_DiscStates     ! Unused                
        TYPE(IfW_HHWind_ConstraintStateType)               :: HH_ConstrStates   ! Unused                
        TYPE(IfW_HHWind_OutputType)                        :: HH_OutData        ! output velocities     
  
        TYPE(IfW_FFWind_InitInputType)                     :: FF_InitData       ! initialization info   
        TYPE(IfW_FFWind_InputType)                         :: FF_InitGuess      ! input positions.      
        TYPE(IfW_FFWind_ContinuousStateType)               :: FF_ContStates     ! Unused                
        TYPE(IfW_FFWind_DiscreteStateType)                 :: FF_DiscStates     ! Unused                
        TYPE(IfW_FFWind_ConstraintStateType)               :: FF_ConstrStates   ! Unused                
        TYPE(IfW_FFWind_OutputType)                        :: FF_OutData        ! output velocities     
  
  
  !     TYPE(CT_Backgr)                                    :: BackGrndValues
  
negative.code: 
     RETURN
  
  END FUNCTION WindInf_ADhack_diskVel
  
  
  
  
  