anchor.diff:        END IF
   
         LineNum = LineNum + 1
  -      CALL Cleanup()
   
         RETURN
  -
  -   !=======================================================================
  -   CONTAINS
  -   !=======================================================================
  -      SUBROUTINE Cleanup ( )
  -
  -         ! This subroutine cleans up the parent routine before exiting.
  -
  -            ! Deallocate the Words array if it had been allocated.
  -
  -         IF ( ALLOCATED( Words ) ) DEALLOCATE( Words )
  -
  -         RETURN
  -
  -      END SUBROUTINE Cleanup
   
      END SUBROUTINE ParseLoAry
   !=======================================================================
  
positive.code:                    , 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
  
negative.code:                    ' >> The "'//TRIM( AryName )//'" array was not assigned valid LOGICAL values on line #' &
                     //TRIM( Num2LStr( FileInfo%FileLine(LineNum) ) )//'.'//NewLine//' >> The text being parsed was :'//NewLine &
                     //'    "'//TRIM( FileInfo%Lines(LineNum) )//'"',ErrStat,ErrMsg,RoutineName )
           RETURN
        ENDIF
  
  