anchor.diff:  
      IF ( FileType == FileFmtID_NoCompressWithoutTime ) THEN
         DO IRow=1,FASTdata%NumRecs
  -         FASTdata%Data(IRow,2:) = REAL(TmpInArray(IRow,:), ReKi)
  +         FASTdata%Data(IRow,2:) = REAL(TmpR8InArray(IRow,:), ReKi)
         END DO ! IRow=1,FASTdata%NumRecs
      ELSE
         DO IRow=1,FASTdata%NumRecs
  
positive.code:       INTEGER(IntKi)                         :: ErrStatLcl                    ! Error status local to this routine.
        INTEGER(IntKi)                         :: NameIndx                      ! The index into the Words array that points to the variable name.
  
        CHARACTER(200)                         :: Words       (2)               ! The two "words" parsed from the line.
        CHARACTER(ErrMsgLen)                   :: ErrMsg2
        CHARACTER(*), PARAMETER                :: RoutineName = 'ParseInVar'
  
  
negative.code:       INTEGER(IntKi)                         :: ErrStatLcl                    ! Error status local to this routine.
        INTEGER(IntKi)                         :: NameIndx                      ! The index into the Words array that points to the variable name.
  
        CHARACTER(NWTC_SizeOfNumWord)          :: Words       (2)               ! The two "words" parsed from the line.
        CHARACTER(ErrMsgLen)                   :: ErrMsg2
        CHARACTER(*), PARAMETER                :: RoutineName = 'ParseDbVar'
  
  