anchor.diff:     CHARACTER(99)                 :: ProgVer  = ' '                               !< The version (including date) of the calling program. DO NOT USE THIS IN NEW PROGRAMS
      CHARACTER(1), PARAMETER       :: Tab      = CHAR( 9 )                         !< The tab character.
      CHARACTER(*), PARAMETER       :: CommChars = '!#%'                            !< Comment characters that mark the end of useful input
  +   INTEGER(IntKi), PARAMETER     :: NWTC_SizeOfNumWord = 200                     !< maximum length of the words containing numeric input (for ParseVar routines)
   
   
         ! Parameters for writing to echo files (in this module only)
  
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 = 'ParseSiVar'
  
  
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 = 'ParseLoVar'
  
  