anchor.diff:     RETURN
      END SUBROUTINE ReadR8Var
   !=======================================================================
  +!> \copydoc nwtc_io::readr4varwdefault
  +   SUBROUTINE ReadR8VarWDefault ( UnIn, Fil, Var, VarName, VarDescr, VarDefault, ErrStat, ErrMsg, UnEc )
  +
  +      ! Argument declarations:
  +
  +   REAL(R8Ki),    INTENT(OUT)         :: Var                                             !< Variable being read
  +   REAL(R8Ki),    INTENT(IN )         :: VarDefault                                      !< Default value for variable being read
  +
  +   INTEGER(IntKi),INTENT(OUT)         :: ErrStat                                         !< Error status; if present, program does not abort on error
  +   CHARACTER(*),  INTENT(OUT)         :: ErrMsg                                          !< Error message
  +
  +   INTEGER,       INTENT(IN)          :: UnIn                                            !< I/O unit for input file.
  +   INTEGER,       INTENT(IN), OPTIONAL:: UnEc                                            !< I/O unit for echo file. If present and > 0, write to UnEc
  +
  +   CHARACTER( *), INTENT(IN)          :: Fil                                             !< Name of the input file.
  +   CHARACTER( *), INTENT(IN)          :: VarDescr                                        !< Text string describing the variable.
  +   CHARACTER( *), INTENT(IN)          :: VarName                                         !< Text string containing the variable name.
  +
  +
  +      ! Local declarations:
  +
  +   INTEGER                            :: IOS                                             ! I/O status returned from the read statement.
  +   CHARACTER(30)                      :: Word                                            ! String to hold the first word on the line.
  +
  +
  +   CALL ReadNum ( UnIn, Fil, Word, VarName, ErrStat, ErrMsg )
  +   IF ( ErrStat >= AbortErrLev) RETURN  ! If we're about to read a T/F and treat it as a number, we have a less severe ErrStat
  +
  +   
  +   CALL Conv2UC( Word )
  +   IF ( INDEX(Word, "DEFAULT" ) /= 1 ) THEN ! If it's not "default", read this variable; otherwise use the DEFAULT value
  +      READ (Word,*,IOSTAT=IOS)  Var
  +
  +      CALL CheckIOS ( IOS, Fil, VarName, NumType, ErrStat, ErrMsg )
  +
  +      IF (ErrStat >= AbortErrLev) RETURN
  +   ELSE
  +      Var = VarDefault
  +   END IF   
  +   
  +   IF ( PRESENT(UnEc) )  THEN
  +      IF ( UnEc > 0 ) &
  +         WRITE (UnEc,Ec_ReFrmt)  Var, VarName, VarDescr
  +   END IF
  +
  +   RETURN
  +   END SUBROUTINE ReadR8VarWDefault
  +!=======================================================================
   !> \copydoc nwtc_io::readcvar
   !! WARNING: this routine limits the size of the number being read to 30 characters   
      SUBROUTINE ReadR16Var ( UnIn, Fil, Var, VarName, VarDescr, ErrStat, ErrMsg, UnEc )
  
positive.code: 
     RETURN
     END SUBROUTINE ReadIVar
  !=======================================================================
  !> \copydoc nwtc_io::readcary
     SUBROUTINE ReadLAry ( UnIn, Fil, Ary, AryLen, AryName, AryDescr, ErrStat, ErrMsg, UnEc )
  
negative.code: !=======================================================================
  
     TYPE(ProgDesc), PARAMETER    :: NWTC_Ver = &                               
            ProgDesc( 'NWTC Subroutine Library', 'v2.11.00', '12-Nov-2016')    !< The name, version, and date of the NWTC Subroutine Library
  
        !> This type stores a linked list of file names, used in MLB-style input file parsing (currently used in AirfoilInfo)
     TYPE, PUBLIC   :: FNlist_Type                                
  