anchor.diff:  
      ErrStat = 0
   
  -   SELECT CASE ( IfW_ParamData%WindType )
  +   SELECT CASE ( ParamData%WindFileType )
         CASE (HH_Wind)
   
            CALL HH_SetLinearizeDels( LinPerturbations, ErrStat )
  
positive.code:    !-------------------------------------------------------------------------------------------------
     ! Get the file extension (or at least what we expect the extension to be)
     !-------------------------------------------------------------------------------------------------
     CALL GetRoot ( FileName, FileRoot )                      ! Get the root name
  
     IND = LEN_TRIM( FileRoot ) + 1
     IF ( IND < LEN_TRIM( FileName ) ) THEN
        FileNameEnd = FileName(IND+1:)                        ! Get the extenstion, starting at first character past (may not be the whole "extension")
        CALL Conv2UC (FileNameEnd)
     ELSE
        FileNameEnd = ""
  
negative.code: 
  CONTAINS
  !====================================================================================================
  SUBROUTINE GetWindType( ParamData, ErrStat, ErrMsg )
  !  This subroutine checks the file FileName to see what kind of wind file we are using.  Used when
  !  the wind file type is unknown.
  !----------------------------------------------------------------------------------------------------
  !FIXME: may want to change this to a subroutine that sets stuff in the passed IfW_ParameterType variable
  
     IMPLICIT             NONE
  
  
        ! Passed Variables:
  
     TYPE( IfW_ParameterType),        INTENT(INOUT)     :: ParamData
     INTEGER(IntKi),                  INTENT(  OUT)     :: ErrStat
     CHARACTER(*),                    INTENT(  OUT)     :: ErrMsg
  
  
        ! Local Variables:
  
     INTEGER                                            :: IND
     LOGICAL                                            :: Exists
  
     CHARACTER(1024)                                    :: FileName       ! Temporary name holder
     CHARACTER(  3)                                     :: FileNameEnd
     CHARACTER(  8)                                     :: WndFilNam      ! Temporary name holder
  
     CHARACTER(1024)                                    :: FileRoot
  
  
     ErrStat  = 0
     ErrMsg   = ""
  
     !-------------------------------------------------------------------------------------------------
     ! Check for user-defined wind file first; file starts with "USERWIND"
     !-------------------------------------------------------------------------------------------------
  
     WndFilNam = ParamData%WindFileName
     FileName  = ParamData%WindFileName
     CALL Conv2UC( WndFilNam )              ! convert name to upper case
  
     IF ( WndFilNam == 'USERWIND' )  THEN
  
        CALL WrScr1( ' Detected user-defined wind file.' )
        ParamData%WindFileType = UD_Wind
  
        RETURN
     END IF
  