anchor.diff:                     , ErrStat, ErrMsg, RoutineName )
            RETURN
         END IF
  -
  -      ALLOCATE ( Words( AryLen ) , STAT=ErrStatLcl )
  -      IF ( ErrStatLcl /= 0 )  THEN
  -         CALL SetErrStat ( ErrID_Fatal, 'Fatal error allocating memory for the Words array.',ErrStat,ErrMsg,RoutineName )
  -         CALL Cleanup()
  -         RETURN
  -      ENDIF
   
   
         READ (FileInfo%Lines(LineNum),*,IOSTAT=ErrStatLcl)  Ary
  
positive.code: 
        INTEGER(IntKi)                         :: ErrStatLcl                    ! Error status local to this routine.
  
        CHARACTER(20), ALLOCATABLE             :: Words       (:)               ! The array "words" parsed from the line.
        CHARACTER(*), PARAMETER                :: RoutineName = 'ParseInAry'
  
        ErrStat = ErrID_None
  
negative.code:                    , ErrStat, ErrMsg, RoutineName )
           RETURN
        END IF
  
  
        READ (FileInfo%Lines(LineNum),*,IOSTAT=ErrStatLcl)  Ary
  