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:             V_tmp                 = OtherStates%HHWind%V      (OtherStates%HHWind%NumDataLines)
              Delta_tmp             = OtherStates%HHWind%Delta  (OtherStates%HHWind%NumDataLines)
              VZ_tmp                = OtherStates%HHWind%VZ     (OtherStates%HHWind%NumDataLines)
                 
           ELSE
     
                ! Let's interpolate!
  
              OtherStates%HHWind%TimeIndex = MAX( MIN( OtherStates%HHWind%TimeIndex, OtherStates%HHWind%NumDataLines-1 ), 1 )
  
negative.code:    IMPLICIT NONE
     PRIVATE
  
     TYPE(ProgDesc), PARAMETER            :: IfW_Ver = ProgDesc( 'InflowWind', 'v2.00.00b-adp', '17-Sept-2013' )
  
  
  
  