anchor.diff:  
         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 ParseInAry
   !=======================================================================
  
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: 
        INTEGER(IntKi)                         :: ErrStatLcl                    ! Error status local to this routine.
  
        CHARACTER(*), PARAMETER                :: RoutineName = 'ParseInAry'
  
        ErrStat = ErrID_None
  